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

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

周末快乐~加班快乐！

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这个命令了
页: [1]
查看完整版本: 求一个lisp，把已经框选的所有对象的标注样式，修改成当前的标注样式