社区 › VBA/VB/ActiveX/API 编程技术 › 如何自定义坐标系

zhy_li 发表于 2006-4-27 22:23:00

如何自定义坐标系

<P>AUTOCAD的WCS是Y轴向上的，我想建立一个Y轴向下的坐标系，下面是我的代码：</P>
<P>Dim ucsObj As AcadUCS, origin(2) As Double, xAxisPnt(2) As Double, yAxisPnt(2) As Double<BR>xAxisPnt(0) = 1: yAxisPnt(1) = -1<BR>Set ucsObj = CadDoc.UserCoordinateSystems.Add(origin, xAxisPnt, yAxisPnt, "newUCS")<BR>CadDoc.ActiveUCS = ucsObj<BR></P>
<P>问题是在新坐标系下添加的文字都是倒的！不知道这是为何？请高手帮忙</P>

zhy_li 发表于 2006-4-27 22:26:00

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

查看完整版本: 如何自定义坐标系