---

Hallo.

Wir haben hier ein eigens kreiertes Menü angelegt. Über verschiedene Menüunterpunkte lassen sich vorgezeichnete Standard-Elemente aus einer Zeichnung in die aktuelle Zeichnung laden.
Aber eben nur als Block eingefügt.

Kann ich auch einen Menüpunkt erstellen, bei dem (wenn ich drauf klicke) eine bestimmte Zeichnung geöffnet wird (z.B. C:\Eigene Dateien\AutoCAD\Beispiel1.dwg)?

Der Code für das Importieren einer Zeichnung als Block sieht momentan so aus (jedesmal der selbe Befehl für verschiedene Zeichnungen):

Code:

---

ID_BnsTool [Beispiel1]^C^C^P(command "._insert" "C:\Eigene Dateien\AutoCAD\Beispiel1" "x" "1" "d" "0")

---

[Diese Nachricht wurde von The VIP am 14. Mai. 2004 editiert.]

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

---

Ich hab es ja noch nicht ausprobiert, wie wäre es aber mit open?

------------------
Roland

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

---

geht leider nicht - obwohl das am Wahrscheinlichsten geklungen hat. 

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

---

Hatte dafür auch schon mal ein Makro erstellt. Nur bevor FILEDIA zurückgestellt werden kann, brichs ab.

------------------
Gruss
Caladia

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

---

Man kann doch auch einfach eine Lisp/ ein Macro schreiben, die dem acad-Object ein weiteres Document hinzufügt. Das habe ich schon öfter gemacht, ist kein Problem.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger,
"dem acad-Object ein weiteres Document hinzufügt", hab ich da was übersehn? - Sagt mir im Moment nichts - Wie mach ich so was als Makro?

------------------
Gruss
Caladia

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

---

Hallo,

@caladia Richtiger sollte es heißen: Der Documents-Collection ein weiteres Document hinzufügen. Die Documents-Collection hängt direkt unter dem Acad-Object.

Das Ganze könnte dann ein VBA-Macro werden, welches über einen Button aufgerufen wird - oder wie folgt in Lisp. Das Prinzip kann ja 1:1 nach VBA übernommen werden.
(defun open_dwg (Name)
  (setq NewDWG
        (vlax-invoke-method
          (vlax-get-property
            (vlax-get-acad-object)
            "Documents"
            )
          'Open
          name
  :vlax-false;Schreibschutz
  nil;Passwort
          )
        )
  )
Der Aufruf im Menü wäre dann folgender
ID_BnsTool [Beispiel1]^C^C^P(open_dwg "c:\\MeineZeichnung.dwg")

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Leider funktioniert auch OPEN_DWG nicht 

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

---

Hallo Holger,
habs grad ausprobiert, funktionuckelt gut. UŽs sind unterwegs.

------------------
Gruss
Caladia

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

---

Zitat:

---

Original erstellt von The VIP:
Leider funktioniert auch OPEN_DWG nicht  

---

Hmm.. mit dieser Feststellung kann ich jetzt nichts anfangen. Kommen irgendwelche Fehlermeldungen??? Hast du die Zeilen in einer *.lsp-Datei gespeichert. Hast du diese *.lsp geladen, ...???

Etwas mehr Infos, versprechen mehr Lösungen!

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

wenn ich jetzt Axel wär, würd ich fragen : wozu das (setq NewDWG ??

und ein bißchen mehr absicherung ist auch nicht schlecht :

(defun OPEN_DWG (Name / VLA-OBJEKT )       
  (if(not (vl-catch-all-error-p
            (vl-catch-all-apply
              'vlax-invoke-method
                (list (vlax-get-property
                        (vlax-get-acad-object)
                        "Documents"
                      )
                      'Open
                      NAME
                      :vlax-false;Schreibschutz
                      nil        ;Passwort
                )
            )
          )              
    )
    'T
  )
)

@VIP : (vl-load-com) vergessen?

------------------
- Thomas -

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

---

@CADmium
Du bist nicht Axel .. hast aber dennoch Recht. 
Das kommt davon, wenn man mal eben schnell Lösungen aus Projekten separiert .. ok, ich werde zukünftig darauf achten.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

uuuups, da lag der Fehler wohl bei mir dass das vorhin nicht geklappt hat.
Ä-häm, ich möchte jetzt nicht weiter ins Detail gehen worin mein "grober Schnitzer" lag 

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