移动方法 （ActiveX）

签名

工 务 局：

object.Move Point1, Point2

对象

类型：所有图形对象，属性引用，尺寸

此方法适用的对象。

要点1

访问：仅输入

类型：变体（双精度的三元素数组）

指定移动矢量的第一个点的 3D WCS 坐标。

要点2

访问：仅输入

类型：变体（双精度的三元素数组）

指定移动矢量第二个点的 3D WCS 坐标。

返回值（RetVal）

无返回值。

言论

您指定的两个点定义一个位移矢量，指示给定对象要移动的距离和方向。

给定对象，指示了两个点

移动的对象

例子

工 务 局：

Sub Example_Move()
    ' This example creates a circle and then performs
    ' a move on that circle.
    
    ' Create the circle
    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
    
    ' Define the points that make up the move vector
    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
        
    MsgBox "Move the circle 2 units in the X direction.", , "Move Example"
    
    ' Move the circle
    circleObj.Move point1, point2
    
    ZoomAll
    MsgBox "Move completed.", , "Move Example"
    
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_Move()
    ;; This example creates a circle and then performs
    ;; a move on that circle.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; Create the circle
    (setq center (vlax-3d-point 2 2 0)
          radius 0.5)

    (setq modelSpace (vla-get-ModelSpace doc))
    (setq circleObj (vla-AddCircle modelSpace center radius))
    (vla-ZoomAll acadObj)
    
    ;; Define the points that make up the move vector
    (setq point1 (vlax-3d-point 0 0 0)
          point2 (vlax-3d-point 2 0 0))
        
    (alert "Move the circle 2 units in the X direction.")
    
    ;; Move the circle
    (vla-Move circleObj point1 point2)
    
    (vla-ZoomAll acadObj)
    (alert "Move completed.")
)