---

Hallo zusammen.

Code:

---

(defun c:xrefing()
(setq pfad (getfiled "X-Ref wählen" (getvar "dwgprefix") "dwg" 0))
(setq oAcad (vlax-get-acad-object))
(setq new(vla-Open (vla-get-documents oAcad) pfad))
(vla-put-activedocument oAcad new)
(setq einfpunkt(getpoint "Bitte Einfüge/0-Punkt wählen: "))
)

---

wenn ich den Befehl laufen lasse schalte ich die ausgewählte Datei aktiv und will danach in der neuen Zeichnung einen Punkt wählen. Leider macht er das jedoch immer in der alten Zeichnung. Könntet mir jemand nen Tipp geben?

danke
mfg blue

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Lisp läuft auch im Namespace der DWG weiter , aus der es aufgerufen wurde .... so wird das nichts. Was hast du vor?

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi cadmium,
dachte mir schon das das ein Problem sein könnte. Ich will eine Zeichnung öffnen einen neuen Einfügepunkt definieren, die Zeichnung speichern und schließen. Ist es überhaupt möglich die Lisp Routine in der neuen Zeichnung weiter laufen zu lassen? Denn wenn du schon so fragst warscheinlich nicht :/

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hy,

nur zur Klärung.

du hast eine DWG .. dort ist eine xref hinterlegt und deren Einfügepunkt möchtest du ändern ?

ist der Xrefname und die Verschiebung immer gleich ?

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

[Diese Nachricht wurde von cadwomen am 03. Jul. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ CADwomen
nein leider nicht, daher muss er manuell gewählt werden

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CADblue,
vielleicht kannst Du eine entsprechende Ladefunktion in der acaddoc.lsp einbauen.

1. In der aktiven Zeichnung Deinen Code zum Öffen laufen lassen und vorher über das Blackboard ein Load-Flag setzen

Code:

---

(vl-bb-set 'MyLoadFlag 'T)

---

2. In der neuen Zeichnung wird durch die acaddoc.lsp Dein Code mit GETPOINT geladen, im selben Zuge solltest Du in der acaddoc.lsp aber auch gleich wieder Dein Flag aus dem Blackboard entschärfen, z.B.

Code:

---

(if (vl-bb-ref 'MyLoadFlag)
(progn
(load "c:\\temp\\MyGetpointFunction.lsp");;;laden der Funktion
(MyGetpointFunction);;;Funktion ausführen
)
)
(vl-bb-set 'MyLoadFlag nil)

---

Die Informationen aus dem BlackBoard kann von allen geöffneten Zeichnungen genutzt werden.

Vielleicht klappt es ja so, ausprobiert habe ich es nicht.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen allerseits,

@ Joern, hört sich gut an. Mal sehen was ich aus der Idee machen kann. Vielen Dank soweit

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP