xiaocainiao 发表于 2025-11-18 16:38:57

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


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


kozmosovia 发表于 2025-11-18 16:43:55

应该是改landinggap就行。
https://help.autodesk.com/view/OARX/2021/ENU/?guid=GUID-5848A6DC-0C57-427F-B8CF-A63BFE92B51F

xiaocainiao 发表于 2025-11-18 17:20:59

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

完全看不懂

lingfne 发表于 2025-11-18 20:41:56

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

创建多重引线样式

xiaocainiao 发表于 2025-11-18 21:12:19

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

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

yshf 发表于 2025-11-18 22:27:24

(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 发表于 2025-11-19 07:54:12

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


谢谢！这个是改基线间隙的、不是基线间距、我自己用笨方法搞出来了、修改DXF组码、要修改40组码、还要根据引线比例、修改文字位置和引线顶点位置才行、有点繁琐
页: [1]
查看完整版本: 求助！多重引线的基线距离用lisp如何修改