快速批量更改标注数字

逐月飞鸿

如何快速的把尺寸标注数字修改成如下格式呢，请大侠给帮助一下： 就是选中的标注，里面的各个标注尺寸A/B/C……等自动加上一个20后，变成A～A+20，B～B+20…… 例如：原来如果是数据300，运行后就变成300～320. 如图：谢谢！

phoenixdjq

(defun c:mm()
(setq ss (ssget '((0 . "DIMENSION"))))
(setq n 0)

(command "undo" "begin")
(repeat (sslength ss)
(setq ent (ssname ss n))
(setq dxf (entget ent))
(setq bzz (assoc 42 dxf))
(setq bz (cdr bzz))
(setq xin (strcat (rtos bz 2 0) "~" (rtos (+ bz 20) 2 0)))
(command "dimedit" "n" xin ent "")
(setq n (+ 1 n))
)

(command "undo" "end")
)

逐月飞鸿

phoenixdjq也太高了，这么短的时间就有了回答，谢谢！

不过测试了一下，运行错误啊

yoyoho

phoenixdjq 的程序

在AUTOCAD 2008 运行

非常O.K. 没出现错误情况

是否有版本的问题啊!

phoenixdjq

呵呵：）

我用的是06，也没有问题，测试过了

别的版本没有测试

逐月飞鸿

程序没有问题，就是那个计算的参数取值有问题啊

例如：原始标注尺寸为35的，运行后为2～22，应该为35～55啊

逐月飞鸿

组码错误应该如下：

(defun c:mm()
(setq ss (ssget '((0 . "DIMENSION"))))
(setq n 0)

(command "undo" "begin")
(repeat (sslength ss)
(setq ent (ssname ss n))
(setq dxf (entget ent))
(setq bzz (assoc 1 dxf))
(setq bz (cdr bzz))
(setq b (atof bz))
(setq xin (strcat (rtos b 2 0) "~" (rtos (+ b 20) 2 0)))
(command "dimedit" "n" xin ent "")
(setq n (+ 1 n))
)

(command "undo" "end")
)

yoyoho

当标注文字被修改过

(1 . "35")
(42 . 35.0)

当标注文字未修改过

(1 . "")
(42 . 35.0)

执行mm.lsp程序结果 不一样喔!

逐月飞鸿

那怎样判断是不是被修改过呢？

yoyoho

;;;想选中被替换掉值的标注                                 
(ssget '((0 . "DIMENSION")(1 . "~<>")(1 . "~")))