아래리습 도면층 만들기 리습입니다. 색깔도 넣을 수 있게 할 수 있으면 좋겠습니다.
색깔 번호 입력하면 그 색깔로 도면층이 만들어 지게 할수 있으면 좋겠습니다.
(defun c:lm (/ lname)
(setq lname (getstring “n 레이어명 입력 : “))
(if (/= lname “”)
(if (tblsearch “layer” lname)
(setvar “clayer” lname)
(command “layer” “m” lname “”)
)
)
(princ)
)
공유