Actually, I've retested my code and found lacks... This is now better - there are 2 types - one with Titles and other without - the other list is list of lists with strings - rows (first row is Header)... Here are 2 lisps for testing - if you already have TABLE, you can try something like (lst2table (table2lst (car (entsel "\nPick TABLE...")))) ... It should create almost identical table just without correct scale and in insertion point 0,0,0...
(defun lst2table ( lst / pt as cols rh cw ttl data rows sty tbl r k )
(vl-load-com)
(setq rh
(vla-gettextheight
(setq sty
(vla-item
(vla-item (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object))) "acad_tablestyle")
(getvar 'ctablestyle)
)
)
acdatarow
)
)
(setq pt (vlax-3d-point '(0.0 0.0 0.0))
as (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
cols (if (listp (caadr lst)) (length (caadr lst)) (length (car lst)))
ttl (if (not (listp (car lst))) (car lst))
data (if (not (listp (car lst))) (cadr lst) lst)
data (mapcar '(lambda ( x ) (mapcar '(lambda ( y ) (if (null y) "" y)) x)) data)
rows (if (not (listp (car lst))) (1+ (length data)) (length data))
);setq
(if ttl
(vla-enablemergeall sty "Title" :vlax-true)
(vla-enablemergeall sty "Title" :vlax-false)
)
(setq cw (apply 'max (mapcar '(lambda ( x ) (apply 'max (mapcar 'strlen x))) (apply 'mapcar (cons 'list data)))));setq
(setq tbl (vla-addtable as pt rows cols (* 2.5 rh) (* 0.8 cw)));active space/ins point/# rows/# cols/row ht/col wid
(if (vlax-property-available-p tbl 'regeneratetablesuppressed t)
(vla-put-regeneratetablesuppressed tbl :vlax-true)
)
(vla-put-stylename tbl (getvar 'ctablestyle))
(if ttl
(progn
(vla-settext tbl 0 0 ttl)
(setq r 1)
)
(setq r 0)
)
(foreach i data
(setq k -1)
(foreach ii i
(vla-settext tbl r (setq k (1+ k)) ii);table/row/col/text
(cond
( (and ttl (> r 1))
(vla-setcellalignment tbl r k acmiddleleft)
)
( (and (not ttl) (= r 0))
nil
)
( t
(vla-setcellalignment tbl r k acmiddleleft)
)
)
);foreach
(setq r (1+ r))
);foreach
(setq cw (mapcar '(lambda ( x ) (apply 'max (mapcar 'strlen x))) (apply 'mapcar (cons 'list data))))
(setq k -1)
(foreach c cw
(vla-setcolumnwidth tbl (setq k (1+ k)) (* c rh 1.25))
);foreach
(if (vlax-property-available-p tbl 'regeneratetablesuppressed t)
(vla-put-regeneratetablesuppressed tbl :vlax-false)
)
(vla-update tbl)
(princ)
);defun
;|
(lst2table '("LEGEND OF SYMBOLS" (("Symbol" "Description") ("DD-SYM" "Full full-wood or gypsum-filled doors or non-transparent material without metal elements without taking into account the locksmith") ("WW-SYM" "Window with glass - fully transparent solid wood hatch - PVC material or frames made of non-transparent material without metal elements without taking into account locksmith") ("DW-SYM" "Balcony doors or glass doors - fully transparent hollow solid wood hatch - PVC material or frames made of non-transparent material without metal elements without taking into account the locksmith") ("DM-SYM" "Balcony doors or glass doors - a fully transparent hole or hole filled with semi-transparent material (laminated glass or lexan) of solid wood - PVC material or frames made of non-transparent material with metallic elements of the enclosure at the height of the parapet or along the entire height of the door with a clearly defined split subconstruction") ("WM-SYM" "Glass window - fully transparent hole or hole filled with semi-transparent material (glass-lined glass or lexan) made of solid wood - PVC material or frames made of non-transparent material with metal fencing elements along the entire height of the window with a clearly defined subdivision") ("OM-SYM" "Metal fence with free intermediate between metal parts or interstitials filled with semi-transparent material (screened-reinforced glass or lexan)") ("MM-SYM" "Full metal fence or door or window without free interstice between metal parts") ("OZ-SYM" "Perforated parapet wall or wall with elements of full material with free intermediate or interstitials filled with semi-transparent material (screened-reinforced glass or lexan) between full elements of a staircase or a full masonry frame") ("ZZ-SYM" "A full wall or a full parapet wall"))))
|;(defun table2lst ( tab / rr cc row lst ) ; tab - ACAD TABLE ( ename or vla-object )
(vl-load-com)
(if (= (type tab) 'ename)
(setq tab (vlax-ename->vla-object tab))
)
(if (= (cdr (assoc 0 (entget (vlax-vla-object->ename tab)))) "ACAD_TABLE")
(progn
(setq rr -1)
(repeat (vla-get-rows tab)
(setq rr (1+ rr) cc -1)
(repeat (vla-get-columns tab)
(setq cc (1+ cc))
(setq row (append row (list (vlax-variant-value (vla-getcellvalue tab rr cc)))))
)
(setq lst (cons row lst) row nil)
)
(setq lst (reverse lst))
(if (vl-every 'null (cdr (car lst)))
(setq lst (append (vl-remove nil (car lst)) (list (cdr lst))))
lst
)
)
)
)HTH., M.R.
Marko Ribar, d.i.a. (graduated engineer of architecture)
