关于UserCoordinateSystems问题！

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

本帖最后由作者于 2004-12-20 11:42:38 编辑

请问：源代码：　Dim newUCS As AcadUCS Dim origin(0 To 2) As Double
Dim xAxis(0 To 2) As Double
Dim yAxis(0 To 2) As Double
origin(0) = 0: origin(1) = 0: origin(2) = 0
xAxis(0) = 1000: xAxis(1) = 200: xAxis(2) = 0
yAxis(0) = -200: yAxis(1) = 1000: yAxis(2) = 0
Set newUCS = AcadApp.ActiveDocument.UserCoordinateSystems.Add(origin, xAxis, yAxis, "TestUCS")
AcadApp.ActiveDocument.ActiveUCS = newUCS
其中： origin(0) = 0: origin(1) = 0: origin(2) = 0
xAxis(0) = 1000: xAxis(1) = 200: xAxis(2) = 0
yAxis(0) = -200: yAxis(1) = 1000: yAxis(2) = 0
是如何确定自定义坐标系和世界坐标系夹角的？

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

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

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

xAxis和yAxis呀

你的代码不是很清楚么

[WEB]http://www.vba.cn/object/acad2004/idh_xvector.htm[/WEB]

[WEB]http://www.vba.cn/object/acad2004/idh_yvector.htm[/WEB]

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

我明白了，谢谢飞狐版主

账号		自动登录	找回密码
密码			注册