变换对象

Sub Ch4_TransformBy()

    ' 创建直线

    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

    ' 将 transMat 变量初始化为
    ' 转换矩阵，该矩阵将对象绕
    ' 点 (0,0,0) 旋转 90 度
    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#
    ' 使用定义的转换矩阵来变换直线
    lineObj.TransformBy transMat
    lineObj.Update
End Sub