Overall Table Height

[traci_haberghamJQEJT]

Hi all, I'm trying to generate a table (thank you to @Sea-Haven for the base code).

One thing I'm struggling with is the overall table height.  This is how the table is generated which is fine if I change the table value to 1000 in the properties box.  I've tried changing all kinds of values and cannot get the table to generate correctly.  Any ideas welcome.

Thank you

Traci

[pendean]

Your table image is totally out of proportion, looks like you opted for all the incorrect settings in both TABLE and TABLESTYLE commands: are you wanting to use LISP to avoid using those two commands?

[traci_haberghamJQEJT]

Yes I have a lisp to create the table but I can't get the heights right and I don't know why!   Could I set the column height and if so how would I do this?  Thanks

(command "table" 3 3 (getpoint "\nPick point for table "))
(setq objtable (vlax-ename->vla-object (entlast)))
(vla-Setcolumnwidth objtable 0 (* (nth 0 collst)(* txtht 1.5)) )
(vla-Setcolumnwidth objtable 1 (* (nth 1 collst)(* txtht 1.5)) )
(vla-Setcolumnwidth objtable 2 (* (nth 2 collst)(* txtht 1.5)) )
(vla-settext objtable 0 0 "Existing Net Internal Areas")
(vla-settext objtable 1 0 "Floor Level")
(vla-settext objtable 1 1 "Area m²")
(vla-settext objtable 1 2 "Area feet²")
)

[Sea-Haven · Accepted solution]

You can setrowheight, 0 is title 1 is header 2 is data etc.

(vla-setrowheight objtable 0 (* txtht 2.5))