naxcopper.blogg.se - Block count autocad lisp

#Block count autocad lisp free

( setq tabLst ( append tabLst ( list itm )))) ( if ( not ( vl-catch-all-error-p ( setq name ( vl-catch-all-apply 'vla-get-Name ( list itm ))))) ( setq nameLst ( append nameLst ( list name ))) ) ) ( if ( not ( vl-position tbl_name nameLst )) ( vla-addobject objTblStyDic tbl_name "AcDbTableStyle" )) ( setq objTblSty ( vla-item objTblStyDic tbl_name ) ) 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

#Block count autocad lisp free

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.