如何创建二维坐标系啊？

thankyou

如何创建二维坐标系啊？ 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坐标为什么是反的啊？

雪山飞狐_lzh

xAxisPoint(0) = origin(0)+1: xAxisPoint(1) = origin(1): xAxisPoint(2) = 0
yAxisPoint(0) = origin(0): yAxisPoint(1) = origin(1)+1: yAxisPoint(2) = 0

wyj7485

可以了，非常感谢！