Reinsert Blocks - need help with routine

[Arterius]

List apeares but when I select my blocks nothing happend
Can you put names of my blocks inside routine. I have only these two blocks I want to "secure". I will use this lisp for many drawings using AutoScript program.

[pbejse]

List apeares but when I select my blocks nothing happend
Can you put names of my blocks inside routine. I have only these two blocks I want to "secure". I will use this lisp for many drawings using AutoScript program.

I see. Dynamic Block, is that right Arterius?

(defun c:att2txt (/ _data data fdata ss i e from info)
(vl-load-com)
(setq blks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))  
(defun _data (en func l1 l2 rv)
  	(if l2
	(mapcar '(lambda (j k)
		   (func en j (if (and rv (/= 0 rv)
                            (eq j "Rotation")) (- k rv) k))) l1 l2)
  	(mapcar '(lambda (j)	      
		   (func en j)) l1)
	  )
  )

(setq data '( "InsertionPoint" "Height" "TextAlignmentPoint")
      Fdata '("Textstring" "color" "Rotation"  "StyleName" "Alignment" "Layer"
              "ScaleFactor" "UpsideDown" "Backward" 
               )
      )
(if
  (setq ss (ssget "_X" '((0 . "INSERT")(66 . 1)(2 . "BLOCKNAME1,BLOCKNAME2,`*U*"))))
  		(repeat (setq i (sslength ss))
		  	(setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
                        (setq r (vla-get-rotation e))
                  (if (member  (strcase (vla-get-effectivename e)) '("BLOCKNAME1" "BLOCKNAME2"))
                    (progn
			(vlax-invoke e 'ConvertToAnonymousBlock)
			(setq from (mapcar '(lambda (k)
					(setq info (_data k vlax-get fdata nil nil))
					      (vla-delete k) info)	      
						(vlax-invoke e 'GetAttributes)))  	
			 			  	
		(vlax-for itm (setq blk (vla-item
				     blks
				     (vla-get-name e)
				   ))
	(if (eq "AcDbAttributeDefinition" (vla-get-objectname itm))
		(progn
                  (setq fd (car from))
		  (setq old (_data itm vlax-get data nil nil))
		  (setq new (vlax-invoke blk 'AddText (car fd) (car old) (cadr old)))
		  (_data new vlax-put fdata fd r)
                  (vlax-invoke new 'Move '(0.0 0.0 0.0) (last old))
		  (vla-delete itm)
      
		  (setq from (cdr from))
		  )
	  )
		  ) 
		  )
	  )
                  )
          )
(princ)
  )

EDIT/UPDATE: Fudge Attribute properties....

[Arterius]

Sorry for replying so late but I needed to be at home earlier.
I have just tested it, works AWESOME! Great, thanks for your help and engagement.
Second routine (ATTL) also great, I think I will find it very handy
Just one small think, my attributes are on "0" layer (layer color is white) but in Attribute Editor I set it to red, after using routine it turns to color of a layer on which block was. In my case it turned from red to cyan (I had block on layer with cyan color). Can I somehow keep my red color of attributes? It will look beter on printed drawing because cyan is the thickest color I use If it is to much just ignore it. Thanks a lot!

[pbejse]

Sorry for replying so late but I needed to be at home earlier.
I have just tested it, works AWESOME! Great, thanks for your help and engagement.
Second routine (ATTL) also great, I think I will find it very handy

You are welcome Arterius

Just one small think, my attributes are on "0" layer (layer color is white) but in Attribute Editor I set it to red, after using routine it turns to color of a layer on which block was. In my case it turned from red to cyan (I had block on layer with cyan color). Can I somehow keep my red color of attributes? It will look beter on printed drawing because cyan is the thickest color I use If it is to much just ignore it. Thanks a lot!

Yes its possible. Would you want it exclusively RED for ALL or just the "fudge" attributes?

The updated code will inherit the original color prior to conversion.

Hope this helps

[Arterius]

Yes, GREAT! Now it works perfect!

The updated code will inherit the original color prior to conversion.

Exactly what I was dreaming of

I also change your previous routine (ATTL - with list box) to do the same with blocks, I mean this keeping orginal atributes color and surprisingly it works....
Last thing, I have just prepared drawing package for investor to sent, I open some drawing and all my attributes are rotated (up side down)! Can you advice what to change in your routine to keep final rotation of attributes?
(eyes of Puss in Boots form Shrek)

[pbejse]

..... I open some drawing and all my attributes are rotated (up side down)! Can you advice what to change in your routine to keep final rotation of attributes? .....

Rotated/Upside Down/Color/Layer/Backwards... hmmm let me see , what else is there to fudge?

Code updated yet again Arterius

[Arterius]

I got error : "error: malformed string on input" :/ do you have the same?

[pbejse]

I got error : "error: malformed string on input" :/ do you have the same?

Ooops

missing quotation mark. <">

(member (strcase (vla-get-effectivename e)) '("BLOCKNAME1" "BLOCKNAME2"))

[Arterius]

Works great now, thanks a lot again!

[pbejse]

Good for you.

You are welcome Arterius.