(defun c:AF( / e c la )
(setq e (ssget))
(setq c 0)
(setq la (cdr (assoc 8 (entget (ssname e 0)))))
(COMMAND “LAYER” “S” la “OFF” “*” “Y” “”)
(while
(setq la (cdr (assoc 8 (entget (ssname e c)))))
(setq c (1+ c))
(COMMAND “LAYER” “on” la “”)
)
(princ)
)
저번에 리습수정해서 받았던건데
select object로 드래그해서 선택된 레이어 on 시키는 명령인데
같은형식으로 드래그하여 선택된 레이서 off 시키는 걸로 변경좀 부탁드립니다…