代碼:(defun c:1a();;線性
(setvar "cmdecho" 0);關閉LISP在指令區的操綽回應
(setq oldlay (getvar "clayer"));取出舊圖層設定值
(setq oldos (getvar "osmode"));取出舊物件鎖點設定值
(setvar "osmode" 0);關閉物件鎖點*避免物件鎖點干擾
(command "-layer" "s" "標註" "")
(command "_dimlinear" pause pause pause)
(setvar "clayer" ...
↧