Request For a Lisp to Clear Attribute value

[timothy_crouse]

I found this lisp but was not able to get it to run even though it states that it has loaded successfully:

https://forums.augi.com/showthread.php?47024-Clear-All-Attribute-Values-In-a-Block

***Abdul Hucks Code from Link ***

(defun clearatts (/ blocks numBlocks counter blkref)
  (setq blocks (ssget "x" '((2 . "MyBlockName"))))
  (if blocks 
	(progn
	  (setq numBlocks (sslength blocks)
	 counter   0
	  )
	  (repeat numBlocks
 (setq blkref (ssname blocks counter ))
 (setq blkref (vlax-ename->vla-object blkref))
 (foreach att (vlax-invoke blkref 'getattributes)
   (vla-put-textstring att "")
 )
 (setq counter (1+ counter))
	  )
	)
	(princ "\nNo specific blocks in the drawing!")
  )
  (princ)
)

The goal is to have the lisp clear attribute values as the user selects them.

I should note the blocks I use are both standard and dynamic blocks (if that makes a difference).

FYI ATTWIPE does not seem to work on dynamic blocks.  And I have had no luck finding a lisp other than ATTWIPE.

Thanks for considering helping on this if you have time.

Best Regards

-Tim C.

[timothy_crouse · Accepted solution]

I found a solution in this forum:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-to-remove-text-from-a-selected-...

-Tim C.