如何创建二维坐标系啊？

thankyou · 发表于 2004-7-13 16:26:00

如何创建二维坐标系啊？ Dim ucsObj As AcadUCS
   Dim origin As Variant
   Dim xAxisPoint(0 To 2) As Double
   Dim yAxisPoint(0 To 2) As Double
origin = ThisDrawing.Utility.GetPoint(, "指定标注原点：")
xAxisPoint(0) = origin(0): xAxisPoint(1) = 0: xAxisPoint(2) = 0
yAxisPoint(0) = 0: yAxisPoint(1) = origin(1): yAxisPoint(2) = 0
Set ucsObj = ThisDrawing.UserCoordinateSystems.Add(origin, xAxisPoint, yAxisPoint, "UCS1")
ThisDrawing.ActiveUCS = ucsObj
就象在CAD里用UCS命令一样效果。以上程序建立出来的X坐标为什么是反的啊？