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

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

求大神解决，谢谢！

菜卷鱼 发表于 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

标注更新....
页: [1] 2
查看完整版本: 求一个lisp，把所选对象的标注样式改为当前标注样式