|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 20.12.2011 um 19:57 Uhr (0)
Erstmal Hallo ins ACAD VBA- Forum.Bin sonst nur im IV VBA- Forum unterwegs und muss euch jetzt hier auch mal nerven... Gleich zur Frage:Ist es über VBA möglich Layer zusammenzufassen?Wenn ich aus Inventor einen DXF- Export ausführe vergebe ich über eine XML- Datei3 neue Layer. Die vorhandenen Layer werden dann in der gleichen Datei einfach umbenanntin die neu erstellten Layer.Dadurch kann ich 15 Layer zu 3 zusammenfassen.Im ACAD habe ich es jetzt über eine for each Schleife probiert.Code: For Each Layer I ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 21.12.2011 um 07:11 Uhr (0)
Stimmt, geb ich Dir recht...Mein Lösungsansatz ist jetzt folgender:Lisp- Datei erstellt und diese wird vom ACAD beim Start mitgeladen.Inhalt Lisp- Datei:Code:(defun C:asdf (/ Laytrans)(cond ((not (member "laytrans.arx" (arx))) (arxload "laytrans")))(acet-laytrans "standard.dws" (+ 1 2 4)))(princ)Dementsprechend eine dws- Datei über den Layermanager erstellt welche die vorhandenen Layer zu den neuen zusammenfasst.Aufruf von asdf dann über VBA mit dem SendCommand Befehl...Gefällt mir zwar nicht aber funktion ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 20.12.2011 um 19:57 Uhr (0)
Erstmal Hallo ins ACAD VBA- Forum.Bin sonst nur im IV VBA- Forum unterwegs und muss euch jetzt hier auch mal nerven... Gleich zur Frage:Ist es über VBA möglich Layer zusammenzufassen?Wenn ich aus Inventor einen DXF- Export ausführe vergebe ich über eine XML- Datei3 neue Layer. Die vorhandenen Layer werden dann in der gleichen Datei einfach umbenanntin die neu erstellten Layer.Dadurch kann ich 15 Layer zu 3 zusammenfassen.Im ACAD habe ich es jetzt über eine for each Schleife probiert.Code: For Each Layer I ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer zusammenfassen
noctis79 am 21.12.2011 um 07:11 Uhr (0)
Stimmt, geb ich Dir recht...Mein Lösungsansatz ist jetzt folgender:Lisp- Datei erstellt und diese wird vom ACAD beim Start mitgeladen.Inhalt Lisp- Datei:Code:(defun C:asdf (/ Laytrans)(cond ((not (member "laytrans.arx" (arx))) (arxload "laytrans")))(acet-laytrans "standard.dws" (+ 1 2 4)))(princ)Dementsprechend eine dws- Datei über den Layermanager erstellt welche die vorhandenen Layer zu den neuen zusammenfasst.Aufruf von asdf dann über VBA mit dem SendCommand Befehl...Gefällt mir zwar nicht aber funktion ...
|
| In das Form AutoCAD VBA wechseln |
