您可以使用该方法移动、缩放或旋转给定 4 x 4 转换矩阵的对象。TransformBy 下表演示了转换矩阵配置,其中R=旋转和平移:
要转换对象,请先初始化转换矩阵。下面的示例演示分配给变量的转换矩阵,该矩阵将围绕点 (0, 0, 0) 将实体旋转 90 度:tMatrix tMatrix(0,0) = 0.0 tMatrix(0,1) = -1.0 tMatrix(0,2) = 0.0 tMatrix(0,3) = 0.0 tMatrix(1,0) = 1.0 tMatrix(1,1) = 0.0 tMatrix(1,2) = 0.0 tMatrix(1,3) = 0.0 tMatrix(2,0) = 0.0 tMatrix(2,1) = 0.0 tMatrix(2,2) = 1.0 tMatrix(2,3) = 0.0 tMatrix(3,0) = 0.0 tMatrix(3,1) = 0.0 tMatrix(3,2) = 0.0 tMatrix(3,3) = 1.0 转换矩阵完成后,使用该方法将矩阵应用于对象。以下代码行演示如何将矩阵 () 应用于对象 ():TransformBytMatrixanObj anObj.TransformBy tMatrix 使用转换矩阵旋转线条本示例创建一条线,并使用转换矩阵将其旋转 90 度。 Sub Ch4_TransformBy() ' Create a line Dim lineObj As AcadLine Dim startPt(0 To 2) As Double Dim endPt(0 To 2) As Double startPt(0) = 2 startPt(1) = 1 startPt(2) = 0 endPt(0) = 5 endPt(1) = 1 endPt(2) = 0 Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt) ZoomAll ' Initialize the transMat variable with a ' transformation matrix that will rotate ' an object by 90 degrees about the point(0,0,0) Dim transMat(0 To 3, 0 To 3) As Double transMat(0, 0) = 0#: transMat(0, 1) = -1# transMat(0, 2) = 0#: transMat(0, 3) = 0# transMat(1, 0) = 1#: transMat(1, 1) = 0# transMat(1, 2) = 0#: transMat(1, 3) = 0# transMat(2, 0) = 0#: transMat(2, 1) = 0# transMat(2, 2) = 1#: transMat(2, 3) = 0# transMat(3, 0) = 0#: transMat(3, 1) = 0# transMat(3, 2) = 0#: transMat(3, 3) = 1# ' Transform the line using the defined transformation matrix lineObj.TransformBy transMat lineObj.Update End Sub The following are more examples of transformation matrices:
|
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-6-10 19:38
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.