Attribute replacing

[prasanthbalu]

Is there any LISP that can replace the one attribute tag value with another..Actually in my title block there are revision numbers as follows

Rev Description Date Dwn Chkd Appd Appd

0 For review 02/aug/10 NS BG JG YF

1 For Approval 02/--/10 NS BG JG YF

A For construction 02/--/10 NS BG JG YF

B For construction 02/--/10 NS BG JG YF

My intension is to replace the Rev 0 line with rev A & Rev 1 line with Rev B in order to submit as built…

Please Advise

[Lee Mac]

Do each of your values have the same attribute tag?, i.e. Do "0" and "1" both have attribute tag "Rev"? (similar for Description etc.)

If they do, a program would have to rely on the order of the attributes in the block definition and *hope* it turns out OK..

[prasanthbalu]

No each have different tags as rev_0 ,rev_1 etccc

Thank you....

[prasanthbalu]

Is there any LISP that can replace the one attribute tag value with another..Actually in my title block there are revision numbers as follows

Rev Description Date Dwn Chkd Appd Appd

0 For review 02/aug/10 NS BG JG YF

1 For Approval 02/--/10 NS BG JG YF

A For construction 02/--/10 NS BG JG YF

B For construction 02/--/10 NS BG JG YF

My intension is to replace the Rev 0 line with rev A & Rev 1 line with Rev B in order to submit as built…

Please Advise

[Opie]

Have you tried searching the AutoLISP forums for threads that deal with attributes?

[irneb]

Let me get this straight: you have a TB with 4 separate AttDefs inside for revisions. Named rev_0, rev_1, ...

Methinks a dynamic block might do! Unless I'm completely misunderstanding.

[prasanthbalu]

@ Irneb,Thank you very much for your response sorry I am littlebit delayed to reply ..

Exactly what you said I needed.. Actually the title block has given by the client and its not permitted to change that..So there is no option to use dynamic blocks..I have gone through all the threads here. But I couldn't find out the exact one..if you find similar please refer it to me... .. It will be fine if I could find a single lisp programme to do this..Thanks in advance.....
...

[irneb]

You might be lucky to find such, but I wouldn't make my hopes up too high. Your scenario is quite unique, very few would have made their TB's that way - so your best bet would be to get hold of some of those more general routines (e.g. My BlockData.LSP in this thread) - there are various others if you prefer.

Then you need to either modify them, or (as per those in mine) just re-use the functions in your own code. Basically something like:

(load "BlockData")
(if (setq bRef (entsel "\nPick title block: "))
  (progn
    (setq bObj (vlax-ename->vla-object (car bRef)))
    (cond
      ((wcmatch (Blocks:GetAttrValue bObj "Rev") "0") ;Test if Rev is 0
       (Blocks:PutAttrValue bObj "Rev" "A") ;Change to A
       (Blocks:PutAttrValue bObj "Description" "For construction")
       ;; Etc.
      )
      ((wcmatch (Blocks:GetAttrValue bObj "Rev") "1")
       (Blocks:PutAttrValue bObj "Rev" "B")
       (Blocks:PutAttrValue bObj "Description" "For construction")
       ;; Etc.
      )
    )
  )
)

Edit: This may need quite some customizing for your case. Unfortunately it's not very simple to figure it out without a sample drawing.

[prasanthbalu]

Thank you,,
Let me play with this

[pbejse]

I saw one a similar request like this way back. written by Peter of this forum called Bump.lsp

http://www.augi.com/forums/showthread.php?t=126841

Do each of your values have the same attribute tag?, i.e. Do "0" and "1" both have attribute tag "Rev"? (similar for Description etc.)

If they do, a program would have to rely on the order of the attributes in the block definition and *hope* it turns out OK..

You're right Lee. a program like this will be block and position/order specific. in which case Tag Name is irrelevant

One thing i dont get is the way you "bump" the Rev box. I would have think it would be like B would take place where A was and C -> B 0->C 1->0 and leave the top one as blank forthe As built info

(defun c:test (/ TB AttColl cnt)
(setq TB (vlax-ename->vla-object (car (entsel))))
(setq AttColl (vlax-invoke TB 'GetAttributes) cnt 6)
      (repeat (- (length AttColl) 7)
            (setq TheText (vla-get-textstring (nth (setq cnt (1+ cnt)) AttColl)))
            (vla-put-textstring (nth (- cnt 7) AttColl) TheText
                  ))
      (repeat 7
            (vla-put-textstring (nth cnt  AttColl) ""
                  )(setq cnt (1- cnt))
            )
      )

In this example. (see attached) I already know that the second line of this revision box starts with attribute number 7 (rev_1)
(actually 6 of the list <index 0>). I can tell the code to start reading and pass it on the (rev_0)
and leave the last one as blank, or we can write it in such away the code will prompt you for the values on the last 7 tags

like this

(defun c:test2 (/ TB AttColl cnt)
(setq TB (vlax-ename->vla-object (car (entsel))))
(setq AttColl (vlax-invoke TB 'GetAttributes) cnt 6)
      (repeat (- (length AttColl) 7)
            (setq TheText (vla-get-textstring (nth (setq cnt (1+ cnt)) AttColl)))
            (vla-put-textstring (nth (- cnt 7) AttColl) TheText
                  ))
      (setq cnt 20)
      (foreach  prmpt '("Revision Number/Letter: "
                    "Description: "
                    "Date: "
                    "Drawn By: "
                    "Checked By"
                    "Approved By [1]: "
                    "Approved By [2]: ")
     (while (eq ""
       (setq New (getstring (strcat "\n" prmpt)))))
	 (vla-put-textstring (nth (setq cnt (1+ cnt)) AttColl)  New)
       )
      )