坐标系的?

xiaokk

Sub test_XY_UCS()
Dim myUCS As AcadUCS, P0(2) As Double, P1(2) As Double, P2(2) As Double
P1(1) = 1: P2(0) = 1
Set myUCS = ThisDrawing.UserCoordinateSystems.Add(P0, P1, P2, "abc")
ThisDrawing.ActiveUCS = myUCS

Dim LineObj As AcadLine
Dim pt1(2) As Double, pt2(2) As Double
pt2(1) = 1

Dim ucspt1, ucspt2 As Variant
ucspt1 = ThisDrawing.Utility.TranslateCoordinates(pt1, acUCS, acWorld, False)
ucspt2 = ThisDrawing.Utility.TranslateCoordinates(pt2, acUCS, acWorld, False)
Set LineObj = ThisDrawing.ModelSpace.AddLine(ucspt1, ucspt2)

dim aaa as acadtext
set aaa=ThisDrawing.ModelSpace.addtext("明经cad",p1,5)
End Sub

以上程序,想在p1点上插入"明经cad"文本,但得出来的确是"dac经明",文本被反向了,版主可以运行下这程序,看看就更明白了.
请问该怎么解决?谢谢!

zfbj

下次在这里提问要用“明经通道”，我就更乐意回答。: )


经过测试，问题在于你的坐标系，如果不创建新的UCS，就不会出现这个问题。

xiaokk

问题是我现在用ucs，有什么解决办法吗？