1、新建一个文本文档，将以下语句复制到文本文档中保存，重命名为pd.lsp（改为其他名称也可以，不过要更改后缀名为LSP）。;标注的快捷键(DEFU绿覆冗猩N C:DD()(COMMAND "dimlinear"));垂直标注公差 (defun c:cz() (setq p1 (getpoint "\n 请输入标注起点:")) (setq p2 (getpoint "\n 请输入标注终点:")) (setq d21 (cadr p1)) (setq d22 (cadr p2)) (setq d1 (getstring "\n 请输入标注尺寸:")) (setq dd (strcat "%%c" "<" ">" )) (if (/= d1 "") (setq dd (strcat "%%c" d1 )) (setq d2 (abs (- d21 d22))) ) (command "dimlinear" "ve" p1 p2 "T" dd) )
3、打开AUTOCAD-工具-autolisp-加载应用程序；
5、保存，重启AUTOCAD；
