(command "-LAYER" "S" "0" "")
(princ));
(defun c:1()
(prompt "nCommand: CENTER Draw…")(terpri)
(command "-layer" "M" "CENTER" "cen" "14" "CEN" "L" "CEN" "" "")
(command "-LAYER" "S" "CEN" "")
(princ));
(defun c:2()
(prompt "nCommand: col LAYER Draw…")(terpri)
(command "-layer" "M" "col" "C" "2" "col" "")
(command "-LAYER" "S" "col" "")
(princ));
(defun c:3()
(prompt "nCommand: wal LAYER Draw…")(terpri)
(command "-layer" "M" "wal" "C" "3" "wal" "")
(command "-LAYER" "S" "wal" "")
(princ));
(defun c:4()
(prompt "nCommand: etc LAYER Draw…")(terpri)
(command "-layer" "M" "etc" "C" "7" "etc" "")
(command "-LAYER" "S" "etc" "")
(princ));
(defun c:5()
(prompt "nCommand: HAT LAYER Draw…")(terpri)
(command "-layer" "M" "HAT" "C" "5" "HAT" "")
(command "-LAYER" "S" "HAT" "")
(princ));
(defun c:6()
(prompt "nCommand: dim LAYER Draw…")(terpri)
(command "-layer" "M" "dim" "C" "134" "dim" "")
(command "-LAYER" "S" "dim" "")
(princ));
(defun c:7()
(prompt "nCommand: tex LAYER Draw…")(terpri)
(command "-layer" "M" "tex" "C" "3" "tex" "")
(command "-LAYER" "S" "tex" "")
(princ));
(defun c:8()
(prompt "nCommand: wid LAYER Draw…")(terpri)
(command "-layer" "M" "wid" "C" "4" "wid" "")
(command "-LAYER" "S" "wid" "")
(princ));
(defun c:9()
(prompt "nCommand: lan LAYER Draw…")(terpri)
(command "-layer" "M" "lan" "C" "3" "lan" "")
(command "-LAYER" "S" "lan" "")
(princ))
이런식으로 해서 리습을 썻는데 어느 화일에대가 넣야 할지 몰르겠습니다
cad2002 에 cadpower2002 사용자 입니다
고수님들의 수정도 부탁 드립니다..