(defun c:EL(/ ip ent)
(graphscr)
(setvar "cmdecho" 0)
(setq a "l-die"
b "l-die-dash"
c "u-die"
d "u-die-dash"
e "pad"
f "pad-dash")
(setq ip (getstring "a,b,c,d,e,f, @ Eress하고픈 LAYER 이름이 뭐여 ?:"))
(if (eq ip "a")
(setq ip "l-die"))
(if (eq ip "b")
(setq ip "l-die-dash"))
(if (eq ip "c")
(setq ip "u-die"))
(if (eq ip "d")
(setq ip "u-die-dash"))
(if (eq ip "e")
(setq ip "pad"))
(if (eq ip "f")
(setq ip "pad-dash"))
(setq ent (ssget "x" (list (cons 8 ip))))
(command "ERASE" ent "")
(princ)
);defun
위에 있는 a,b,c,d,e,f,……..
영문을
숫자 1,2,3,4,5,…….35로 고칠수는 없나요?
숫자로도 할수 있다는 말이 있는데 저는 안되네요.
아시는 분 있으면 방법좀 아르켜주세요.
고수님들 리습좀 고쳐줘요
공유
님 리습에 대한 열정이 대단하시네여…
리습을 한번 이렇게 고쳐 보세여
(setq ip (getreal "1,2,3,4,5,6, @ Eress하고픈 LAYER 이름이 뭐여 ?:"))
(setq (eq ip 1) (setq ip "l-die"))
숫자를 받아 들일려면 getstring 대신 getreal 함수를 사용해야 함다,,
글고 문자열이 아니기때문에 따옴표는 제외하고 써야 되죠…
모든 줄을 이런식으로 바꿔 보시기 바람니다..검증은 안했지만 될꺼란 확신
은 조그 서네여…^^ 그럼 수고하십시요…^^