AddTable メソッド(ActiveX)

図面にテーブルを追加します。

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

構文と要素

VBA:

RetVal = object.AddTable(InsertionPoint, NumRows, NumColumns, RowHeight, ColWidth)

object

タイプ: Block、ModelSpace、PaperSpace

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

InsertionPoint

アクセス: 入力のみ

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

表を挿入する位置を示す図面内の 3D WCS 座標。

NumRows

アクセス: 入力のみ

タイプ: 長整数型

表の行数。

NumColumns

アクセス: 入力のみ

タイプ: 長整数型

表の列数。

RowHeight

アクセス: 入力のみ

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

表の行の高さ。

ColWidth

アクセス: 入力のみ

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

表の列の幅。

戻り値(RetVal)

タイプ: Table

新しく作成される表オブジェクト。

注意

追加の注意はありません。

例

VBA:

Sub Example_AddTable()
    ' This example adds a table in model space

    Dim MyModelSpace As AcadModelSpace
    Set MyModelSpace = ThisDrawing.ModelSpace
    Dim pt(2) As Double
    Dim MyTable As AcadTable
    Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)
    ZoomExtents

End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_AddTable()
    ;; This example adds a table in model space
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq pt (vlax-3d-point 0 0 0))

    (setq modelSpace (vla-get-ModelSpace doc))
    (setq MyTable (vla-Addtable modelSpace pt 5 5 10 30))
    (vla-ZoomExtents acadObj)
)