求助：dimscale参数对引线和多重引线无效？

mokson

(command "_.dimoverride" "dimscale" 5 "" (ssget ":N") "")
以上lisp对转角标注，对齐标注，半径，直径，弧度，角度标注都有效果，
但是对 引线 和 多重引线 无效。
求修正的方法，感谢大家。

菜卷鱼

改变多重引线标注比例的不再是 dimscale ， 而是 mleaderscale ，但是dimoverride 不支持 ，你只能用别的办法

satan421

仍然是:
vla-put-scalefactor obj 5.0
自己写个循环不难吧

mokson

菜卷鱼 发表于 2020-7-15 09:02
改变多重引线标注比例的不再是 dimscale ， 而是 mleaderscale ，但是dimoverride 不支持 ，你只能用别的办 ...

感谢指导，但是我还是没有想出行之有效的方法。

菜卷鱼

mokson 发表于 2020-7-17 08:32
感谢指导，但是我还是没有想出行之有效的方法。

你可以像2楼说的用 vla-put-ScaleFactor  啊，你学了十年的Lisp，不该会真的不会吧？
(defun c:tt nil
  (mldsc (ssget))
  (prin1)
)

(defun Mldsc (ss / ss obj vbj i)
  (sssetfirst ss ss)
  (setq ssmld (ssget "i" '((0 . "MULTILEADER"))))
  (setq i 0)
  (repeat (sslength ssmld)
    (setq obj (ssname ssmld i))
    (setq vbj (vlax-ename->vla-object obj))
    (vla-put-ScaleFactor vbj (getvar 'dimscale))
    (vlax-release-object vbj)
    (setq i (1+ i))
  )
  (sssetfirst nil nil)
  (prin1)
)

mokson

菜卷鱼 发表于 2020-7-17 09:56
你可以像2楼说的用 vla-put-ScaleFactor  啊，你学了十年的Lisp，不该会真的不会吧？
(defun c:tt nil
...

由于用得不够熟悉，许多思维方式未有深切理悟。
还得多学习优秀代码，多动手写练习。非常感谢你的帮助！