求一个lisp，把已经框选的所有对象的标注样式，修改成当前的标注样式

iamhuangjinming · 发表于 2018-3-10 10:36:45

周末快乐~加班快乐！

xiaotao · 发表于 2018-3-10 18:00:09

(defun c:tt (/ ss)
(if (setq ss (ssget '((0 . "DIMENSION,LEADER"))))
(command "dim" "up" ss "" "e")
(princ)
)
)

dogingate · 发表于 2018-4-16 16:43:27

(vla-put-stylename (vlax-ename->vla-object (car(entsel))) (getvar "dimstyle"))

renhaitao_nice · 发表于 2018-4-18 07:17:15

@xiaotao 好像高版本的CAD中已经没有dim这个命令了

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

[提问] 求一个lisp，把已经框选的所有对象的标注样式，修改成当前的标注样式