need help making addition to existing attribute block numbering lisp

[mtreyger]

Hey,

New to the forums, old to CAD, might as well jump right in with my problem.

I recently found this amazing lisp app by ASMI (AsmiTools_Renum.lsp)

while i find this app very useful, there is another little attribute that i would like added to the lisp.

As it stands, after you give your prefix/suffix/starting number, the lisp begins to start counting from 1 etc...

The problem is that sometimes my blocks need to hold decimal places for counts that will be over 100/1000 etc...

Would it be possible for the app to ask you how many integer places the sequential number should have.

ie.. 3 places for example, so it starts the count at 001 instead of 1.
or for 2 places, so it starts at 01,
or 4 places, so it starts at 0001.

If someone could include the code to do this, or edit the lisp itself, it would be greatly appreciated.

[SteveK]

Hey,

Quick question, why can't you just enter a 0 (or multiple zeros) when the program asks for a prefix? Admittedly you'd have to reset the program when you reach say 10, but is that so common?

[SteveK]

Anyways I had a minute, something like this? (changes are highlighted)

;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  RENUM.LSP - This program converts TEXT, MTEXT and ATTRIBUTES in     ;;
;;              numbers with a prefix and a suffix.                     ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  Command(s) to call: RENUM                                           ;;
;;                                                                      ;;
;;  Specify a suffix, a prefix and starting number (for erase the old   ;;
;;  suffix or prefix you should press Spacebar). Pick to TEXT, MTEXT    ;;
;;  ATTRIBUTES or press Esc to quit. The program remembers old          ;;
;;  properties and it is possible to confirm it pressing of Spacebar    ;;
;;  key.                                                                ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  THIS PROGRAM AND PARTS OF IT MAY REPRODUCED BY ANY METHOD ON ANY    ;;
;;  MEDIUM FOR ANY REASON. YOU CAN USE OR MODIFY THIS PROGRAM OR        ;;
;;  PARTS OF IT ABSOLUTELY FREE.                                        ;;
;;                                                                      ;;
;;  THIS PROGRAM PROVIDES 'AS IS' WITH ALL FAULTS AND SPECIFICALLY      ;;
;;  DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS        ;;
;;  FOR A PARTICULAR USE.                                               ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  V1.0, 16 June, 2005, Riga, Latvia                                   ;;
;;  © Aleksandr Smirnov (ASMI)                                          ;;
;;  For AutoCAD 2000 - 2008 (isn't tested in a next versions)           ;;
;;                                                                      ;;
;;                             http://www.asmitools.com                 ;;
;;                                                                      ;;
;; ==================================================================== ;;



(defun c:renum (/ oldPref oldSuf oldStart curText curStr
        numZeros)
  (vl-load-com)

  (initget 6)
  (setq numZeros (getInt "\nEnter number of 0 prefix's:"))

  (defun num2str (num / numStr)
    (setq numStr (itoa num))
    (If (< (strlen numStr) numZeros)
      (repeat (- numZeros (strlen numStr))
    (setq numStr (strcat "0" numStr))
    )
      )
    numStr
    )
  
  (if(not rnm:Pref)(setq rnm:Pref "")) 
  (if(not rnm:Suf)(setq rnm:Suf "")) 
  (if(not rnm:Start)(setq rnm:Start 1)) 
  (setq oldPref rnm:Pref 
        oldSuf rnm:Suf 
        oldStart rnm:Start); end setq 
  (setq rnm:Pref 
    (getstring T 
      (strcat "\nPrefix: <"rnm:Pref">: "))) 
  (if(= "" rnm:Pref)(setq rnm:Pref oldPref)) 
  (if(= " " rnm:Pref)(setq rnm:Pref "")) 
  (setq rnm:Suf 
    (getstring T 
      (strcat "\nSuffix: <"rnm:Suf">: "))) 
  (if(= "" rnm:Suf)(setq rnm:Suf oldSuf)) 
  (if(= " " rnm:Suf)(setq rnm:Suf "")) 
  (setq rnm:Start 
    (getint 
      (strcat "\nStarting number <" 
         (itoa rnm:Start)">: "))) 
  (if(null rnm:Start)(setq rnm:Start oldStart))
     (while T 
       (setq curStr(strcat rnm:Pref(num2Str rnm:Start)rnm:Suf)) 
         (setq curText 
           (car 
             (nentsel "\n<<< Pick TEXT, MTEXT or ATTRIBUTE or press Esc to quit >>> "))) 
       (if 
         (and 
           curText 
           (member(cdr(assoc 0(entget curText))) '("TEXT" "MTEXT" "ATTRIB")) 
           ); end and 
         (progn 
         (vla-put-TextString 
           (vlax-ename->vla-object curText)curStr) 
            (setq rnm:Start(1+ rnm:Start)) 
         ); end progn 
        (princ "\n This is not DText or MText ") 
        ); end if 
       ); end while 
   (princ) 
  ); end of c:renum

(princ "\n[Info] http:\\\\www.AsmiTools.com [Info]")
(princ "\n[Info] Renumber tool. Type RENUM to run. [Info]")

[mtreyger]

its actually very common,

being a telecom consultant, i have to label outlets in a office building,

so we're talking hundreds of outlets per floor

im going to try the code addition and see if it works shortly.

[mtreyger]

amazing work steve, works like a charm, thank you

[SteveK]

No problem.
Not sure if you'll find it more useful but have you tried Lee Mac's Number Incrementing program?

[vinod]

Anyways I had a minute, something like this? (changes are highlighted)

;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  RENUM.LSP - This program converts TEXT, MTEXT and ATTRIBUTES in     ;;
;;              numbers with a prefix and a suffix.                     ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  Command(s) to call: RENUM                                           ;;
;;                                                                      ;;
;;  Specify a suffix, a prefix and starting number (for erase the old   ;;
;;  suffix or prefix you should press Spacebar). Pick to TEXT, MTEXT    ;;
;;  ATTRIBUTES or press Esc to quit. The program remembers old          ;;
;;  properties and it is possible to confirm it pressing of Spacebar    ;;
;;  key.                                                                ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  THIS PROGRAM AND PARTS OF IT MAY REPRODUCED BY ANY METHOD ON ANY    ;;
;;  MEDIUM FOR ANY REASON. YOU CAN USE OR MODIFY THIS PROGRAM OR        ;;
;;  PARTS OF IT ABSOLUTELY FREE.                                        ;;
;;                                                                      ;;
;;  THIS PROGRAM PROVIDES 'AS IS' WITH ALL FAULTS AND SPECIFICALLY      ;;
;;  DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS        ;;
;;  FOR A PARTICULAR USE.                                               ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  V1.0, 16 June, 2005, Riga, Latvia                                   ;;
;;  © Aleksandr Smirnov (ASMI)                                          ;;
;;  For AutoCAD 2000 - 2008 (isn't tested in a next versions)           ;;
;;                                                                      ;;
;;                             http://www.asmitools.com                 ;;
;;                                                                      ;;
;; ==================================================================== ;;
 
 
 
(defun c:renum (/ oldPref oldSuf oldStart curText curStr
        numZeros)
  (vl-load-com)
 
 (initget 6)
 (setq numZeros (getInt "\nEnter number of 0 prefix's:"))
 
 (defun num2str (num / numStr)
   (setq numStr (itoa num))
   (If (< (strlen numStr) numZeros)
     (repeat (- numZeros (strlen numStr))
   (setq numStr (strcat "0" numStr))
   )
     )
   numStr
   )
 
  (if(not rnm:Pref)(setq rnm:Pref "")) 
  (if(not rnm:Suf)(setq rnm:Suf "")) 
  (if(not rnm:Start)(setq rnm:Start 1)) 
  (setq oldPref rnm:Pref 
        oldSuf rnm:Suf 
        oldStart rnm:Start); end setq 
  (setq rnm:Pref 
    (getstring T 
      (strcat "\nPrefix: <"rnm:Pref">: "))) 
  (if(= "" rnm:Pref)(setq rnm:Pref oldPref)) 
  (if(= " " rnm:Pref)(setq rnm:Pref "")) 
  (setq rnm:Suf 
    (getstring T 
      (strcat "\nSuffix: <"rnm:Suf">: "))) 
  (if(= "" rnm:Suf)(setq rnm:Suf oldSuf)) 
  (if(= " " rnm:Suf)(setq rnm:Suf "")) 
  (setq rnm:Start 
    (getint 
      (strcat "\nStarting number <" 
         (itoa rnm:Start)">: "))) 
  (if(null rnm:Start)(setq rnm:Start oldStart))
     (while T 
       (setq curStr(strcat rnm:Pref(num2Str rnm:Start)rnm:Suf)) 
         (setq curText 
           (car 
             (nentsel "\n<<< Pick TEXT, MTEXT or ATTRIBUTE or press Esc to quit >>> "))) 
       (if 
         (and 
           curText 
           (member(cdr(assoc 0(entget curText))) '("TEXT" "MTEXT" "ATTRIB")) 
           ); end and 
         (progn 
         (vla-put-TextString 
           (vlax-ename->vla-object curText)curStr) 
            (setq rnm:Start(1+ rnm:Start)) 
         ); end progn 
        (princ "\n This is not DText or MText ") 
        ); end if 
       ); end while 
   (princ) 
  ); end of c:renum
 
(princ "\n[Info] http:\\\\www.AsmiTools.com [Info]")
(princ "\n[Info] Renumber tool. Type RENUM to run. [Info]")

I've got what I was looking for long time. It's working in my laptop and failed to get the same result in my office system which installed the same version (Acad2009) Autocad. I've been receiving error message something like 'cant paste text'. Please get me a solution in this regard.

Thanks in advance

[alanjt]

Works fine on my end. Can't say I've ever seen the 'can't past text' error. Are you trying it on the same drawing? Post a sample drawing.

[vinod]

I have tried it on the same drawing in different machines. The difference is 34 bit Autocad in my office sysytem and 64 bit in my laptop.

[vinod]

Works fine on my end. Can't say I've ever seen the 'can't past text' error. Are you trying it on the same drawing? Post a sample drawing.

A little bit crazzzy.. Today I've got the error related to ActiveX
Any idea ?