빌린인생님 매번 고마워요!

생님 매번 답변에 진심으로 감사드립니다.

꾸벅

그런데 숫자로 바꾸어서 일러주신대로 했는데

로드시 에러가 나네요.

리습이란것이 정망 힘들군요. (기초가 없어서리)

죄송하지만 다시한번 조언을 부탁드립니다.

그리고 소.대문자 방법도 자세히좀 부탁드리고요.

가정문을 수정하라는데로 해도 잘 안되서요.

참고하시길

(defun c:EL(/ ip ent)

(graphscr)

(setvar "cmdecho" 0)

(setq 1 "l-die"

2 "l-die-dash"

3 "u-die"

4 "u-die-dash"

5 "pad"

6 "pad-dash")

(setq ip (getreal "1,2,3,4,5,6, @ Eress하고픈 LAYER 이름이 뭐여 ?:"))

(if (eq ip 1)(setq ip "l-die"))

(if (eq ip 2)(setq ip "l-die-dash"))

(if (eq ip 3)(setq ip "u-die"))

(if (eq ip 4)(setq ip "u-die-dash"))

(if (eq ip 5)(setq ip "pad"))

(if (eq ip 6)(setq ip "pad-dash"))

(setq ent (ssget (list (cons 8 ip))))

(command "ERASE" ent "")

(princ)

);defun