How to with Block list.

[Steven D. Papke]

If I wanted to make an instance of an existing block in the drawing say, door to door_01, how does one go about accessing this information? Or moverover, how does one concatenate the _01 on the end of an existing name in the file?

 

[Steven D. Papke]

This is where I am going with this.

(prompt "\nSelect source block: ") ; Select Source Block (setq bkpic (entsel)) (setq bkpicmod (car bkpic)) (setq bknam (cdr (assoc 2 (entget bkpicmod)))) ; Find out blockname (setq bknamins bknam) (setq bknamins (entmod bknam "_01"))

I want to make a copy of the existing block and rename it to include _01 prior to the extension.
Any insight?

 

[Mark (archive)]

maybe
(entmod (strcat bknam "_01"))
but first make sure it does not exist

 

[Mark (archive)]

sorry, i meant
(setq entlist (entget bkpicmod))
(entmod (subst (cons 2 (strcat bknam "_01")))(assoc 2 entlist) entlist))

 

[Steven D. Papke]

Thanks for your help Joe and Mark.

 

[Steven D. Papke]

Thanks Alex. this is pretty cool as well.