ArrayPolar メソッド(ActiveX)

NumberOfObjects、AngleToFill、CenterPoint を指定して、オブジェクトの円形状配列複写を作成します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

RetVal = object.ArrayPolar(NumberOfObjects, AngleToFill, CenterPoint)

object

タイプ: すべての図形オブジェクト

このメソッドが適用されるオブジェクト。

NumberOfObjects

アクセス: 入力のみ

タイプ: 長整数型

円形状配列複写で作成されるオブジェクトの数。これは、2 以上の正数でなければなりません。

AngleToFill

アクセス: 入力のみ

タイプ: 倍精度浮動小数点数型

複写角度(ラジアン)。正の値を入力すると、反時計回りに回転します。負の値を入力すると、時計回りに回転します。角度を 0 にするとエラーが返されます。

CenterPoint

アクセス: 入力のみ

タイプ: バリアント型(3 要素の倍精度浮動小数点数型配列)

円形状配列複写の中心点を指定する 3D WCS 座標。

戻り値(RetVal)

タイプ: バリアント型(オブジェクトの配列)

新しいオブジェクトの配列。

注意

AutoCAD によって、配列の中心点から最後に選択されたオブジェクトの参照点までの距離が決定されます。使用される参照点は、最後に選択されたオブジェクトの種類によって異なります。円または円弧の場合は中心点、ブロックまたはシェイプの場合は挿入点、文字の場合は開始位置、線分または太線の場合は端点の 1 つが使用されます。

このメソッドは、AutoCAD ARRAY[配列複写]コマンド/[円形状(P)]の[複写するオブジェクトを回転させますか?]オプションはサポートしませんので注意してください。

NumberOfObjects = 5、AngleToFill = 180、CenterPoint = 0,0,0 の円形状配列複写

注: コレクション内で何度も繰り返しながら、このメソッドを実行できません。このメソッドは読み書きの操作を行いますが、繰り返し処理を実行すると読み出し専用の作業領域が開いてしまいます。このメソッドを呼び出す前に、繰り返し処理を完了させるようにしてください。

AttributeReference:AttributeReference オブジェクトにこのメソッドを使用するべきではありません。AttributeReference オブジェクトがこのメソッドを継承しているのは、図面オブジェクトの 1 つだからですが、属性参照でこの処理を実行することはできません。

例

VBA:

Sub Example_ArrayPolar()
    ' This example creates a circle and then performs a polar array
    ' 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 = 1
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
    ZoomAll
    MsgBox "Perform the polar array on the circle.", , "ArrayPolar Example"
    
    ' Define the polar array
    Dim noOfObjects As Integer
    Dim angleToFill As Double
    Dim basePnt(0 To 2) As Double
    noOfObjects = 4
    angleToFill = 3.14          ' 180 degrees
    basePnt(0) = 4#: basePnt(1) = 4#: basePnt(2) = 0#
    
    ' The following example will create 4 copies of an object
    ' by rotating and copying it about the point (3,3,0).
    Dim retObj As Variant
    retObj = circleObj.ArrayPolar(noOfObjects, angleToFill, basePnt)
    
    ZoomAll
    MsgBox "Polar array completed.", , "ArrayPolar Example"
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_ArrayPolar()
    ;; This example creates a circle and then performs a polar array
    ;; 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 1)
  
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq circleObj (vla-AddCircle modelSpace center radius))
    (vla-ZoomAll acadObj)
  
    (alert "Perform the polar array on the circle.")
    
    ;; Define the polar array
    (setq basePnt (vlax-3d-point 3 3 0) 
          noOfObjects 4
          angleToFill 3.14)          ;; 180 degrees
    
    ;; The following example will create 4 copies of an object
    ;; by rotating and copying it about the point (3,3,0).
    (setq retObj (vla-ArrayPolar circleObj noOfObjects angleToFill basePnt))
    
    (vla-ZoomAll acadObj)
    (alert "Polar array completed.")
)