沿矢量移动对象

From AutoCAD ActiveX/VBA

previous page next page

移动对象

旋转对象

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 编辑对象 > 移动对象 >

沿矢量移动对象

用户可以沿指定的矢量移动所有的图形对象和属性参考对象。

要移动对象，请使用该对象的 Move 方法。这个方法需要输入两个坐标值。这两个坐标值定义了位移矢量，指示给定对象移动的距离和方向。

沿矢量移动圆

本例创建一个圆，然后将此圆沿着 X 轴移动两个单位。

Sub Ch4_MoveCircle()

    ' 创建圆

    Dim circleObj As AcadCircle

    Dim center(0 To 2) As Double

    Dim radius As Double

    center(0) = 2#: center(1) = 2#: center(2) = 0#

    radius = 0.5

    Set circleObj = ThisDrawing.ModelSpace. _

                    AddCircle(center, radius)

    ZoomAll

          ' 定义组成移动矢量的点。
          ' 移动矢量将圆沿 x 轴移动
          ' 两个单位。
          Dim point1(0 To 2) As Double
          Dim point2(0 To 2) As Double
          point1(0) = 0: point1(1) = 0: point1(2) = 0
          point2(0) = 2: point2(1) = 0: point2(2) = 0
                ' 移动圆
          circleObj.Move point1, point2
          circleObj.Update
      End Sub

previous page start next page