Leaderboard

@Steven P went around in circles but false/true is only half of answer this helped ; UnmergeCells minRow, maxRow, minCol, maxCol (vla-unMergeCells table 0 0 0 1) Even though no Title it was still merged cells.

You could add it to a reactor so when you type save or close it will run. (cond ((= (vlr-current-reaction-name) ':VLR-beginSave) (Princ "\nThis function has been triggered by a Document Save event.")) ((= (vlr-current-reaction-name) ':VLR-beginClose)(princ "\nThis function has been triggered by a Document Close event.")) ) (princ) ) (if (not _BeginCloseReactor) (setq _BeginCloseReactor (VLR-Dwg-Reactor nil '((:VLR-beginClose . BeginCloseFunc))))) (if (not _BeginSaveReactor ) (setq _BeginSaveReactor (VLR-Dwg-Reactor nil '((:VLR-beginSave . BeginCloseFunc))))) I think this will work (defun BeginCloseFunc (reactor lst / ) (c:ZE_Z9X) ) Not sure may need, if lisp not autoloaded which I would suggest. (if (not ZE_Z9XP) (progn (load "ZE_Z9XP") (command "ZE_Z9XP") ) )

@Emmanuel Delay was working same thing. Almost finished just had to add text. for me I use this for mid point of a 4 side pline. (setq mp (mapcar '* (mapcar '+ pt1 pt3) '(0.5 0.5))) No Table of result ? That is what I did first. You can use this if you want. (setvar 'ctablestyle "standard") (Setq curspace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) (setq pt1 (vlax-3d-point (getpoint "\nPick point for top left hand of table: "))) (setq numrows 3) (setq numcolumns 2) (setq rowheight 530) (setq colwidth 1600) (setq objtable (vla-addtable curspace pt1 numrows numcolumns rowheight colwidth)) (vla-settext objtable 0 0 "Totals") (vla-settext objtable 1 0 "Width") (vla-Setrowheight Objtable 1 940) (vla-settext objtable 1 1 "SOM\nLength") (vla-SetTextStyle custObj (+ acDataRow acHeaderRow acTitleRow) "Standard") (setq objtable (vlax-ename->vla-object (entlast))) (vla-SetAlignment objtable (+ acDataRow acHeaderRow acTitleRow) acMiddleCenter) (vla-SetTextHeight objtable (+ acDataRow acHeaderRow acTitleRow) 250) maybe later today have to go now.

Either of these any help (vla-put-TitleSuppressed table :vlax-false) (vla-put-HeaderSuppressed table :vlax-false)