xiaokk 发表于 2005-3-25 23:22:00

坐标系的?

本帖最后由 作者 于 2005-3-27 16:39:14 编辑 <br /><br /> <FONT id=text11 style="FONT-SIZE: 10pt" face="宋体,verdana, arial, helvetica">Sub test_XY_UCS() <BR>Dim myUCS As AcadUCS, P0(2) As Double, P1(2) As Double, P2(2) As Double <BR>P1(1) = 1: P2(0) = 1 <BR>Set myUCS = ThisDrawing.UserCoordinateSystems.Add(P0, P1, P2, "abc") <BR>ThisDrawing.ActiveUCS = myUCS <BR><BR>Dim LineObj As AcadLine <BR>Dim pt1(2) As Double, pt2(2) As Double <BR>pt2(1) = 1 <BR><BR>Dim ucspt1, ucspt2 As Variant <BR>ucspt1 = ThisDrawing.Utility.TranslateCoordinates(pt1, acUCS, acWorld, False) <BR>ucspt2 = ThisDrawing.Utility.TranslateCoordinates(pt2, acUCS, acWorld, False) <BR>Set LineObj = ThisDrawing.ModelSpace.AddLine(ucspt1, ucspt2) <BR><BR>dim aaa as acadtext<BR>set aaa=ThisDrawing.ModelSpace.addtext("明经cad",p1,5)<BR>End Sub<BR><BR>以上程序,想在p1点上插入"明经cad"文本,但得出来的确是"dac经明",文本被反向了,版主可以运行下这程序,看看就更明白了.<BR>请问该怎么解决?谢谢!</FONT> <BR>

zfbj 发表于 2005-3-26 11:41:00

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


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

xiaokk 发表于 2005-3-27 16:40:00

问题是我现在用ucs，有什么解决办法吗？
页: [1]
查看完整版本: 坐标系的?