求助！多重引线的基线距离用lisp如何修改

xiaocainiao

如图、求教多重引线的这个基线距离特性，
如何使用Lisp来修改、不是修改多重引线样式，
是修改现有多重引线对象、
论坛搜遍了也没找到相关资料

kozmosovia

应该是改landinggap就行。
https://help.autodesk.com/view/O ... F-B8CF-A63BFE92B51F

xiaocainiao

kozmosovia 发表于 2025-11-18 16:43
应该是改landinggap就行。
https://help.autodesk.com/view/OARX/2021/ENU/?guid=GUID-5848A6DC-0C57-427F ...

完全看不懂

lingfne

创建多重引线样式

xiaocainiao

lingfne 发表于 2025-11-18 20:41
创建多重引线样式

谢谢  不过我是要修改参数、不是创建样式、创建样式咱们论坛有很人已经分享了代码

yshf

(defun c:gjxjl()
    (vl-load-com)
    (if (and  (setq ent (car (entsel "\n 请选取多重引线:")))
              (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "ObjectName") "AcDbMLeader")                 
        )
        (progn
            (setq old (vlax-get obj "LandingGap"))
            (if (and (setq new (getreal (strcat "\n 原基线间隙为" (rtos old) ", 请输入新值=")))
                     (/= old new)
                )
                (progn
                    (vlax-put obj "LandingGap" new)
                    (vla-update obj)
                )
            )
        )
    )
    (princ)
)

xiaocainiao

yshf 发表于 2025-11-18 22:27
(defun c:gjxjl()
    (vl-load-com)
    (if (and  (setq ent (car (entsel "\n 请选取多重引线:")))

谢谢！这个是改基线间隙的、不是基线间距、我自己用笨方法搞出来了、修改DXF组码、要修改40组码、还要根据引线比例、修改文字位置和引线顶点位置才行、有点繁琐