[LISP程序]：标注的批量修改

逐月飞鸿

如何快速的把尺寸标注数字修改成如下格式呢，请大侠给帮助一下：

就是选中的标注，里面的各个标注尺寸A/B/C……等自动加上一个20后，变成A～A+20，B～B+20……
例如：原来如果是数据300，运行后就变成300～320.
如图：
谢谢！

逐月飞鸿

得到明经通道的启发
修改如下
(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")
)

sunjwwcj

天正的好像也有这个功能，很不错的说

xiaoruntu114

你们的代码为何在cad中不能执行？是什么原因？哪里可以找到执行命令？说要加载通用库，过程中说只有特定客户才能使用？我该如何办才能使用你们网站的lisp程序及插件，能不能给个步骤？我是个新手。