Code Red > AutoLISP (Vanilla / Visual)

Redefine only blocks with a prefix name and synchronise attributes

(1/1)

francinez13:
I have a lisp written by Lee Mac which works very well.

My only problem is that when I have hundred of blocks on my drawing the lisp takes a very long time to run.

Is it possible to redefine only the blocks starting with the block name TM.....?

example of block name : TM-1005, TM-0349, TM-1006........

Thank you for your help

Lee Mac:
Replace:

--- Code - Auto/Visual Lisp: ---(not (wcmatch (setq bln (vla-get-name blk)) "`**,*|*"))With:

--- Code - Auto/Visual Lisp: ---(wcmatch (strcase (setq bln (vla-get-name blk))) "TM-*")

Navigation

[0] Message Index