Edit Block Attributes

[T2oog]

Hi,

I am new to the forum and to AutoLISP.  I have looked at several posts on this topic but they look more complicated than what I want, and I get confused.   If I can get some good detailed answers, it might help me begin to understand LISP better.

I have a block named, "1REV1".

It has the following tags:

MICROFILM

NO

DATE

1

BY

CHK'D

ENG

APP

To keep this simple for now, I only want to get the block (1REV1) and change the existing DATE attribute value (whether empty or not) to one defined in the LISP. 

Thank You,

New User

[paullimapa]

did you find this thread in your search:

Solved: EDIT ATTRIBUTE VALUE WITH LISP - Autodesk Community - AutoCAD

[ВeekeeCZ]

If there is only one of its kind in the drawing, not dynamic, here is your magic line. Tag is case-sensitive.

(setpropertyvalue (ssname (ssget "X" '((0 . "INSERT") (2 . "1REV1"))) 0) "DATE" one-defined-in-the-LISP)

[Sea-Haven · Accepted solution]

Try this can replace newdate with say a get string for date or get current date from ACAD.

(defun wow (bname tagname newdate / ss1 x)
(setq ss1 (ssget "x"  (list (cons 0 "INSERT") (cons 2 bname)(cons 410 "model"))))
(repeat (setq x (sslength ss1))
   (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 (setq x (1- x) ))) 'getattributes)
        (if (= tagname (strcase (vla-get-tagstring att)))
        (vla-put-textstring att newdate)
        )
   )
)
(princ)
)
(wow "1REV1" "DATE" "newdate")

[T2oog]

It looks like a great example. I am just beginning and don't understand. I am ordering a book.
Thanks though

[T2oog]

I will have a closer look at this one. Like my comment above, I have not yet put things together.
Thanks

[T2oog]

This one runs when I open the drawing. It changes the "newdate" to whatever I enter in its place, such as "9/27/22". It does what I asked for, although maybe I would rater it run when I type "wow". I am new and have ordered a book with hopes of learning. Maybe other beginners will find this post helpful.

Thank You!

[Sea-Haven]

Books are available on KINDLE very cheap, also Afralisp has a series of tutorials worth looking at.

Just add the lines like (setq date (getstring "\nEnter date xx/xx/xxxx ")) before the ssget and hard code the other variables bname and tagname.

Remove the passing variables at start (defun wow  / date ss1 x) ; note the localization of variables.

Good to see trying to learn you will get more help having a go rather than I want.