무지라 힘들어요
::하나의 명령으로 묶어주세요::
;;;;;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
(defun c:LCC() (command “-LAYER” “C” “3” “1” “”)
(command “-LAYER” “C” “1” “2” “”)
(command “-LAYER” “C” “2” “3” “”)
(command “-LAYER” “C” “6” “4” “”)
(command “-LAYER” “C” “2” “5” “”)
(command “-LAYER” “C” “7” “6” “”)
(command “-RENAME” “LA” “5” “61” “”)
(command “-RENAME” “LA” “6” “51” “”)
(command “-RENAME” “LA” “51” “5” “”)
(command “-RENAME” “LA” “61” “6” “”)
)(princ)
(defun c:T6() (setq a (ssget ‘((0 . “text”)))) (command “change” a “” “p” “C” “BYLAYER” “LT” “BYLAYER” “LA” “6” “” ))
(princ)
(defun c:Tm6() (setq a (ssget ‘((0 . “mtext”)))) (command “change” a “” “p” “C” “BYLAYER” “LT” “BYLAYER” “LA” “6” “” ))
(princ)
(defun c:ud() (command “clayer” “5” “dim1” “_update”))