- 积分
- 195081
- 明经币
- 个
- 注册时间
- 2009-5-21
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2013-6-13 02:01:24
|
显示全部楼层
429014673 发表于 2012-11-15 15:05
情况一:怎么多了一个A1
;;;;edx:标注编辑================================
(setq txt_dim "自定义尺寸")
(defun c:EDX (/ ss txt) ;edx:标注编辑
(setvar "cmdecho" 0)
(command "_.undo" "_begin")
(defun *Error* (msg)
(if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))(princ "\n退出"))
)
(princ "批量编辑标注值")
(princ "\n请输入新字符<")
(princ txt_dim)
(setq txt (getstring ">:"))
(cond
((= txt "")(setq txt txt_dim))
(T (setq txt_dim txt))
);cond
(while
(setq ss (ssget":s" '((0 . "dimension,arc_dimension"))))
(princ (strcat "\n共编辑了" (itoa (sslength ss)) "个标注。"))
(command "dimedit" "n" txt "p" "")
);while
(command "_.undo" "_end")
(princ)
)end defun
初学编的,改改估计就能达到你的期望,别笑话 |
|