Topic: Attribute tags name that change from sheet to sheet.

[Krushert]

I have revision block to update with the next issue for more than a hundred drawings.  My problem is that some sheets were issued previously more than others and thus this this will have different revision number for each sheet.  (whatever letter is next in line).  IN reviewing all the lisp that edit attributes I did not see any that jump out as the ticket.  And since this set has to be issued this Friday, I am ready to start filling them out manually.  

So I wondering if any you know of something that is already created that I did not find or realize would work.  Of something that is good starting point because we have going to have more revisions.

What I need it to do.

• After block selection it has step thru all the attributes and cull out the attributes that are empty.
• Then sort the empty attributes by the tag-name and then cull out the attributes that are next in line.
• And then fill in those next-in-line attributes with the user or hard coded data

[David Hall]

what i would do would be grab the rev block and check the value that is there.  convert that letter to the ascii #, +1 and put in the new one

[T.Willey]

Will skip revision letters I, O and Q.  Works with number strings also.

I have one for up'ing revisions, but it is specific to a company title block.  Not an easy thing to change if you did not write the code, sorry.

Code: [Select]

(defun UpRevisionString (String / tmpPos tmpStr tmpStr2 tmpStr3 EndStr tmpAddValue)
    ; Update to the new revision. A->B, Z->AA, AZ->BA, AZA->AZB
   
    (setq tmpPos (strlen String))
    (while (and (/= tmpPos 0) (= (setq tmpStr (substr String tmpPos 1)) "Z"))
        (setq tmpPos (1- tmpPos))
        (if tmpStr2
            (setq tmpStr2 (strcat "A" tmpStr2))
            (setq tmpStr2 "A")
        )
    )
    (if (= tmpPos 0)
        (repeat (1+ (strlen String))
            (if EndStr
                (setq EndStr (strcat EndStr "A"))
                (setq EndStr "A")
            )
        )
        (progn
            (setq tmpStr3 (substr String 1 (1- tmpPOs)))
            (if (or (= tmpStr "H") (= tmpStr "N") (= tmpStr "P"))
                (setq tmpAddValue 2)
                (setq tmpAddValue 1)
            )
            (setq tmpStr (chr (+ tmpAddValue (ascii tmpStr))))
        )
    )
    (cond
        (EndStr
            EndStr
        )
        ((and tmpStr tmpStr2 tmpStr3)
            (strcat tmpStr3 tmpStr tmpStr2)
        )
        ((and tmpStr tmpStr3)
            (strcat tmpStr3 tmpStr)
        )
    )
)