| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Linienstärke 0,0 (276 mal gelesen)
|
Trine Mitglied CAD-Ingenieur
Beiträge: 30 Registriert: 10.11.2003 WinXP prof. SP2 DellPrecisionPWS390 (DualCore) 1,86GHz, 2GB RAM NVIDIA Quadro FX550 MEP 2008 DACH /AutoCAD 2008 ET2007 Office2003prof DXFCONF, Hp DesignJet 1050C
|
erstellt am: 08. Dez. 2005 11:38 <-- editieren / zitieren --> Unities abgeben:
Ich bekomme oft Kundenzeichnungen, bei denen Linien die Linienstärke von Layer=0,0 haben. Das Umstellen auf "Vorgabe" (nur dieser "0,0"-Layer) ist mir auch mit der Erstellung von einem Filter im Layer-Manager zu langwierig. Weiss jemand dafür ein LISP und kann mir helfen, das alles mit nur einem Klick passiert ? (Im Forum habe ich schon gesucht, und nichts gefunden.) Manne ------------------ manne Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 08. Dez. 2005 11:53 <-- editieren / zitieren --> Unities abgeben: Nur für Trine
Bitte: Code:
(defun C:LAYER00 ( / LAYER LAYERDATEN) (While (setq LAYER (tblnext "LAYER" (null LAYER)) ) (setq LAYERDATEN (entget(tblobjname "LAYER" (cdr(assoc 2 LAYER)))) ) (if(=(cdr(assoc 370 LAYERDATEN))0.0) (entmod(subst(cons 370 -3)(assoc 370 LAYERDATEN)LAYERDATEN)) ) ) (princ) )
------------------ - 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 |
Trine Mitglied CAD-Ingenieur
Beiträge: 30 Registriert: 10.11.2003 WinXP prof. SP2 DellPrecisionPWS390 (DualCore) 1,86GHz, 2GB RAM NVIDIA Quadro FX550 MEP 2008 DACH /AutoCAD 2008 ET2007 Office2003prof DXFCONF, Hp DesignJet 1050C
|
erstellt am: 08. Dez. 2005 13:22 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 08. Dez. 2005 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für Trine
Zitat: Original erstellt von Trine: . Ich hoffe, dass das mit den unities geklappt hat
wenn du so direkt fragst: aber der gute Wille zählt schon ------------------ - 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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2490 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 08. Dez. 2005 15:04 <-- editieren / zitieren --> Unities abgeben: Nur für Trine
...und für die Interessierten hier noch mal als VLisp: Code:
(vl-load-com) (vlax-for LAYER (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (if (zerop (vla-get-lineweight LAYER)) (vla-put-lineweight LAYER -3) ;_ -3 Vorgabe, -2 VonBlock, -1 VonLayer ) )
... Edit: Ja, ja Bärli, da fehlte noch was ;-)------------------ Ciao, Marc [Diese Nachricht wurde von marc.scherer am 08. Dez. 2005 editiert.] [Diese Nachricht wurde von marc.scherer am 08. Dez. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |