求一个lisp，把所选对象的标注样式改为当前标注样式

iamhuangjinming · 发表于 2018-2-26 20:13:25

求大神解决，谢谢！

菜卷鱼 · 发表于 2018-3-1 08:32:39

(vl-cmdf "-dimstyle" "a" (ssget) "")

iamhuangjinming · 发表于 2018-2-27 21:48:59

Linhay 发表于 2018-2-27 07:50
(command "-DIMSTYLE" "R" (cdr(assoc 3 (entget(car(entsel))))))

谢谢！。不是这个意思，是要把选择的一些对象的标注样式改掉，改成当前的样式。。

iamhuangjinming · 发表于 2018-3-8 22:55:46

Linhay 发表于 2018-2-27 07:50
(command "-DIMSTYLE" "R" (cdr(assoc 3 (entget(car(entsel))))))

您好！可以麻烦帮我写个可以多选然后一起改为当前标注样式吗？谢谢~

Linhay · 发表于 2018-2-27 07:50:24

(command "-DIMSTYLE" "R" (cdr(assoc 3 (entget(car(entsel))))))

Linhay · 发表于 2018-2-28 13:07:57

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

iamhuangjinming · 发表于 2018-2-28 17:08:55

Linhay 发表于 2018-2-28 13:07
(vla-put-stylename (vlax-ename->vla-object (car(entsel))) (getvar "dimstyle"))

谢谢！写的好简洁啊

尒樣僮 · 发表于 2018-2-28 18:02:43

学习了我写的话就要搞一大串

菜卷鱼 · 发表于 2018-3-1 08:31:15

(vl-cmdf "-dimstyle" "a" (entsel) "")

liunian0524 · 发表于 2018-3-6 08:12:48

标注更新....

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

[提问] 求一个lisp，把所选对象的标注样式改为当前标注样式