AutoCAD LISP 建立新的標註型式
在LISP中，建立新的標註型式，可用2種方式建立，第一種系統變數修改另存法，第二種entmake建立法。 1. 系統變數修改建立法： 先修改你需要的標註樣式的系統變數，再用-DIMSTYLE指令另存標註樣式 下面範例： (defun C:tt ( / ) (setvar "DIMCLRD" 2) ;_指定標註線、箭頭與標註引線的顏色。 (setvar "DIMCLRE" 2) ;_將顏色指定給延伸線、中心標記和中心線。 (setvar "DIMBLK" "建築短斜線") ;_設定標註線端點上顯示的箭頭圖塊。 (setvar "DIMASZ" 15.0) ;_控制標註線與引線的箭頭大小。也控制鉤線的大小。 (setvar "DIMTXT" 25.0) ;_指定標註文字的高度 (除非目前文字型式具有固定高度)。 (setvar "DIMDEC" 0) ;_設定標註主要單位顯示的小數位數。 (setvar "DIMSCALE" dimscale) ;_設定套用至標註變數 (指定大小、距離或偏移) 的整體比例係數。 (command "-DIMSTYLE" "S" dimname) );_end (setvar "系統變數名稱" 數值);設定系統變數的值 (getvar "系統變數名稱" 數值);讀取系統變數的值 其他標註的系統變數請參考系統變數表 2. 第二種entmake建立法： 利用entmake建立來建立物件 下面範例最少組碼項： (defun C:tt ( / ) (entmake (list '(0 . "DIMSTYLE") '(100 . "AcDbSymbolTableRecord") ...