将多个多义线绕中点旋转90度的问题

alwaysbin · 发表于 2004-8-10 13:26:00

我的图是一个软件生成的，它的尺寸断线用的是多以线。
现在的问题是，如果我把图形镜像以后，所以的尺寸断线都反向了，我如何一次把它们全部旋转90度，并且是按中点？这样就能达到我的效果了。
请高手指点！！
我把附图传上来，一看就明白了。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

xyp1964 · 发表于 2004-8-10 14:01:00

没有办法，因为你将标注都打碎了。
只能一个一个移动到需要的位置。
标注线与尺寸数字是相关联的，除非不得已，尽量不要打碎尺寸标注，否则影响以后的编辑操作。
切记！

alwaysbin · 发表于 2004-8-10 19:11:00

这个软件生成的图就是这样，我也没有办法。应该可以吧，我们画图的风格都是这种，只是我们一般都用图块做尺寸断线，我就编了一个用于块的旋转程序，现在只是把图块换成了pline，我觉得肯定可以实现。meflying斑竹在不在？alin大侠在不在？把我的程序贴上来，大家参考。

copy


(defun c:ss()
   (prompt "选择区域")
   (setq ss (ssget '((0 . "INSERT"))))
;(setq ang (getreal "输入旋转角度:"))
   (setq i 0)
   (repeat (sslength ss)
       (setq ent (ssname ss i))
       (setq pt (cdr (assoc 10 (entget ent))))
       (command "_.rotate" ent "" pt 90)
       (setq i (1+ i))
   )
   (princ)
)