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

meworld

修改系统变量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)
)
)

meworld

更正，刚才写的函数应该如下：
(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

It work together with code 41