CAD 고수님 Lisp 도움 부탁드립니다.

위 질문정도의 Lisp은, 저같이 전혀 고수가 아닌 사람도 쉽게 만들 수 있습니다.

아래의 Lisp을 "llcen.lsp" 등으로 저장하시고 'Load Application' 하세요.

(defun c:llcen() ; Change to Center lines
    (dx_layer "cen" 1 "CENTER" "acad.lin" "Change to Center lines")
)

(defun dx_layer(lname lcol ltype ltfile lmsg / ssg1)
    (setq la (getvar "clayer"))
    (setq cm (getvar "cmdecho"))
    (setvar "cmdecho" 0)
   
    (prompt (strcat "\n Select objects to " lmsg))
    (myCLyrSet lname lcol ltype ltfile)
    (setq ssg1 (ssget))
    (COMMAND "change" ssg1 "" "p" "LA" lname "c" "BYLAYER" "")

    (setvar "clayer" la)
    (setvar "cmdecho" cm)
    (COMMAND "-layer" "f" lname "")

    (princ)
)

(defun myCLyrSet(lname lcol ltype ltfile)
    (if (= (tblsearch "ltype" ltype) nil)
          (COMMAND "linetype" "l" ltype ltfile "")
    )
    (if (= nil (tblsearch "layer" lname))
             (COMMAND "layer" "m" lname "c" lcol "" "l" ltype "" "")
        (setvar "clayer" lname)
    )
)

"llcen" 명령으로 Center Line을 만드는 Lisp입니다.

위 Lisp은 굵은 글씨로 표시된 부분 즉,
Layer 이름 : cen
색상 : 1
Linetype : CENTER
Linetype 정의의 위치 : acad.lin
의 조건으로, 기존에 Layer가 존재하면 그것을 사용하고, 없으면 새로 Layer를 작성하여, 선택한 객체를 그 Layer로 바꾸고 Line의 색상은 'Bylayer'로 바꾼 후, 해당 layer를 Freeze하는 것입니다.

(해당 Layer가 이미 존재하였고, 'Current Layer'로 지정되어 있으면 Freeze가 되지 않음에 유의하시기 바랍니다.)

여러 Layer에 대해 쉽게 명령어를 작성하실 수 있도록 Function을 체계적으로 분리하였음에 유의하시기 바랍니다.
위 Lisp은 AutoCAD 명령어 사용의 수준이므로, 필요에 따라 쉽게 변경을 하실 수 있으리라 판단되나, 혹시 의문사항 있으면 다시 연락 주시기 바랍니다.