두가지리습을 석어 한가지로 쓰고싶습니다.

레이어변환2 은 원래 제가 만들어 사용하고있었던 리습입니다.

레이어변환1 는 이곳에서 접하게 된것이구요

두개를 합쳐 한가지로 만들어 보려구 하는데 잘 않되네요

2번은 정해진 레이어로 레이어를 바꿔주며 명령어를 치기전에

객체를 먼저 선택해도 되고 나중에 선택해도 되는데

1번은 입력한 레이어로 레이어를 바꿔주지만

꼭 명령어를 친 다음에 객체를 선택해야합니다.

1번리습을 객체를 선택한 후에 명령어를 쳐도 되게

바꾸고싶습니다. 고수님들 도와주세요

레이어변환 1
(defun c:q` ()
(setvar “cmdecho” 0)
(command “undo” “group”)

(setq ss (ssget))
(setq num (sslength ss))
(setq index 0)
(setq nLayer (getstring “nEnter new layer name: “))
(setq ChkLayer (tblsearch “layer” nLayer))

(repeat num
(setq entName (ssname ss index))
(if (eq ChkLayer nil)
(progn
(prompt (strcat “nLayer ‘”LayerName”‘ does not exit !!”))
(exit)
); (command “chprop” entName “” “p” “layer” nLayer “”)
);
(setq index (+ index 1))
);

(command “undo” “en”)
(princ)
)

레이어변환2
(defun c:q1(/ ent)
(setq ent (ssget))
(if (/= ent nil)
(progn
(command “change” ent “” “p” “c” “bylayer” “la” 1 “”)
)
)
)
)