| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Alle gerade geöffnetetn Zeichnungen anzeigen (381 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: 13508 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 |
| Arbeitsvorbereiter (m/w/d) mit Schwerpunkt Produktionsplanung | Technologien auf das nächste Level zu heben, sich Herausforderungen zu stellen und an den Innovationen von morgen zu arbeiten - dafür benötigen wir bei FERCHAU Expert:innen wie dich: als ambitionierte Mitarbeitende für einen unserer Kunden. Du weißt genau, was du technologisch auf dem Kasten hast? Du suchst einen Arbeitgeber, der das genau erkennt, der dein Engagement wertschätzt und dir regelmäßig ... | Anzeige ansehen | Wirtschaftsingenieur |
|
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 |