custom attribute numbering lisp

[jetxcc]

hopefully you can read the red text on the picture as it explains what i'm looking for...if not, let me know and I'll type it out again. thank you 

 

 

 

[ReMark]

Red text against a black background is never easy to read.

[ronjonp]

1 hour ago, ReMark said:

Red text against a black background is never easy to read.

 

Edited June 30, 2020 by ronjonp

[BIGAL]

Here is an example note layout names include "Model" it numbers based on layout order as this can be different to just get layout names. Use the (vla-get-count tabs) for the number of layouts - 1.

 

(defun c:1rev ( / len doc lay plotabs newstr tabname oldtagn ss1 att x y)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq tabs (vla-get-Layouts doc))
(setq y 0)
(setq bname "DA1DRTXT")
(setq oldtagn "REV_NO")
(setq newstr (-(getint "Please enter version for sheets..") 1))
(repeat (vla-get-count tabs)
(vlax-for lay tabs
(setq x (vla-get-taborder lay))
(setq tabname (vla-get-name lay))
(if (and (= y x) (/= tabname "Model"))
(progn
      (setvar "ctab" tabname)
      (setq ss1 (ssget "x"  (list (cons 0 "INSERT") (cons 2 bname)(cons 410 tabname))))
      (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 0 )) 'getattributes)
        (if (= oldtagn (strcase (vla-get-tagstring att)))
           (vla-put-textstring att (rtos (setq newstr (+ newstr 1)) 2 0))
        )
      )
)
)
)
(setq y (+ y 1))
)
)
(c:1rev)

 

 

 

Edited July 1, 2020 by BIGAL