(setq Count$ (rtos (sslength Block_set) 2 0)) ( (and Block_srch (setq Block_set (ssget "X" Block_srch))) (cond Now output (ignores unused blocknames) ) ) Limit to current layer if All not opted ( (= (ascii Block_name) 42) nil ) Ignore anonymous blocks: "*." (setq Block_list (tblnext "BLOCK" (not Block_list)))īlock_srch (cond Step through entire block name database (while Inform user processing is starting (if (/= Option "All") (setq C_layer (cons 8 (getvar "CLAYER")))) (T(textscr) (prompt "\nPlease wait.Counting block insertions.Found.") ) ) ) ) ) Default is do blocks on current layer "All occurrences/Current layer only/eXit" "] : " ( (= "eXit" (setq Option (getkword (strcat "List [" ( (initget "All Current eXit") ) Initialize options for user input Option User option for output of block quantities (or exit)Ĭ_layer Current layer's name con'd with its assoc key (īlock_list List of block's table informationīlock_cons List of block's name con'd with 2 (its assoc key)īlock_set Selection set of all blocks with given name (
0 Comments
Leave a Reply. |