一个lisp快捷键，搞定cad中“Φ”及上下公差的输入！

1、新建一个文本文档，将下列字符复制其中保存，并将其后缀名改为LSP放到AUTOCAD子目录下；

字符：

标注的快捷键

(DEFUN C:DD()(COMMAND "dimlinear"))

垂直标注公差

复制内容到剪贴板 (defunc:czc() (setqp1(getpoint"n请输入标注起点:")) (setqp2(getpoint"n请输入标注终点:")) (setqd21(cadrp1)) (setqd22(cadrp2)) (setqd1(getstring"n请输入标注尺寸:")) (setqd2(abs(-d21d22))) (setqs(getstring"n输入上公差：")x(strcat"^"(getstring"n输入下公差："))) (if(=s"0")(setqs"0")) (if(=x"^0")(setqx"^0")) (if(/=d1"") (setqdd(strcat"%%c"d1"{""""H0.7X"";""""S"sx";""}"))(setqdd(strcat"%%c""<"">""{""""H0.7X"";""""S"sx";""}"))) (command"dimlinear""ve"p1p2"T"dd) )

4、标注步骤：

1）在输入栏输入快捷键CZC；

3）点击要标注的下端点；

5）输入上公差数值，按回车键结束；（无图）

6）输入下公差数值，按回车键结束；（无图）

7）点击放置标注的位置；