AddSolid メソッド(ActiveX)

2D 塗り潰しポリゴンを作成します。

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

構文と要素

VBA:

RetVal = object.AddSolid(Point1, Point2, Point3, Point4)

object

タイプ: Block、ModelSpace、PaperSpace

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

Point1

アクセス: 入力のみ

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

1 番目の点を指定する 3D WCS 座標。

Point2

アクセス: 入力のみ

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

2 番目の点を指定する 3D WCS 座標。

Point3

アクセス: 入力のみ

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

3 番目の点を指定する 3D WCS 座標。

Point4

アクセス: 入力のみ

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

4 番目の点を指定する 3D WCS 座標。

戻り値(RetVal)

タイプ: Solid

新しく作成される 2D 塗り潰しポリゴン

注意

最初の 2 点は、多角形の 1 辺を定義します。第 3 の点は、第 2 の点の対角線上の向かい合った点として定義されます。第 4 の点が第 3 の点と等しく設定されると、塗り潰し三角形が作成されます。

ソリッドは、AutoCAD のシステム変数 FILLMODE がオンに設定されている場合にのみ塗り潰されます。システム変数の設定または取得には、それぞれ SetVariable メソッドおよび GetVariable メソッドを使用します。

例

VBA:

Sub Example_AddSolid()
    ' This example creates a solid in model space.
    
    Dim solidObj As AcadSolid
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim point3(0 To 2) As Double
    Dim point4(0 To 2) As Double
    
    ' Define the solid
    point1(0) = 0#: point1(1) = 1#: point1(2) = 0#
    point2(0) = 5#: point2(1) = 1#: point2(2) = 0#
    point3(0) = 4#: point3(1) = 6#: point3(2) = 0#
    point4(0) = 8#: point4(1) = 8#: point4(2) = 0#

    ' Create the solid object in model space
    Set solidObj = ThisDrawing.ModelSpace.AddSolid(point1, point2, point3, point4)
    ZoomAll
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_AddSolid()
    ;; This example creates a solid in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the solid
    (setq point1 (vlax-3d-point 0 1 0)
          point2 (vlax-3d-point 5 1 0)
          point3 (vlax-3d-point 4 6 0)
          point4 (vlax-3d-point 8 8 0))

    ;; Create the solid object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq solidObj (vla-AddSolid modelSpace point1 point2 point3 point4))
    (vla-ZoomAll acadObj)
)