tfyyf 发表于 2004-12-19 08:08:00

关于UserCoordinateSystems问题！

本帖最后由 作者 于 2004-12-20 11:42:38 编辑 <br /><br /> 请问：



源代码：


　Dim newUCS As AcadUCS


                Dim origin(0 To 2) As Double<BR>                       Dim xAxis(0 To 2) As Double<BR>                       Dim yAxis(0 To 2) As Double<BR>                       origin(0) = 0: origin(1) = 0: origin(2) = 0<BR>                       xAxis(0) = 1000: xAxis(1) = 200: xAxis(2) = 0<BR>                       yAxis(0) = -200: yAxis(1) = 1000: yAxis(2) = 0<BR>                       Set newUCS = AcadApp.ActiveDocument.UserCoordinateSystems.Add(origin, xAxis, yAxis, "TestUCS")<BR>                       AcadApp.ActiveDocument.ActiveUCS = newUCS<BR>


其中：


                       origin(0) = 0: origin(1) = 0: origin(2) = 0<BR>                       xAxis(0) = 1000: xAxis(1) = 200: xAxis(2) = 0<BR>                       yAxis(0) = -200: yAxis(1) = 1000: yAxis(2) = 0<BR>是如何确定自定义坐标系和世界坐标系夹角的？

tfyyf 发表于 2004-12-20 11:37:00

哪位高手知道请告知，先谢谢了！

雪山飞狐_lzh 发表于 2004-12-20 13:32:00

xAxis和yAxis呀


你的代码不是很清楚么


       


http://www.vba.cn/object/acad2004/idh_xvector.htm


http://www.vba.cn/object/acad2004/idh_yvector.htm

tfyyf 发表于 2004-12-20 14:29:00

我明白了，谢谢飞狐版主
页: [1]
查看完整版本: 关于UserCoordinateSystems问题！