如何在lsp程序中修改多线的线间距离？

meworld · 发表于 2004-6-25 11:02:00

修改系统变量cmlscale只能影响接下来将要画的多线的线间距离，在lsp中有没有办法修改已经画好的多线的线间距离呢？多线的style是已定好的，不大可能修改这个文件．多线的dxf码40是比例因子，但我修改了dxf码40的值，多线还是完全没有变化啊．请高手帮忙．
(defun c:chScale()
   (setq en (ssname (ssget ":s" '((0 . "MLINE"))) 0))
   (if (/= en nil)
   (setq ed (entget en))
   (setq ed (subst '(40 . 5) (assoc '40 ed) ed))
   (entmod ed)
   (entupd en)
   )
)

0xfmoiqbli2.JPG

meworld · 发表于 2004-6-25 11:21:00

更正，刚才写的函数应该如下：
(defun c:chScale()
   (setq en (ssname (ssget ":s" '((0 . "MLINE"))) 0))
   (if (/= en nil)
   (progn
   (setq ed (entget en))
   (setq ed (subst '(40 . 5) (assoc '40 ed) ed))
   (entmod ed)
   (entupd en)
   )
   )
)
大侠们帮帮忙吧．

alin · 发表于 2004-6-25 15:02:00

It work together with code 41

如何在lsp程序中修改多线的线间距离？

发表回复

精选推荐

浏览过的版块