关于转换对象 （VBA/ActiveX）
您可以使用该方法移动、缩放或旋转给定 4 x 4 变换矩阵的对象。TransformBy 下表演示了转换矩阵配置，其中 R = 旋转，T = 平移：
要转换对象，请首先初始化转换矩阵。以下示例显示了分配给变量的变换矩阵，该矩阵将围绕点 （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 以下是转换矩阵的更多示例：
相关概念父主题： | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-3-14 05:55
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
