| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: lösche alle Layerstati (202 mal gelesen)
|
carmelli76
Mitglied
CAD/GIS Teamleitung
   Beiträge: 553
Registriert: 05.07.2004 Autodesk Civil 3D 2014
Revit 2016
Vault 2014
|
erstellt am: 04. Feb. 2009 01:51  <-- editieren / zitieren -->   Unities abgeben:          
Hallihallo, Ich möchte gern ein Script schreiben, dass all im Layereigenschaftenmanager gespeicherten Layerstati löscht, ohne dass ich den Layerstatusnamen extra benennen muss. Geht das? LG aus London. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9732
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10
|
erstellt am: 04. Feb. 2009 06:03 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76 
|
carmelli76
Mitglied
CAD/GIS Teamleitung
Beiträge: 553
Registriert: 05.07.2004 Autodesk Civil 3D 2014
Revit 2016
Vault 2014
|
erstellt am: 04. Feb. 2009 21:19 <-- editieren / zitieren --> Unities abgeben:
Okay, Danke Dir. Das Lisp bekomme ich auch zum laufen und es gibt mir auch schön die Namen meiner Layerstati wieder.
ZB. so:
"1"
"2"
"3"
"4"
"5" Doch wie bastele ich das nun in ein Script so dass es jeden dar Stati nimmt und löscht? Ich kenn mich mit Lisp leider nicht so gut aus und weiss nicht, wie ich dies ganze list von Layerstati nun an einen Befehl übergebe, der die einfach löscht. LG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9732
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10
|
erstellt am: 04. Feb. 2009 21:31 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
Zitat:
Original erstellt von carmelli76:
Okay, Danke Dir.Das Lisp bekomme ich auch zum laufen und es gibt mir auch schön die Namen meiner Layerstati wieder.
ZB. so:
"1"
"2"
"3"
"4"
"5" Doch wie bastele ich das nun in ein Script so dass es jeden dar Stati nimmt und löscht? Ich kenn mich mit Lisp leider nicht so gut aus und weiss nicht, wie ich dies ganze list von Layerstati nun an einen Befehl übergebe, der die einfach löscht. LG
Code:
(defun delalllayerstates ()
(vlax-for item
(vlax-invoke-method
(vla-getextensiondictionary
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)
"Item"
"ACAD_LAYERSTATES"
)
(print(vla-get-Name item))
(vla-delete item)
)
(prin1)
)
Obigen Quelltext in eine LSP Datei speichern, dann diese Datei mit APPLOAD, drag&Drop o.ä. laden und
Befehl: (delalllayerstates)
ausführen. ------------------
Mit freundlichem Gruß Udo Hübner
www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
carmelli76
Mitglied
CAD/GIS Teamleitung
Beiträge: 553
Registriert: 05.07.2004 Autodesk Civil 3D 2014
Revit 2016
Vault 2014
|
erstellt am: 04. Feb. 2009 22:33 <-- editieren / zitieren --> Unities abgeben:
Jetzt hast du es mir ja gleich richtig geschrieben... Aber jetzt, wo ich das sehe, sieht es ja auch gar nicht schwer aus und es hat natürlich gleich geklappt. Danke Dir auf jeden Fall. Ich muss mich jetzt doch mal ausführlicher mit dem Lispeln befassen. Habe vor Jahren mal den Grundkurs vom Mapcar und mir halt ein bisschen was gemerkt, aber nicht viel... Mal ne blöde Frage: Was hat es mit den ganzen "vlax-..." und "vla-..." commands auf sich? Und woher kann ich mal ne liste mit den üblichen lisp-befehlen und deren Argument bekommen? LG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd
Mitglied
Beiträge: 1111
Registriert: 27.11.2003 Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018
|
erstellt am: 05. Feb. 2009 12:11 <-- editieren / zitieren --> Unities abgeben: Nur für carmelli76
|
Foren auf CAD.de (alle Foren)
| 
