레이어 관련 리습을 아주 약간만 수정해서 다른 리습을 만들어봤는데요
실행은 되는데 에러 메세지가 나옵니다.
Command: k
Select objects: 1 found
Select objects: Unknown command “K”. Press F1 for help.
이렇게 나오네여….어딜 더 다듬어야 할지….
아참….이 리습의 단점은…똑같은 레이어의 객체를 여러개 잡아도 여러개를 각각 전부 실행하는듯 한데여
이것도 하나의 단점인듯…….
좀더 깔끔하게 다듬을수는 없을까요..
(defun c:k(/ ss n k en cly oly)
(prompt “nCommand: select Preeze…”)
(prompt “n켤 레이어만을 선택-> “)
(setq ss (ssget))
(setq n (sslength ss))
(setq k 0)
(setq cly (cdr (assoc 8 (entget (ssname ss (1- n))))))
(command “layer” “lock” “*” “” “”)
(while (<= 1 n)
(setq en (ssname ss k))
(setq oly (cdr (assoc 8 (entget en))))
(command “layer” “unlock” oly “”)
(setq n (- n 1))
(setq k (+ k 1))
)
(princ)
)