Removing unwanted blocks and renaming blocks.

[Tony_9D]

Hi,
Very new to programming but need to achieve the following in Autocad 2014.

In brief, I use a scaffolding software that produces a lot of unwanted blocks, and its naming convention isn't good.

I need a script or routine to remove a load of unwanted blocks (so select all blocks definitions with that name and delete, dont care about the block definition itself, just all instances of it in the drawing)

_deck_end
_donut
_donutt6

etc....

and then to rename a load of block definitions so they can be exported into another software program.

_Deck_0 to Boards
_Deck_Toe to Kicks
_hop_7 to 2BHU

etc....

If possible, I could also do with renaming certain blocks that would be selected by name & also by the value in the geometry, scale X properties value.. That one might be tricky I know..

Any help would be amazing, either by example code or a pointer to a similar routine so I can try and reverse engineer it and modify to suit my needs..

Thanks

Tony

[Tom Beauford]

This should do the trick:

(defun c:blkDelRen ( / ss count)
	(setq ss (ssget "X" '((0 . "INSERT")(2 . "_deck_end,_donut,_donutt6")))
	      count (1- (sslength ss))
	)
	(while (> count 0) 
		(princ (ssname ss count))
		(entdel (ssname ss count))
		(setq count(1- count))
	)
	(command "-rename" "_Deck_0" "Boards")
	(command "-rename" "_Deck_Toe" "Kicks")
	(command "-rename" "_hop_7" "2BHU")
)

After loading run the blkDelRen command.

[Tony_9D]

Brilliant...

Thank you so much Tom..

[Tom Beauford]

Brilliant...

Thank you so much Tom..

Whenever you go to a more current version you will need to change those "command" calls to "command-s" as that was recent change. Glad it worked for you. Hope you enjoy the AUGI Forum, it's been quite valuable for me over the years.

[peter]

i almost exclusively us vl-cmf instead of command or command-s. vl-cmdf returns T for success and nil for faliure. P=

[Tom Beauford]

i almost exclusively us vl-cmf instead of command or command-s. vl-cmdf returns T for success and nil for faliure. P=

It would have been a better choice for this code as it's been around for some time vl-cmdf would work in his and future versions.

AutoCAD's help compares both vl-cmdf and command-s to command, but not each other. Command-s returns nil or error. I've been using the newer command-s lately, but bow to your expertice in error handling.

[BIG-AL]

Tom a couple of suggestions, once you have the selection set ss why not just delete it ? Rather than delete each entity.

A repeat could be used to do the rename using a slightly different list

(setq x 0)
(setq lst ("_Deck_0" "Boards" _Deck_Toe" "Kicks" "_hop_7" "2BHU"))
(repeat (length (/ lst 2)) 
(command-s "rename" (nth x lst) (nth (+ x 1)) lst)
(setq x (+ x 2))
)

[Tom Beauford]

Tom a couple of suggestions, once you have the selection set ss why not just delete it ? Rather than delete each entity.

I could have used

(sssetfirst nil ss)(command-s "erase")

or ronjonp's code https://www.theswamp.org/index.php?t...3255#msg503255

(mapcar '(lambda (e) (vla-delete (vlax-ename->vla-object e))) (mapcar 'cadr (ssnamex ss)))