Topic: "If" modification for attributes

[Biscuits]

This routine will change all attributes with the value of 2005 to 2006.
How can I make it so it will also change any attribute value of 2004, 2003, 2002, etc. to 2006?
Thanks

Code: [Select]



(defun c:YEAR () ;(/  dastr )
 (setvar "cmdecho" 0)

 (setq dastr (strcat "2006"))

 (setq atts (ssget "x" '((0 . "INSERT") (66 . 1))))
 (if atts
  (progn
   (setq cnt 0)
   (repeat (sslength atts)
    (setq ename (ssname atts cnt))
    (while ename
     (setq ename (entnext ename))
     (if (/= (cdr (assoc 0 (entget ename))) "ATTRIB")
      (setq ename nil)
      (progn
       (if (= (cdr (assoc 1 (entget ename))) "2005")
        (progn
         (entmod (subst (cons 1 dastr) (assoc 1 (entget ename)) (entget ename)))
         (entupd (ssname atts cnt))
         (setq ename nil)
        )
       );end if
      )
     );end if
    );end while
    (setq cnt (1+ cnt))
   );end repeat      
 ));end if
)


[Jürg Menzi]

Code: [Select]

...
      (setq ename nil)
      (progn
       (setq AttVal (cdr (assoc 1 (entget ename))))
       (if (and
            (wcmatch AttVal "####")
            (> (atoi AttVal)  1990)
            (< (atoi AttVal)  2006)
           )
        (progn
...

[Biscuits]

I forgot to mention I'm using 2002 and I'm not sure where to place your portion of the code.

[Jeff_M]

Biscuits, Jürg used the ..... to show that he is clipping into the original code and then the

Code: [Select]


(setq ename nil)
    (prognshows WHERE it is cutting in
and the last (progn is where it is done cutting in. So in the original code replace this part with what he posted:

Code: [Select]

(setq ename nil)
      (progn
       (if (= (cdr (assoc 1 (entget ename))) "2005")
        (progn