autolisp 建立一個 AddressArea 圖層

前言:使用AutoCAD autolisp建立一個 AddressArea 圖層,並且如果圖層已經建立即將 AddressArea 設定為目前圖層,程式如下:

(if (null (tblsearch "LAYER" "AddressArea"))
(command "LAYER" "N" "AddressArea" "C" "1" "1" "LTYPE" "CONTINUOUS" "AddressArea" "")
(setvar "clayer" "AddressArea"))



延伸閱讀: 使用word開啟網頁資料,可以將網頁下載存成WORD檔.