| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Linienstärke eines Layers ermitteln (1733 mal gelesen)
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 18. Jun. 2011 16:42 <-- editieren / zitieren --> Unities abgeben:
Hallo, Mittels (tblnext ...) kann man bekanntlich Tabelleninhalte analysieren. (tblnext "Layer") liefert z.B. als Ergebnis: ((0 . "LAYER") (2 . "Geometrie") (70 . 0) (62 . 5) (6 . "Continuous")) Laut DXF-Referenz soll sich eine Linienstärkenummer hinter dem DXF-Code 370 verbergen. Wie/wo finde ich diese Information? Danke jupa Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 18. Jun. 2011 17:34 <-- editieren / zitieren --> Unities abgeben: Nur für jupa
eigentlich sollte der bei (entget (tblobjname "layer" "dein_layer")) unter gc370 auftauchen... versuch mal ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." 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: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 18. Jun. 2011 17:46 <-- editieren / zitieren --> Unities abgeben: Nur für jupa
Code: (vl-load-com) ; kleines LISP-Demo bei CAD.de zur Ermittlung der Layer-Linienstärken ; Udo Hübner ; Quelle für mehr Infos: ; http://www.afralisp.net/visual-lisp/tutorials/visual-lisp-and-layers.php (defun C:LayerLWInfo ( / acadDocument Layers) (setq acadDocument (vla-get-activedocument (vlax-get-acad-object))) (setq Layers (vla-get-layers acadDocument)) (vlax-for item Layers (prompt (strcat "\n" (vla-get-name item) "\t" (if (= (vla-get-lineweight item) acLnWtByLwDefault) "Vorgabe" (vl-princ-to-string (* 0.01 (vla-get-lineweight item))) ) ) ) ) (princ) );defun (princ)
------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 18. Jun. 2011 18:01 <-- editieren / zitieren --> Unities abgeben:
Danke, so "(tblobjname "layer" "dein_layer"))" funktioniert's schon. Und auch danke an Udo für seine Mühe. jupa [Diese Nachricht wurde von jupa am 18. Jun. 2011 editiert.] [Diese Nachricht wurde von jupa am 18. Jun. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |