Lisp Tweak Please...

[Lee Mac]

Jadeous, please try this:

 

(defun c:reNum  (/ ENT I SS)
 (vl-load-com)
 (or sNum (setq sNum 1)) (or inNum (setq inNum 1))

 (setq sNum  (cond ( (getreal (strcat "\nSpecify Starting Number <" (rtos sNum 2 2) ">: "))) (sNum))
       inNum (cond ( (getreal (strcat "\nSpecify Increment <" (rtos inNum 2 2) ">: "))) (inNum))
       Pref  (getstring t (strcat "\nSpecify Prefix <-None->: "))
       Suff  (getstring t (strcat "\nSpecify Suffix <-None->: ")))
 
 (if (setq i -1 ss (ssget '((0 . "INSERT") (66 . 1))))
   
   (while (setq ent (ssname ss (setq i (1+ i))))
     
     (foreach att (vlax-invoke (vlax-ename->vla-object ent) 'GetAttributes)
       
       (cond (  (eq "POINT" (strcase (vla-get-TagString att)))
                (vla-put-TextString att (strcat Pref (rtos sNum) Suff))
                (setq sNum (+ sNum inNum)))))))
 
 (princ))

 

Its pretty much what I posted above though.

[Jadeous]

Hello Lee Mac. The first lisp in this thread is the one the worked in 2006. The longer one, not the short one. The short never worked for me. I posted a new thread that has a better explaination.

 

Its called, "Old Lisp Doesn't Work in 2008 ACAD"

[Lee Mac]

The short never worked for me.

 

What error do you get?

 

Does it still error with the above post?

[Jadeous]

I figured I would revisit this older post of mine to thank LeeMac for the above mentioned lisp routine. I have been using it for several years and I love it.

 

Now I have discovered how to attach blocks to Multileaders with attribute text inside them. This is the time I miss my dear Renum lisp. It works on regular blocks and such, but not multileaders...

 

I am working with hundreds of these Weld Joint Number multileaders and I have to change them one by one. It takes quite awhile.

 

I was hoping someone could maybe adjust the current "renum" lisp I have to work on multileaders as well. I have attached the block I am using for the multileader.

 

any help would be great. Thank you.

Weld Joint Number.dwg