表の分割高さを取得します。
サポートされているプラットフォーム: Windows のみ
VBA:
RetVal = object.GetBreakHeight(nIndex)
タイプ: Table
このメソッドが適用されるオブジェクト。
アクセス: 入力のみ
タイプ: 長整数型
表のインデックス。
タイプ: 倍精度浮動小数点数型
分割の高さの値。
追加の注意はありません。
VBA:
Sub Example_BreakHeight() ' This example creates a table object and then breaks it into ' two tables. ' Create a new table object 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
Visual 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 object 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) )