[编程申请]：求让所有的字以各自的中心点旋转90度。

星期八

对方要求把图纸旋转90度，每个标注（用来表示每个房间的用途）都要旋转90度。
一个个转太费时间，有没有好办法。
或者帮忙编个程序。
^_^，谢谢

maplesu

要是以文字的对齐点，我可以做到，要是以中点就比较麻烦（当文字不是以中心对称的时候）
看看下面的帖子里的lisp能不能帮你！

http://www.xdcad.net/forum/showthread.php?s=&threadid=195745

lsjjm

你说的标注是文字(text)吧? 请参考:
(defun c:test ()
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq n 0)
  (while (< n (sslength ss))
    (setq pl (acet-geom-extents (ssname ss n)))
    (setq pb (polar (car pl)(angle (car pl)(cadr pl))
                  (/ (distance (car pl)(cadr pl)) 2)))
    (vl-cmdf "rotate" (ssname ss n) "" pb 90)
    (setq n (1+ n))
  )
)

星期八

不行啊，
Command:  TEST
Select objects: Other corner: 252 found
239 were filtered out.

Select objects: Other corner: 115 found
111 were filtered out.

Select objects:  *Cancel*

lsjjm

如果安装了ET工具不会有问题的.

自由的鱼

最初由 星期八 发布
[B]对方要求把图纸旋转90度，每个标注（用来表示每个房间的用途）都要旋转90度。
一个个转太费时间，有没有好办法。
或者帮忙编个程序。
^_^，谢谢 [/B]

你说的旋转要以什么点为基点？中心点还是文字插入点？

雪山飞狐(lzh)

贴个VBA的练练手
[Code]Sub Test()

    Dim ss As AcadSelectionSet
    Dim i As AcadEntity
    Dim p1, p2
    Dim pnt(2) As Double
    Dim ft(0) As Integer, fd(0)
   
    Set ss = ThisDrawing.ActiveSelectionSet
    ss.Clear
    ft(0) = 0: fd(0) = "Text,MText"
    ss.Select acSelectionSetAll, , , ft, fd
   
    For Each i In ss
        i.GetBoundingBox p1, p2
        pnt(0) = (p1(0) + p2(0)) / 2
        pnt(1) = (p1(1) + p2(1)) / 2
        i.Rotate pnt, Atn(1) * 2
    Next i
   
    ss.Clear
   
End Sub[/Code]

zhaosujun

好东西呀 有没有注坐标的任意角度的LSpP

陌生人

用boundingbox的方法是最好的

自由的鱼

最初由 zhaosujun 发布
[B]好东西呀 有没有注坐标的任意角度的LSpP [/B]

注记坐标程序论坛里太多了！

星期八

谢谢各位，文字修改大师帮了我的忙。^_^