AUTOLISP - 套用新建圖層

當你安裝好AUTOCAD軟體才ㄈㄚ


(defun c:newlayer(/ a b c d)

(setvar "cmdecho" 0)

(command "clayer" "0")
(if (= (tblsearch "layer" "標註線") nil)
(command "-layer" "n" "標註線" "c" "13" "標註線" ""))
(if (= (tblsearch "layer" "正折") nil)
(command "-layer" "n" "正折" "c" "6" "正折" ""))
(if (= (tblsearch "layer" "畫線") nil)
(command "-layer" "n" "畫線" "c" "2" "畫線" ""))
(if (= (tblsearch "layer" "打點") nil)
(command "-layer" "n" "打點" "c" "4" "打點" ""))
(if (= (tblsearch "layer" "文字") nil)
(command "-layer" "n" "文字" "c" "5" "文字" ""))
(if (= (tblsearch "layer" "虛線") nil)
(command "-layer" "n" "虛線" "c" "3" "虛線" "L" "DASHED" "虛線" ""))
(if (= (tblsearch "layer" "中心線") nil)

(command "-layer" "n" "中心線" "c" "1" "中心線" "L" "CENTER" "中心線" ""))
(if (= (tblsearch "layer" "圖框線") nil)
(command "-layer" "n" "圖框線" "c" "8" "圖框線" ""))
(if (= (tblsearch "layer" "圖框") nil)
(command "-layer" "n" "圖框" "c" "8" "圖框" ""))
(if (= (tblsearch "layer" "反折") nil)
(command "-layer" "n" "反折" "c" "3" "反折" "L" "DASHED" "反折" ""))



)