Führungslinien-Farbe ändern (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY präsentiert die PRO Elite High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Führungslinien-Farbe ändern (924 mal gelesen)
ROAR78 Mitglied Dipl.-Ing (FH) Beiträge: 9 Registriert: 26.09.2013 Win7(64), MS Office 2010, AutoCAD Mechanical 2014, MS SQLServer 2008(64)	erstellt am: 18. Okt. 2013 14:12 <-- editieren / zitieren --> Unities abgeben: Hallo Leute, habe alte Zeichnungen mit vielen Hinweisen als Texte (0 . "MTEXT") und Führungslinien (0 . "LEADER"). Das sind gesprengte Führungslinien! Mit dem Befehl (if (setq temp (ssget "X" '((0 . "LEADER")))) (command "eigändr" temp "" "Layer" "AM_5" "Farbe" "VonLayer" "LTyp" "ByLayer" "")) konvertiere ich alte Führungslinien, aber nur Allgemeine Eigenschaften (Layer, Farbe, Linientyp). Ich möchte, dass alle alten Führungslinien (0 . "LEADER") auch die Bem-Linienfarbe "VonLayer" haben. Weis einer wie ich an diese Eigenschaft rankomme? Gruß ROAR Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13530 Registriert: 30.11.2003 .	erstellt am: 18. Okt. 2013 14:27 <-- editieren / zitieren --> Unities abgeben: Nur für ROAR78 ja .... via (if (setq AWS(ssget "X" '((0 . "LEADER")))) (mapcar '(Lambda(X / OBJ) (if(setq OBJ(vlax-ename->vla-object (cadr X))) (vl-catch-all-apply 'vla-put-DimensionLineColor (list OBJ 256)) ) ) (ssnamex AWS) ) ) ------------------ Also ich finde Unities gut ... und andere sicher auch --------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
ROAR78 Mitglied Dipl.-Ing (FH) Beiträge: 9 Registriert: 26.09.2013 Win7(64), MS Office 2010, AutoCAD Mechanical 2014, MS SQLServer 2008(64)	erstellt am: 18. Okt. 2013 14:51 <-- editieren / zitieren --> Unities abgeben: SUPER, vielen Dank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)