[求助]高手帮我编辑这样一个程序（以前提的问题还是没解决）

bios

图形中有很多标注，都是转角标注


我的图形中有很多标注，希望能够批量向垂直于标注方向移动一个距离


现在的标注离被标注对象太近了，不满足要求


由于数量很多希望能够批量修改

ZZXXQQ

这还用程序吗？直接用MOVE命令移动尺寸就行了。

zfbj

修改标注样式的尺寸线偏移距离，是不是可以满足你的要求？

bios

由于标注很多很多，而且又不规则，彼此之间有角度。图形标注的很复杂


而且也不能像三楼说得那样，文字已经离被标注目标很近了，仅仅偏移尺寸线不能达到图形要求。


我希望的目的就是能批量处理标注，达到能批量offset标注的目的。


救救我吧，太多了，搞惨了

f5612140

上传的图"感受"不到如何复杂,适当的图例才好提供适当的工具(图档中的说明在我这是乱码,看图说故事,大概知道含意,但不太确定)

bios

呵呵，我有意简化图形，就是使图形小点，因为我图纸中标注太多了，修改十分麻烦，所以就简单说明我的意思，想把意图表明得更为清楚


标注太多了，彼此之间距离很近，现在都是手动一个一个去平易，想请教高手编写一个能迅速移动标注的程序嘛。

meflying

将所选的标注对象沿远离标注对象方向移动一定距离（要移进，可以使用负距离）

2. (defun c:test( / os ss dist i ent ents pt1 pt2 ang)
3.    (setq ss (ssget '((0 . "DIMENSION"))))
4.    (setq dist (getdist "\n输入移动距离:"))
5.    (setq i 0)
6.    (setq os (getvar "osmode"))
7.    (setvar "osmode" 0)
8.    (setvar "cmdecho" 0)
9.    (repeat (sslength ss)
10.        (setq ent (ssname ss i))
11.        (setq ents (entget ent))
12.        (setq pt1 (cdr (assoc 13 ents)))
13.        (setq pt2 (cdr (assoc 14 ents)))
14.        (setq ang (+ (angle pt2 pt1) (/ pi 2.0)))
15.        (command "_.move" ent "" '(0 0) (polar '(0 0) ang dist))
16.        (setq i (1+ i))
17.    )
18.    (setvar "osmode" os)
19.    (princ)
20. )

(defun c:test( / os ss dist i ent ents pt1 pt2 ang)    (setq ss (ssget '((0 . "DIMENSION"))))    (setq dist (getdist "\n输入移动距离:"))    (setq i 0)    (setq os (getvar "osmode"))    (setvar "osmode" 0)    (setvar "cmdecho" 0)    (repeat (sslength ss)        (setq ent (ssname ss i))        (setq ents (entget ent))        (setq pt1 (cdr (assoc 13 ents)))        (setq pt2 (cdr (assoc 14 ents)))        (setq ang (+ (angle pt2 pt1) (/ pi 2.0)))        (command "_.move" ent "" '(0 0) (polar '(0 0) ang dist))        (setq i (1+ i))    )    (setvar "osmode" os)    (princ) )