;;——————————————————————-
(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
;;——————————————————————-
독립 file로 해도 안되요
검토좀 부탁합니다.
빌린인생님 & ygpart님 이것좀 검토해주세요
공유
4번째라인에 따옴표 하나 넣으니까..
되던데여..?
배기님 말씀이 맞습니다…리습을 짜다보면 따옴표 내지는 괄호를 빠트리는 경우
가 종종 있죠… 잘짜셨네여…그렇게 조금씩 조금씩 나아지는 거죠/…
그 프로그램에서 한가지 더 붙인다면… Getstring 값에서 입력값을 입력받을때
"A" "a" 둘다 써 넣어도 돌아가게 할수 있음다..지금은 "A" 값을 입력하면
아마도 실행이 안될꺼란 생각이 드네여….
If 문을 잘 이용해서 한번 시도해 보세여… 똑같은 방법으로 하면 가능할껍니다..
노력해서 꼭 성공하시길……^^