Extracting Attribute Value from Title Block

[cad675189]

Hi,

I'm trying to edit a lisp file and not having much luck.

I need to extract an attribute value from a block and recall it later in the lisp.

The block is called DAA-Title-Rev, the attribute tag is called REV and the value should be called lat_rev.

I'd be really grateful if someone could point me in the right direction with this.

May thanks in advance.

[Tharwat]

Try this UNTESTED codes and after that you should have the text string values in the global variable *lst* and to check that out , after invoking the program type at the command line !*lst* then hit enter to see the string(s) if available.

(defun c:Test (/ ss i sn)
  (princ "\nSelect attributed block(s) :")
  (if (setq ss (ssget '((0 . "INSERT") (66 . 1))))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (vl-some '(lambda (x)
                  (if (eq (strcase (vla-get-tagstring x)) "REV")
                    (setq *lst* (cons (vla-get-textstring x) *lst*))
                  )
                )
               (vlax-invoke (vlax-ename->vla-object sn) 'Getattributes)
      )
    )
  )
  (princ)
)
(vl-load-com)

[cad675189]

Thanks for the help, much appreciated.

[Tharwat]

Thanks for the help, much appreciated.

You're welcome . happy to help.