Block Rename to Attribute Tag Value

[NAZEEB.HAMZA]

Hi All,

I am trying to rename my blocks with the Attribute tag value.

In the included example drawing I have 2 different Blocks (Style-M) & (Style-L) with multiple copies of each.

And each copies have its unique Attributes and I want to rename each copies of the block using the Attribute values.

For e.g. Style-M blocks will need be renamed using the attributes to 2000, 2001, 2002 ...

I have been searching the forum and the closest I could find is the below.

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/block-rename-to-attribute-text-value...

The LISP as it is doesn't work for my requirement, but I am hopeful that the experts here can provide a solution.

Thanks!

Nazeeb H

[pbejse · Accepted solution]

---

@NAZEEB.HAMZA wrote:

For e.g. Style-M blocks will need be renamed using the attributes to 2000, 2001, 2002 ...

---

Untested... copied from link

I see its a different , let me get my hands on a computer, hang on.

Here you go.

(Defun c:renb ( /. aDoc blocks ss i effname e)
  (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object))
	blocks (vla-get-blocks adoc))
  	(if (setq ss (ssget "_:L" '((0 . "INSERT"))))
	  	(repeat (setq i (sslength ss))
		  	(setq e (vlax-ename->vla-object (ssname ss (setq i (1- i))))
				effname (vla-get-EffectiveName e))
		  (cond
		    (	(not (setq atval (vl-some
				      '(lambda (at)
					 (if (= (vla-get-tagstring at) "PK1") (vla-get-textstring at)))
			  	(vlax-invoke e 'GetAttributes)))		
						)
		     )
		    ( (tblsearch "BLOCK" atval) (vlax-put e 'Name atval)
		     				)
		    ( (=  effname atval)	)	
		    ( T
		       (vlax-invoke e 'ConvertToAnonymousBlock) 
		       (vla-put-name (vla-item blocks (Vlax-get e 'Name)) atval) )
		    			)
		  )	
	  )
  (princ)
  )

HTH

[kajanthangavel]

It working..... 😀

[NAZEEB.HAMZA]

Awesome!!! It is working, Thanks a lot Mr. Patrick.

I also really appreciate the quick response.

[pbejse]

---

@NAZEEB.HAMZA wrote:

Awesome!!! It is working, Thanks a lot.

Also I really appreciate the quick solution!

---

Good to hear that. You are welcome  🙂

- One is glad to be of service -- 

Nice to know it works for you too @kajanthangavel 

[Anonymous]

Hi!

Thanks for the code.

Is it possible to change the code so it makes a new block but only whit the content of the specified layer? I have a block that contains two layers and I need content of only one layer.

Thank you!

Denis

[pbejse]

---

@Anonymous wrote:

Is it possible to change the code so it makes a new block but only whit the content of the specified layer? I have a block that contains two layers and I need content of only one layer.

---

That's an interesting twist to the original intent of the code. I supposed it can be done. How would the user specify the layer ? and what will be the eventual name of the block? will it still be from an attribute value?

[Anonymous]

thanks for answer

it could be specified in the code that the content of the layer named LAYER1 should create the new named block. 

I didn't say at the first post...content of the second layer should move outside the block, not to be deleted.

Yes, the name will still be from an attribute value.

tnx

d

[pbejse]

-move outside the block, -

On every instance of the block?

A sample drawing would explain much better than how the way you were describing the intent.

[Anonymous]

Sorry for not being clear...here is a sample drawing

content of layer2 could be in the old block if that's easier to do...

[pbejse]

But what of the value of the attributes? Are you wanting to retain the value and not leave it as a broken link?

[Anonymous]

If it's any problem to retain value it can be a broken link.

[pbejse]

---

@Anonymous wrote:

Sorry for not being clear...here is a sample drawing

content of layer2 could be in the old block if that's easier to do...

---

I had to delete the "K_NP_125_65_140" block that was there on the sample drawing , as the insertion point is way off.

Here's how the code works

The list shown on the code is key.

(setq BnameLayer '(("POLICA" "POLICA" "LAYER1")))

• The first item of the list is the Block name
• Second item is the TAG name as the source for the new name
• Third item is the layer name to be retained on the renamed block, the rest will be left "outside"

Command: REBeL

Select objects: Specify opposite corner: 12 found

Select objects:
Block reference renamed to: K_NP_125_65_140
Block reference renamed to: K_NP_125_35_140
Block reference renamed to: K_NP_100_45_140
Block reference renamed to: K_NP_90_35_140

HTH

Refer to attached files [ Rename Explode By Layer.dwg | Rename Explode By Layer.lsp ]

[Anonymous]

Thank you very much, it is working perfectly!

Regards!

Denis

[pbejse]

---

@Anonymous wrote:

Thank you very much, it is working perfectly!

Regards!

Denis

---

Glad i could help 🙂