acDisplayDCS矩阵

MickD · 发表于 2006-9-6 01:06:04

不错。
围绕向量旋转的最简单方法是移动ucs，使向量成为z轴（旋转轴），只要x和y仍然是正交的，就不管x和y指向哪个方向，因为你只是围绕z轴旋转给定的量。

Bryco · 发表于 2006-9-10 13:13:37

要使用这个矩阵，我仍然需要找到一些神奇的数字。
我认为它与acad help
中提到的3d视图的中心有关。

Bryco · 发表于 2006-9-10 16:18:23

这是一个我感到困惑的例子
运行此子命令，然后运行3dorbit命令
目标是找到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