| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Alle gerade geöffnetetn Zeichnungen anzeigen (382 mal gelesen)
|
CAxPartner Mitglied
Beiträge: 9 Registriert: 14.09.2004
|
erstellt am: 07. Feb. 2005 15:49 <-- editieren / zitieren --> Unities abgeben:
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 07. Feb. 2005 15:53 <-- editieren / zitieren --> Unities abgeben: Nur für CAxPartner
Code:
[...] (vlax-for Each (vla-get-Documents (vlax-get-acad-object) ) [...]
------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 07. Feb. 2005 15:57 <-- editieren / zitieren --> Unities abgeben: Nur für CAxPartner
Worauf Proxy hinweisen möchte, ist, dass es mit ActivX geht. Die Fertige Funktion sähe dann so aus: Code: (defun DT:DOCUMENT-LIST ( / DOCUMENTLISTE ) (vl-load-com) (vlax-for DOCUMENT (vla-get-documents(vlax-get-acad-object)) (setq DOCUMENTLISTE (cons (strcase (vla-get-fullname DOCUMENT)) DOCUMENTLISTE ) ) ) )
Aufruf dann: (setq Liste (DT :DOCUMENT-LIST)) willst du nur die blanken Namen, d.h. ohne Pfad, dann ersetze vla-get-fullname durch vla-get-name ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
[Diese Nachricht wurde von CADmium am 07. Feb. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 07. Feb. 2005 16:06 <-- editieren / zitieren --> Unities abgeben: Nur für CAxPartner
oder so ... damits Ruhe gibt Code:
(defun VxGetOpenDwgs (/ DwgLst DwgNme) (or Gb:AcO (setq Gb:AcO (vlax-get-acad-object))) (vlax-for Doc (vla-get-Documents Gb:AcO) (if (/= (setq DwgNme (vla-get-Fullname Doc)) "") (setq DwgLst (cons DwgNme DwgLst)) ) (vlax-release-object Doc) ) (reverse DwgLst) )
------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |