| | |
 | 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 (380 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 |
| | Ausbildung Fachkraft (m/w/d) für Lagerlogistik 2024 | NIPPON EXPRESS (DEUTSCHLAND) GmbH & Co. KG wurde 1981 gegründet und hat ihren Stammsitz in Mönchengladbach. Die Gesellschaft beschäftigt rund 1.200 Mitarbeiter an 25 Standorten in Deutschland, Österreich und 6 osteuropäischen Ländern. Sie gehört zur weltweit agierenden NX Group. Die NX Group gehört zu den 5 größten Logistikunternehmen weltweit und erbringt alle Arten von logistischen Dienstleistungen, u.... | | Anzeige ansehen | Lagerlogistik |
|
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 |
Foren auf CAD.de (alle Foren)
| 
