求刷标注样式的程序（已解决，多谢各位帮忙）

669423907 · 发表于 2011-6-19 10:48:04

本帖最后由 669423907 于 2011-6-27 12:31 编辑

更改标注样式很不方便，恳请论坛大师们帮写一个刷标注样式的小程序。小生先在此谢过啦！
功能如下：
1：按下快捷键，提示选择要改变的标注样式（窗选）
2：右键确定，把被选中的标注样式变为当前的标注样式

chenry676 · 发表于 2022-4-26 17:46:19

这个好像只是更新标注样式为当前，是否可以选择并刷成原样式一样的的标注，只刷标注。

669423907 · 发表于 2011-6-19 10:59:26

本帖最后由 669423907 于 2011-6-19 11:33 编辑

用手机发的，很慢！所以发重复了，实在不好意思。

LLXXZZ · 发表于 2011-6-19 11:03:33

(DEFUN C:ddq (/ b) (setvar "CMDECHO" 0)
(setq b(ssget'((0 . "DIMENSION,LEADER"))))
(command "-DIMSTYLE" "a" b "" )
(princ" >>>标注更新完毕!")(princ))

caoyin · 发表于 2011-6-19 11:09:21

本帖最后由 caoyin 于 2011-6-19 11:12 编辑

(defun C:DStCur (/ DOC CST)
  (setq DOC (vla-get-ActiveDocument (vlax-get-acad-object))
      CSt (getvar 'DimStyle))
  (if (ssget '((0 . "DIM*")))
(vlax-for OBJ (vla-get-ActiveSelectionSet Doc)
   (vla-put-StyleName Obj CSt)
  )))
)

669423907 · 发表于 2011-6-19 11:35:12

热心人还是很多啊！谢谢两位大师指教！

killyouldc · 发表于 2011-6-19 14:18:30

不懂，但帮你顶。

yxlk115 · 发表于 2011-6-19 14:25:45

个人认为，ma还可以刷标注比例，更好用

zhynt · 发表于 2011-6-19 15:10:57

本帖最后由 zhynt 于 2011-6-19 15:14 编辑

也来提供一个方法：该方法我从R12开始一直使用至今。

(defun c:DUP (/ p)
(setvar "cmdecho" 0)
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dim" "up" p "" "e")
(setvar "cmdecho" 1)
)

caoyin · 发表于 2011-6-19 17:39:23

2楼和8楼的方法很好，我舍近求远了

raimo · 发表于 2011-6-20 07:17:41

caoyin 发表于 2011-6-19 17:39
2楼和8楼的方法很好，我舍近求远了

同意,方法简单好用!

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