(SETQ CLAY(GETVAR "CLAYER"))

(SETQ CLIN(GETVAR "CELTYPE"))

(

(if (not (tblsearch "layer" "zXX"))

(command "layer" "new" "ZXX" ")

(command " layer " " L " " X7 " " ZXX " " S " " ZXX " "); 내 대시 이름은 X7입니다. 그렇지 않은 경우 이름을 바꾸십시오 ==

(SETVAR "CELTYPE" "BYLAYER")

(명령줄)

(명령줄)

( setqp (getpoint "\ nStart bit "))

(Command P)

(while(setq P(getpoint P " \ n point ")(COMMAND P))

(Command " ")

(SETWAR "CLEAYER " 클레이)

(Setwal "cel type" CLIN)

)