CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2020 开发者帮助 › 查看内容

AutoCAD 2020 开发者帮助

关于旋转对象（VBA/ActiveX）

2024-5-18 18:19| 发布者: admin| 查看: 83| 评论: 0|原作者: admin|来自: AutoCAD

关于旋转对象（VBA/ActiveX）

可以旋转所有图形对象和属性参照对象。

若要旋转对象，请使用为该对象提供的方法。此方法需要输入基点和旋转角度。基点是具有三个双精度的变体数组。这些双精度表示 3D WCS 坐标，指定定义旋转轴的点。旋转角度以弧度为单位指定。此角度决定了对象相对于其当前位置围绕基点旋转的距离。Rotate

绕基点旋转折线

本示例创建闭合的轻量级折线，然后将折线绕基点（4， 4.25， 0）旋转 45 度。

Sub Ch4_RotatePolyline()
  ' Create the polyline
  Dim plineObj As AcadLWPolyline
  Dim points(0 To 11) As Double
  points(0) = 1: points(1) = 2
  points(2) = 1: points(3) = 3
  points(4) = 2: points(5) = 3
  points(6) = 3: points(7) = 3
  points(8) = 4: points(9) = 4
  points(10) = 4: points(11) = 2
  Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
  plineObj.Closed = True
  ZoomAll

  ' Define the rotation of 45 degrees about a
  ' base point of (4, 4.25, 0)
  Dim basePoint(0 To 2) As Double
  Dim rotationAngle As Double
  basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0
  rotationAngle = 0.7853981   ' 45 degrees

  ' Rotate the polyline
  plineObj.Rotate basePoint, rotationAngle
  plineObj.Update
End Sub