VL修改指定的多重引线样式

Lisphk · 发表于 2019-1-8 09:32:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

修改名字为Engineering的多重引线样式

[Actionscript3] 纯文本查看 复制代码

(defun c:mleaderstylecreate (/ dict mldict mldstyle thgt)
  (setq dict   (vla-get-dictionaries acadDocument)
        mldict (vl-catch-all-apply
                 'vla-item
                 (list dict "ACAD_MLEADERSTYLE")
               )
  ) ;_ end of setq
  (if (setq ss (sstdblk "TBLK 8x11"))
    (setq thgt 0.06)
    (setq thgt 0.09)
  )
  (if (setq mldstyle (vla-item mldict "Engineering"))
    (progn (vlax-put-property mldstyle 'ArrowSize 0.125)
           (vlax-put-property mldstyle 'LandingGap (/ thgt 2))
           (vlax-put-property mldstyle 'TextHeight thgt)
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

xvjiex · 发表于 2020-12-8 15:58:07

感谢Lisphk，找了好久终于找到我要的了。

账号		自动登录	找回密码
密码			立即注册

[每日一码] VL修改指定的多重引线样式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。