lisp调用qleader端点_标注时自动切换到DIM图层 lisp程序

标注时自动切换到DIM图层

[code=lisp](defun xlr-autolayer ()

;  (setvar "cmdecho" 0)

;  (if (null (tblsearch "layer" "text"))

;    (set_layer_list "text" 3 "continuous")

;  )

;  (if (null (tblsearch "layer" "dim"))

;    (set_layer_list "dim" 3 "continuous")

;  )

(vl-load-com)

;; 图层初始化列表 内容：commands layers color linetype plottable

(setq *doc (vla-get-activedocument (vlax-get-acad-object)))

(setq *lays (vla-get-layers *doc))

(setq        *laylst

(list (list "DIMANGULAR" "DIM" 3 "continuous" T)

(list "DIMALIGNED" "DIM" 3 "continuous" T)

(list "DIMBASELINE" "DIM" 3 "continuous" T)

(list "DIMCENTER" "DIM" 3 "continuous" T)

(list "