[AutoLisp] Zmiana widoczności warstwy.

[swazy]

Dobry wieczór,

Mam takie szybkie pytanko. Myślę, że sprawa jest banalna, ale nie mogę tego nigdzie znaleźć.

No więc:  jaką komendą da się zmienić widoczność danej warstwy w tablicy?

    (setq LAY (tblsearch "layer" "zbrojenie_linie" ))
    (setq LAY (subst (cons 62 -8 )(assoc 62 LAY) LAY))
    (entmod LAY )

Chciałem w ten sposób, ale program [ZW-Cad 2020] nie współpracuje. Pozdrawiam 😉

 

 

[kruszynski]

Szybkie pytanko szybka odpowiedź:

(command "_layer" "_off" "zbrojenie_linie" "")

 

[kojacek]

6 godzin temu, swazy napisał:

Dobry wieczór,

Mam takie szybkie pytanko. Myślę, że sprawa jest banalna, ale nie mogę tego nigdzie znaleźć.

No więc:  jaką komendą da się zmienić widoczność danej warstwy w tablicy?

    (setq LAY (tblsearch "layer" "zbrojenie_linie" ))
    (setq LAY (subst (cons 62 -8 )(assoc 62 LAY) LAY))
    (entmod LAY )

Chciałem w ten sposób, ale program [ZW-Cad 2020] nie współpracuje. Pozdrawiam 😉

 

 

Byłoby dziwne gdyby wpółpracował. Lista z tblsearch nie jest poprawną listą dla entmod. Użyj tu formy entget + tblobjname. Zobacz:

(setq e (tblobjname "layer" "zbrojenie_linie" ))
(setq d (entget e))
(entmod (subst (cons 62 -8)(assoc 62 d) d))

a to prowadzić może do bardziej ogólnej funkcji:

(defun LayOnOff (Lay / e d)
  (if
    (setq e (tblobjname "LAYER" Lay))
    (progn
      (setq d (entget e))
      (setq d
        (subst
          (cons 62
            (* -1 (cdr (assoc 62 d)))
          )
          (assoc 62 d)
        d)
      )
      (entmod d)
    )
  )
)

Funkcja steruje widocznością warstwy podanej jako jej argument tak jak przełącznik, wywołaj kolejno:

(LayOnOff "zbrojenie_linie")

 

Edited November 17, 2020 by kojacek

[swazy]

Dawno mnie tu nie było i nie podziękowałem...
Dziękuję więc! Kupa wiedzy na tym forum mieszka zaprawdę...