GET BLOCK ATTRIBUTE VALUE

[atawk]

I need a Lisp routine that allows to get the block attribute values into a multileader. I need to get the TAG value and PROMPT value into 2 different lines. (see attached picture). 

[dmfrazier]

Assuming the attribute values are coming from the object (assuming it's an attributed block) that the mleader points to, can you simply add fields in the mleader text that reference the attributes in the block?

[atawk]

yes the attribute values will come from the selected block that include attribute. then the multileader will include these attribute values. 

[dmfrazier]

Can you simply add fields in the mleader text that reference the attributes in the block?

[paullimapa]

Here are multiple threads online that will give you the tag and prompt values on the screen. It’s just a matter of modifying the code to feed this into mleader command

https://www.cadtutor.net/forum/topic/70636-get-tag-prompt-value-of-block-attributes/

https://www.theswamp.org/index.php?topic=36833.0

[komondormrex]

for all attribute definitions in block

(setq tag_prompt_list nil)
(setq insert (vlax-ename->vla-object (car (entsel "\nPick block reference: "))))
(vlax-map-collection (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (vla-get-effectivename insert))
	'(lambda (attribute_definition)
	 	(cond
			(
			 	(= "AcDbAttributeDefinition" (vla-get-objectname attribute_definition))
			 		(setq tag_prompt_list (append tag_prompt_list (list (list (vla-get-tagstring attribute_definition)
												      	    (vla-get-promptstring attribute_definition)
											    	      )
										       		)
							      	   )
					)
			)
			(
			 	t
			)
		)
	  )
)
(setq mleader_text (apply 'strcat (mapcar '(lambda (_list) (apply 'strcat _list))
					   (mapcar '(lambda (_list)
						    	(mapcar '(lambda (list_element) (strcat list_element "\\P"))
								_list
							)
						    )
						    tag_prompt_list
					   )
			   	  )
		   )
)
(command "_mleader" "_h" (getpoint "\nPick mleader landing point: ") pause mleader_text "")