---

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

---

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

---

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

---

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