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

AutoCAD 2018 开发者帮助

BreaksEnabled 属性（ActiveX）

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

指定是否启用换表符。

支持的平台：仅限 Windows

签名

VBA：

object.BreaksEnabled

对象

类型： 表格

此属性应用于的对象。

属性值

只读：不

类型：布尔

确定是否正在使用表分隔。启用后，表将在当前指定高度自动中断。

言论

没有其他评论。

例子

VBA：

Sub Example_BreakHeight()
    ' This example creates a table object and then breaks it into
    ' two tables.
    
    ' Create a new table objetc in model space
    Dim pt(2) As Double
    
    Dim modelSpace As AcadModelSpace
    Set modelSpace = ThisDrawing.modelSpace
    
    Dim table As AcadTable
    Set table = modelSpace.AddTable(pt, 5, 5, 10, 30)
    
    table.EnableBreak = True
    table.BreakSpacing = 3.5
    table.TableBreakHeight = 35#
    table.AllowManualHeights = True
    table.SetBreakHeight 0, 20#
    table.SetBreakHeight 1, 35#
    
    ZoomExtents
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_BreakHeight()
    ;; This example creates a table object and then breaks it into
    ;; two tables.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; Create a new table objetc in model space
    (setq pt (vlax-3d-point 0 0 0))
  
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq table (vla-Addtable modelSpace pt 5 5 10 30))

    (vla-put-EnableBreak table :vlax-true)
    (vla-put-BreakSpacing table 3.5)
    (vla-put-TableBreakHeight table 35.0)
    (vla-put-AllowManualHeights table :vlax-true)
    (vla-SetBreakHeight table 0 20.0)
    (vla-SetBreakHeight table 1 35.0)

    (vla-ZoomExtents acadObj)
)