求助一个小问题！
首先在这里给大家拜个年，祝大家马年吉祥！马到成功！标注形位公差时，一般qleader 后设置“S" 注释类型选择为“公差”后才能标注，我想省去“设置”这一步，直接输入一个命令就可以标注形位公差，请问可不可以做到！谢谢！
没有朋友肯出手相助啊 S之后，如果保存为模版文件，那么每次新建文件都是这些设置，不需要再输入S再设置。如果你非得编程来设置，你可以看CaOyin的日志文件 自贡黄明儒 发表于 2014-2-6 16:48 static/image/common/back.gif
S之后，如果保存为模版文件，那么每次新建文件都是这些设置，不需要再输入S再设置。如果你非得编程来设置， ...
黄大哥，没看到什么日志文件呀，如果用LISP来做应该很简单的一句代码吧，黄大哥能否帮忙写一句？ 回黄大哥，日志里的代码并不完全是LISP吧，好像还有VB，不能理解 把曹版主的代码贴出来，希望有朋友可以帮助我。
;;设置 Qleader 命令“引线设置”对话框的相关参数
;;注：引线的箭头跟DIMSTYLE使用同一设置，可以直接修改DIMLDRBLK系统变量
;;2011.5.5 by caoyin
(defun C:TT (/ 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 . 0);;-----注释-〉注释类型
(61 . 0);;-----注释-〉重复使用注释
String
MyString = "VBSCript"
LCaseString = LCase(MyString) '' LCaseString 包含 "vbscript"。
7、 UCase函数示例：
下面的示例利用 UCase 函数返回字符串的大写形式：
Dim MyWord
MyWord = UCase("Hello World") '' 返回"HELLO WORLD"。
8、StrComp函数示例：
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ''定义变量nbsp; (65 . 0);;-----引线和箭头-〉引线
(66 . 0);;-----引线和箭头-〉点数-〉无限制
(67 . 3);;-----引线和箭头-〉点数[任意正整数]
(68 . 1);;-----注释-〉多行文字选项-〉提示输入宽度
(69 . 0);;-----注释-〉多行文字选项-〉始终左对齐
(70 . 0);;-----引线和箭头-〉角度约束->第一段
(71 . 0);;-----引线和箭头-〉角度约束->第二段
(72 . 0);;-----注释-〉多行文字选项-〉文字边框
(40 . 0.0)
(170 . 2);;----控制“引线设置”对话框的缺省选项卡
;; (340 . 图元名)
;;-----当DXF组码60的值为3，且已经设定了块参照的块名，则340组码才会出现
;;-----格式为(340 . 上次使用块参照作为注释对象，实际插入的块实例的图元名)
)
)
)
)
我也碰到这个问题，谁能回答啊。。。。。万能的明径 (defun c:let ()
(prompt "画引线,形位公差")
(command ".leader" pause pause pause "" "" "t" pause)
(princ)
)
页:
[1]