到目前为止,这些似乎都很有效,有待讨论,我相信它们会更好[代码这就是我想要使用矩阵的原因
- Sub TestMultiplyMatrix()
- Dim P, Ent As AcadEntity
- Dim i As Integer
- Dim M, ContextData, TransMatrix
-
- ThisDrawing.Utility.GetSubEntity Ent, P, TransMatrix, ContextData
- ThisDrawing.ModelSpace.AddPoint P
- If VarType(ContextData) = vbEmpty Then
- MsgBox "This is not a block"
- Exit Sub
- End If
- M = InverseMatrix(TransMatrix)
-
- P = TransformPt(M, P)
- P = NearestPtOnObject(Ent, P)
- P = TransformPt(TransMatrix, P)
- ThisDrawing.ModelSpace.AddPoint P
-
- End Sub
最近的ptonobject(Ent,p)函数不包括在I'中;我还在努力
我想;走这么远会让我从数学上有一点休息,但相反,我似乎打开了潘多拉';s盒
距离椭圆最近的点是疯狂的。我甚至不知道这篇文章是在提供证据还是在提出问题。本人';我倾向于使用一个提到“的词;最佳猜测;, |