[原创]：申请文字旋转180度的朋友请进！

自由的鱼

不好意思，你的帖我找不到了，就发到这里吧！

Sub tt()
pi = 3.1415926
Dim ent As AcadText
Dim pnt As Variant
Dim sset As AcadSelectionSet
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Ftype(0) = 0
Fdata(0) = "TEXT"
Dim i As Integer
Set sset = ThisDrawing.SelectionSets.Add("ttt")
sset.SelectOnScreen Ftype, Fdata
Dim p1 As Variant
'ThisDrawing.Utility.GetEntity ent, pnt, "choose"
'ent.Alignment = acAlignmentMiddleCenter

For Each ent In sset
ent.Alignment = acAlignmentMiddleCenter
p1 = ent.TextAlignmentPoint
ent.Rotate p1, pi

ent.Update
Next
sset.Delete

End Sub

lsjjm

程序执行后文字不见了?

自由的鱼

文字不见了？让我再看看！

雪山飞狐(lzh)

用GetBoundingBox找中点，旋转
改变ent.TextAlignmentPoint有Bug，文字不是不见了，而是被压得很瘪

陌生人

同意楼上见解，但用getboundingbox，在ucs下如何处理？还没想到好办法。。。
难道真要转回wcs，处理后再返回ucs？各位有何高招？

雪山飞狐(lzh)

直接用三维旋转，在ucs上的Z轴方向找两个点

自由的鱼

想偷一下懒少写几句居然来个BUG，真是晕，呵呵，按照lzh兄的方法改了，这次应该没问题了，：）

Sub tt()
pi = 3.1415926
Dim ent As AcadText
Dim pnt As Variant
Dim sset As AcadSelectionSet
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Dim minpnt As Variant
Dim maxpnt As Variant
Ftype(0) = 0
Fdata(0) = "TEXT"
Dim i As Integer
Set sset = ThisDrawing.SelectionSets.Add("ttt")
sset.SelectOnScreen Ftype, Fdata
Dim p1(0 To 2) As Double
'ThisDrawing.Utility.GetEntity ent, pnt, "choose"
'ent.Alignment = acAlignmentMiddleCenter

For Each ent In sset
ent.Alignment = acAlignmentMiddleCenter
ent.GetBoundingBox minpnt, maxpnt
p1(0) = (minpnt(0) + maxpnt(0)) / 2
p1(1) = (minpnt(1) + maxpnt(1)) / 2
p1(2) = 0
'p1 = ent.TextAlignmentPoint
ent.Rotate p1, pi

ent.Update
Next
sset.Delete

End Sub

雪山飞狐(lzh)

最好把
ent.Alignment = acAlignmentMiddleCenter
去掉

陌生人

编这个还是vba直接（比vlisp而言）

雪山飞狐(lzh)

相对而言，Vlisp“复杂”一点，和VB调用ActiveX倒有点相似，VBA提供了Thisdrawing，就显得“简单”一点
ps：Lisp的括号看的头疼：（

lsjjm

最初由 lzh741206 发布
[B]相对而言，Vlisp“复杂”一点，和VB调用ActiveX倒有点相似，VBA提供了Thisdrawing，就显得“简单”一点ps：Lisp的括号看的头疼：（ [/B]

不会吧, 从程序码语句行看, 还是VLISP简单呀!

自由的鱼

最初由 lsjjm 发布
[B]
不会吧, 从程序码语句行?.. [/B]

如果没有声明段，那就短多了，我也是给LISP的括号整怕了~~~：）

Free-Lancer

已插入点旋转

自由的鱼

最初由 Free-Lancer 发布
[B]已插入点旋转 [/B]

那样位置会变的！

Free-Lancer

textjust 调整为正中对齐然后旋转