CADsite forum

Hoe moet je de Table Column Width instellen met LISP?

Even uitleg:
Ik wil met een lisp een table invoegen.
Eerste een tablestyle gemaakt, dit gaat helemaal goed.
Deze tablestyle is schaal afhankelijk.
Als ik dus een dimstyle heb voor schaal 1:500 dan wordt er dus ook een tablestyle gemaakt voor schaal 1:500

Maar als ik nu  een table met commando "table" wil invoegen dan krijg ik eerst het "Insert Table" dialoogvenster waar ik allerlei instellingen kan doen.
Deze stap wil ik overslaan en gelijk een table plaatsen, maar dan met een verschaalde "Column Width".
Ik doe dat met:
(command "_.-table" "AUTO" "AUTO")
Hiermee bepaal je zelf hoeveel rijen en kolommen (dit is dus de bedoeling) maar kun je niet de "Column Width" opgeven.
(Hier wordt gewerkt met acad 2010 en acad 2013)

Alvast bedankt voor het meedenken. 

Beste Eddy,

Als je het wil doen zonder Visual Lisp,
kan het onderstaande je misschien helpen:

(setq p0 '(20 150 0) r 11 k 3 h 1 w 30)
(command "_.TABLE" k r "_H" h "_W" w "_S" "Standard" p0)
(setq p0 '(150 150 0) r 11 k 3 h 1 w 50)
(command "_.TABLE" k r "_H" h "_W" w "_S" "Standard" p0)

Met vriendelijke groet, HofCAD CSI.

Ga er straks even naar kijken. Bedankt alvast.

HofCAD,

Reuze bedankt!!!
Dit is wat ik zocht. Dat ik dat niet aan gedacht heb!

Nog even de oplossing in de praktijk:
(defun Iv_addTable (tablestyle / p0 r k h w)
(setq p0 '(150 100 0) ; een coordinaten lijst
r 11 ; aantal rijen
k 3 ; aantal colums
h 1 ; rij hoogte
w (* 20 (getvar "dimscale")) ;column width
)
(command "_TABLE" k r "H" h "W" w "S" tablestyle p0) ;zet een table op 150,100,0
(command "ERASE" "L" "") ;verwijderd de zo net geplaatste table
(command "_.-table" "AUTO" "AUTO") ; zet de table volgens de manier die ik wil MET de juiste "column width".
)

Ben toch wel nieuwsgierig naar de "Visual Lisp" versie.

Beste Eddy,

Kijk eens in de attachment!

Met vriendelijke groet, HofCAD CSÏ.

Thnx!