如何自定义坐标系

zhy_li

AutoCAD的WCS是Y轴向上的，我想建立一个Y轴向下的坐标系，下面是我的代码：

Dim ucsObj As AcadUCS, origin(2) As Double, xAxisPnt(2) As Double, yAxisPnt(2) As Double
xAxisPnt(0) = 1: yAxisPnt(1) = -1
Set ucsObj = CadDoc.UserCoordinateSystems.Add(origin, xAxisPnt, yAxisPnt, "newUCS")
CadDoc.ActiveUCS = ucsObj

问题是在新坐标系下添加的文字都是倒的！不知道这是为何？请高手帮忙

zhy_li

我的意图是将VB界面中PICTURE1的内容原封不动的绘制到AUTOCAD中，而PICTURE1的坐标是Y轴下向的，所以要将AUTOCAD的坐标改成一致，但出现了意外的结果。