CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

AddTable 方法（ActiveX）

2024-5-18 16:53| 发布者: admin| 查看: 122| 评论: 0|原作者: admin|来自: AutoCAD

将表格添加到图形中。

支持的平台：仅限 Windows

签名

VBA：

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

对象

类型：块、模型空间、纸空间

此方法应用到的对象。

插入点

访问：仅输入

类型：变体（双打的三元素阵列）

插入表格的图形中的 3D WCS 坐标。

NumRows（数字行）

访问：仅输入

类型：长

表中的行数。

NumColumns

访问：仅输入

类型：长

表中的列数。

行高度

访问：仅输入

类型：双

表中行的高度。

ColWidth

访问：仅输入

类型：双

表中列的宽度。

返回值（RetVal）

类型： 表格

新创建的表对象。

言论

没有其他评论。

例子

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

可视化 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)
)