![]() ![]() ) By : Gia Bach, gia_bach ( vl-load-com ) ( defun TxtWidth (val h msp / txt minp maxp ) ( setq txt ( vla-AddText msp val ( vlax-3d-point ' ( 0 0 0 )) h )) ( vla-getBoundingBox txt 'minp 'maxp ) ( vla-Erase txt ) ( - ( car ( vlax-safearray->list maxp ))( car ( vlax-safearray->list minp ))) ) ( defun GetOrCreateTableStyle (tbl_name / name namelst objtblsty objtblstydic tablst txtsty ) ( setq objTblStyDic ( vla-item ( vla-get-dictionaries *adoc ) "ACAD_TABLESTYLE" ) ) ( foreach itm ( vlax-for itm objTblStyDic Len0 lst_blk msp pt row ss str tblobj width width1 width2 x y free lisp from Altered by Greg Battin for english use Find replace 10 with 8 ( defun c:BlkQty ( / blk_id blk_len blk_name blks ent h header_lsp height i j TOTAL ![]() ![]() Select blocks by either individual picks or with a window selection.An additional feature is to specify the text size of the text within the table which gives you extra control over the size of the table (notice that I set the text style to 4″ instead of the default 6″).Īlso note that to load the lisp, I just drag & dropped it into the drawing area. As I promised in an earlier post, here is the block counter that places a table with a preview of the block within the table.
0 Comments
Leave a Reply. |