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




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

网友答:
完全看不懂

网友答: 本帖最后由 lingfne 于 2025-11-18 20:43 编辑

创建多重引线样式


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

网友答: (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)
)

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