引线点数设置问题

KO你

QLEADER引线里面有个点数可以勾选无限，用lisp要怎么写，请路过的朋友解答

自贡黄明儒

(66 . 1);;-----引线和箭头-〉点数-〉无限制[0,1]

KO你

自贡黄明儒 发表于 2024-4-9 07:03
(66 . 1);;-----引线和箭头-〉点数-〉无限制[0,1]

看不懂，麻烦黄大师编写出完整的源码出来，谢谢。

KO你

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);;-----注释-〉注释类型[0,1,2,3,4]
                        (61 . 0);;-----注释-〉重复使用注释[0,1,2]
                        (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 . 上次使用块参照作为注释对象，实际插入的块实例的图元名)
                      )
              )
    )
)

yefei812678

谢谢分享谢谢分享谢谢分享

KO你

经过多次测试还是无效，不知道什么原因。2022版本测试的