---

Hallo,
ich möchte Layer, die auf "nicht plotten" gestellt sind im Ansichtsfenster frieren und muss diese Layer dazu ermitteln. Ich dachte ich mach das wie beim Ermitteln von ausgeschalteten oder gefrorenen Layer mit tblnext und assoc. Aber bei den Gruppencodes taucht nichts auf, was auf "nicht plotten" hindeutet...
Habe im Forum schon erfolglos (wohl mit den falschen Suchbegriffen) gesucht.
Kann mir bitte jemand auf die Sprünge helfen?

Viele Grüße
Esme

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wie sieht es denn mit der kostenlosen Lisp und DXF-Hilfe von Autodesk aus, hilft dir die nicht ?
Oder wenn man 2 Layer vergleicht, einer plottbar, der andere nicht, wäre das nicht auch der Weg zur Lösung ?

DXF-Referenzce KLICK

PS: DXFgruppencodes sind ausschließelich Nummern, die weisen also NIE auf irgendetwas vom "Namen her" hin.

------------------
Link: User:FAQ (einiges Wissenswertes über AutoCAD)

[Diese Nachricht wurde von cadffm am 19. Jul. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ach , was soll's :

(defun C:FREEZE-NOPLOTLAYER()
  (vl-load-com)
  (vlax-for L (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
    (if (=(vla-get-Plottable L):vlax-false)
      (vl-catch-all-apply 'vla-put-freeze (list L :vlax-true))
    ) 
  ) 
)

------------------
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

---

Hallo Thomas,

vielen Dank für Deine Antworten und das Programm. Find ich total nett, dass Du das geschrieben hast.

und ich würde es auch gerne in Lisp verstehen...
wenn ich die Layerdaten ermittle mit (setq LAYER (tblnext "layer"))
bekomme ich die Rückmeldung
((0 . "LAYER") (2 . "testlayer_nicht-plotten") (70 . 0) (62 . 222) (6 . "Continuous"))
da gibt es  keinen Gruppencode 290 - wie komme ich denn an den ran?

Viele Grüße
Esme

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

tblnext liefert nicht alle gcs  dafür musst du (entget(tblobjname...) nehmen.

Noch ein BSP-Code:
(defun LAYER_INFO ( / LAYER LAYERDATEN LAYER_PROPS)
  (While (setq LAYER (tblnext "LAYER" (null LAYER)))
    (setq LAYERDATEN (tblobjname "LAYER" (cdr(assoc 2 LAYER))))
    (setq LAYER_PROPS (list      (cdr (assoc  2 LAYERDATEN))                              ; Layername
                        (itoa(abs(cdr (assoc  62 LAYERDATEN))))                                ; Farbe
                                (cdr (assoc  6 LAYERDATEN))                              ; Linientyp
                          (if (>=(cdr (assoc 370 LAYERDATEN)) 0)
                        (rtos (/(cdr (assoc 370 LAYERDATEN))100.0) 2 2)                ; Linienstärke
                        (itoa  (cdr (assoc 370 LAYERDATEN))))
                          (if (< (cdr (assoc  62 LAYERDATEN))  0)    "nein" "ja" )  ; Sichtbar ja/nein
                          (if (= (cdr (assoc 290 LAYERDATEN))  0)    "nein" "ja" )    ; Plotbar ja/nein
                  (if (= (logand (cdr (assoc  70 LAYERDATEN)) 1)  1) "ja" "nein" )    ; FROZEN ja/nein
                  (if (= (logand (cdr (assoc  70 LAYERDATEN)) 4)  4) "ja" "nein" ))    ; LOCKED ja/nein
    )
    (princ (strcat "\nLayername          : " (nth 0 LAYER_PROPS)          ; dann Ausgabe im Textfenster
                    "\nLayerfarbe        : " (nth 1 LAYER_PROPS) 
                    "\nLinientyp          : " (nth 2 LAYER_PROPS)
                    "\nLinienstärke      : " (nth 3 LAYER_PROPS)
                    "\nLayer sichtbar    : " (nth 4 LAYER_PROPS)
            "\nLayer plotbar      : " (nth 5 LAYER_PROPS)
                    "\nLayer gefroren    : " (nth 6 LAYER_PROPS)
                    "\nLayer gesperrt    : " (nth 7 LAYER_PROPS)
                    "\n---------------------------\n"
          )
    )
   
  )
  (princ)
)

------------------
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

---

Hallo Thomas,

vielen Dank für die Geduld.
da hab ich nun was zum Verstehen-Üben...

Viele Grüße
Esme

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

vielen Dank. Es funktioniert. 

Viele Grüße
Esme

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP