(setq myblklist (subst (list blktruename (bumpBlkStateCount blkvisstate (cadr (assoc blktrueName myblklist)))) (assoc blktrueName myblklist) myblklist) ) (while (vla-object (cdr (assoc -1 blkdata))) get the entity objectīlktruename (vla-get-EffectiveName blkobj) get the effective block name (dynamic block store actual name here)īlkvisstate (myGetDisplayStateFunction blkobj) Here we call our function ot get visstate (setq mynum (sslength myss) get the length of the selection set (progn group all the following commands into one process block (if myss Check and see if there is a selection set "INSERT")))) Create a selection set of all the inserts (blocks) in your drawing (defun countblocksandstates() define in the new function I have some comments in there to help if you want to figure out what I was doing. I did not know what you wanted to do with the actual data, so I made a crude text output to show the results.Īs I was putting this together I see has provided a solution with pretty output.
0 Comments
Leave a Reply. |