Question

请求帮忙用autolisp或者vlisp写一句代码

标注形位公差时，一般qleader 后输入“S" 进入设置，注释类型选择为“公差”后才能标注，我想省去“设置”这一步，直接输入一个命令就可以标注形位公差，请问用LISP代码可不可以做到！谢谢！

Answer 1

(defun c:QS (/ DICEN)
(setq DICEN (namedobjdict))
(if (dictsearch DICEN "AcadDim")
(dictremove DICEN "AcadDim")
)
(dictadd DICEN
"AcadDim"
(entmakex '((0 . "XRECORD")
(100 . "AcDbXrecord")
(280 . 1)
(90 . 990106)
(3 . "");;-----引线和箭头-〉箭头[用户箭头的缺省块名，""则表示未设置]
(60 . 2);;-----注释-〉注释类型[0,1,2,3,4]
(61 . 0);;-----注释-〉重复使用注释[0,1,2]
(62 . 1);;-----附着-〉文字在右边[0,1,2,3,4]
(63 . 1);;-----附着-〉文字在左边[0,1,2,3,4]
(64 . 0);;-----附着-〉最后一行加下划线[0,1]
(65 . 0);;-----引线和箭头-〉引线[0,1]
(66 . 0);;-----引线和箭头-〉点数-〉无限制[0,1]
(67 . 3);;-----引线和箭头-〉点数[任意正整数]
(68 . 1);;-----注释-〉多行文字选项-〉提示输入宽度[0,1]
(69 . 0);;-----注释-〉多行文字选项-〉始终左对齐[0,1]
(70 . 0);;-----引线和箭头-〉角度约束->第一段[0,1,2,3,4,5]
(71 . 0);;-----引线和箭头-〉角度约束->第二段[0,1,2,3,4,5]
(72 . 0);;-----注释-〉多行文字选项-〉文字边框[0,1]
(40 . 0.0)
(170 . 2);;----控制“引线设置”对话框的缺省选项卡[0,1,2]
;; (340 . 图元名)
;;-----当DXF组码60的值为3，且已经设定了块参照的块名，则340组码才会出现
;;-----格式为(340 . 上次使用块参照作为注释对象，实际插入的块实例的图元名)
)
)
)
(command "Qleader")
)
设置一次之后，以后使用Qleader都不用再设置了。你也可以每次都使用QS命令。

Answer 2

我查过了，不能直接更改的，“注释”选项下是不能用命令行的方式去选择定义

追问

应该能设置吧，看看这里，只是我不懂代码
http://bbs.mjtd.com/blog-213172-203.html

追答

那是用VB写的。。。

追问

前段是LISP，后段是VB，应该是完整的，可不可以帮忙整理以达到我的需求？