[求助]用LISP 创建标注层

cwz050102

我是LISP的初学者，请教高手一个问题：如何用一个LISP程序实现，无论当前层为何层，只要运行直径标注命令，当前层自动转为标注层（比如DIM层），也就是说，我想把所有的标注尺寸，如线性标注、半径标注，直径标注、坐标标注等归入一个层，便于管理。不知道这个问题好解决吗？请高手指点，谢谢。

caoyin

方法两种：

1.用 undefine 禁用 dimdiameter 命令，自己重新定义该命令。

2.用反应器监视

killer9806

整个简单的,直径标注时,转为DIM层,但标注完成后,转不回来.

(defun c:dd()
  (setq Cur_Layer "DIM")
  (setVar "CLAYER" Cur_Layer)
  (command "DIMDIAMETER" pause pause)
)