引线点数设置问题
QLEADER引线里面有个点数可以勾选无限，用lisp要怎么写，请路过的朋友解答(66 . 1);;-----引线和箭头-〉点数-〉无限制 自贡黄明儒 发表于 2024-4-9 07:03
(66 . 1);;-----引线和箭头-〉点数-〉无限制
看不懂，麻烦黄大师编写出完整的源码出来，谢谢。 KO你 发表于 2024-4-9 08:00
看不懂，麻烦黄大师编写出完整的源码出来，谢谢。
找到了，原帖地址：http://www.mjtd.com/home.php?mod=space&uid=213172&do=blog&id=203
;;设置 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);;-----注释-〉重复使用注释
(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 . 上次使用块参照作为注释对象，实际插入的块实例的图元名)
)
)
)
)
谢谢分享谢谢分享谢谢分享 经过多次测试还是无效，不知道什么原因。2022版本测试的
页:
[1]