这是一个混淆I#039;我有
运行此子命令,然后运行3dorbit命令
目的是找到三维轨道的中心;这在一段时间内效果很好
再次运行,然后';这不好
- Sub OrbitCenter()
- Dim C, T, O, P As AcadPoint
- Dim Util As AcadUtility
-
- Set Util = ThisDrawing.Utility
- ThisDrawing.SetVariable "PDSIZE", 0.5
- ThisDrawing.SetVariable "PDMODE", 35
- C = ThisDrawing.GetVariable("viewctr")
- C = Util.TranslateCoordinates(C, acUCS, acWorld, 0)
-
- T = ThisDrawing.GetVariable("target")
- T = Util.TranslateCoordinates(T, acUCS, acWorld, 0)
-
- Set P = ThisDrawing.ModelSpace.AddPoint(C)
- P.color = acGreen
- Set P = ThisDrawing.ModelSpace.AddPoint(T)
- Dim dMid(2) As Double
- dMid(0) = (C(0) + T(0)) / 2
- dMid(1) = (C(1) + T(1)) / 2
- dMid(2) = (C(2) + T(2)) / 2
-
- Set P = ThisDrawing.ModelSpace.AddPoint(dMid)
- P.color = acYellow
- ThisDrawing.ModelSpace.AddLine C, T
- End Sub
在新图形中,目标getvar为0,0,0,键入摄像机,命令:ca摄像机指定新摄像机位置<;6.0000,4.8571,18.3799>;: 
指定新的摄像机目标(<;6.0000,4.8571,0.0000>;: ;再生模型
自I';m在英寸dwg中,x和y值是;极限(12,9)(我假设实际数随分辨率而变化)
新的目标值似乎从旧的z值开始,并取屏幕中心x和y。但是18.3799来自哪里
|