+ Reply to Thread
Page 1 of 2 1 2 LastLast
Results 1 to 10 of 14
  1. #1
    Super Member AQucsaiJr's Avatar
    Computer Details
    AQucsaiJr's Computer Details
    Operating System:
    Windows 7 Pro
    Computer:
    Dell Optiplex 790
    CPU:
    Intel Core i5-2500 @ 3.30 GHz
    RAM:
    8.00 GB
    Graphics:
    AMD Radeon HD 6450
    Monitor:
    Dell
    Discipline
    Electrical
    AQucsaiJr's Discipline Details
    Occupation
    Electrical Engineering Technition / Power Utilities
    Discipline
    Electrical
    Details
    Power Utility Protection and Control Engineering
    Using
    Electrical 2016
    Join Date
    Nov 2008
    Location
    USA, Florida, Orlando
    Posts
    518

    Default Change Existing Text to Number?

    Registered forum members do not see this ad.

    I have existing text in my drawing that has already been lined up the way it should exist. Anyone know of a way to just click on the text an have it auto overwrite each test with incrementing numbers...

    For instance if I have 10 individual lines of text that all read "example text" and I wanted to change them all to 1 to 10 respectively.

    I have been through the majority of the Auto-Numbering LISP files on the forum and, unless I missed it, I can not find one that does this.

  2. #2
    Forum Deity
    Using
    Civil 3D 2008
    Join Date
    Sep 2006
    Location
    Pittsburgh, PA, USA
    Posts
    3,581

    Default

    Have you tried the Express Tools' Tcount command?

  3. #3
    Super Member AQucsaiJr's Avatar
    Computer Details
    AQucsaiJr's Computer Details
    Operating System:
    Windows 7 Pro
    Computer:
    Dell Optiplex 790
    CPU:
    Intel Core i5-2500 @ 3.30 GHz
    RAM:
    8.00 GB
    Graphics:
    AMD Radeon HD 6450
    Monitor:
    Dell
    Discipline
    Electrical
    AQucsaiJr's Discipline Details
    Occupation
    Electrical Engineering Technition / Power Utilities
    Discipline
    Electrical
    Details
    Power Utility Protection and Control Engineering
    Using
    Electrical 2016
    Join Date
    Nov 2008
    Location
    USA, Florida, Orlando
    Posts
    518

    Default

    You know... I just asumed that ACAD did not have a tool to do this... I will try that out. Thanks.

  4. #4
    Quantum Mechanic Lee Mac's Avatar
    Computer Details
    Lee Mac's Computer Details
    Operating System:
    Win 7 Pro / Win 10 Pro / Linux Mint
    Discipline
    Multi-disciplinary
    Lee Mac's Discipline Details
    Discipline
    Multi-disciplinary
    Details
    Custom Programming / Software Customisation
    Using
    AutoCAD 2018
    Join Date
    Aug 2008
    Location
    London, England
    Posts
    19,568

    Default

    Else, I think CAB has a good function for this over at theSwamp.org
    Lee Mac ProgrammingTwitterExchange App StoreDropbox (500MB free)

    With Mathematics there is the possibility of perfect rigour, so why settle for less?

  5. #5
    Super Member AQucsaiJr's Avatar
    Computer Details
    AQucsaiJr's Computer Details
    Operating System:
    Windows 7 Pro
    Computer:
    Dell Optiplex 790
    CPU:
    Intel Core i5-2500 @ 3.30 GHz
    RAM:
    8.00 GB
    Graphics:
    AMD Radeon HD 6450
    Monitor:
    Dell
    Discipline
    Electrical
    AQucsaiJr's Discipline Details
    Occupation
    Electrical Engineering Technition / Power Utilities
    Discipline
    Electrical
    Details
    Power Utility Protection and Control Engineering
    Using
    Electrical 2016
    Join Date
    Nov 2008
    Location
    USA, Florida, Orlando
    Posts
    518

    Default

    I think you gave me that link before... I have not been able to find the link you gave me however.

  6. #6
    Quantum Mechanic Lee Mac's Avatar
    Computer Details
    Lee Mac's Computer Details
    Operating System:
    Win 7 Pro / Win 10 Pro / Linux Mint
    Discipline
    Multi-disciplinary
    Lee Mac's Discipline Details
    Discipline
    Multi-disciplinary
    Details
    Custom Programming / Software Customisation
    Using
    AutoCAD 2018
    Join Date
    Aug 2008
    Location
    London, England
    Posts
    19,568

    Default

    I'm not sure if it works on existing text or not, as I haven't tried it fully, but give it a whirl and see what you think:

    http://www.theswamp.org/index.php?topic=518.0
    Lee Mac ProgrammingTwitterExchange App StoreDropbox (500MB free)

    With Mathematics there is the possibility of perfect rigour, so why settle for less?

  7. #7
    Super Member AQucsaiJr's Avatar
    Computer Details
    AQucsaiJr's Computer Details
    Operating System:
    Windows 7 Pro
    Computer:
    Dell Optiplex 790
    CPU:
    Intel Core i5-2500 @ 3.30 GHz
    RAM:
    8.00 GB
    Graphics:
    AMD Radeon HD 6450
    Monitor:
    Dell
    Discipline
    Electrical
    AQucsaiJr's Discipline Details
    Occupation
    Electrical Engineering Technition / Power Utilities
    Discipline
    Electrical
    Details
    Power Utility Protection and Control Engineering
    Using
    Electrical 2016
    Join Date
    Nov 2008
    Location
    USA, Florida, Orlando
    Posts
    518

    Default

    Well I guess now is as good a time as any to register at the swamp... I will be able to try this link once registered.

  8. #8
    Quantum Mechanic Lee Mac's Avatar
    Computer Details
    Lee Mac's Computer Details
    Operating System:
    Win 7 Pro / Win 10 Pro / Linux Mint
    Discipline
    Multi-disciplinary
    Lee Mac's Discipline Details
    Discipline
    Multi-disciplinary
    Details
    Custom Programming / Software Customisation
    Using
    AutoCAD 2018
    Join Date
    Aug 2008
    Location
    London, England
    Posts
    19,568

    Default

    Yes, the level of programming at theSwamp.org is a lot lot higher than it is here - but the CAD help here is better.
    Lee Mac ProgrammingTwitterExchange App StoreDropbox (500MB free)

    With Mathematics there is the possibility of perfect rigour, so why settle for less?

  9. #9
    Senior Member
    Computer Details
    JeepMaster's Computer Details
    Operating System:
    Windows 7 64-bit
    Computer:
    HP
    CPU:
    Core i7
    RAM:
    32GB
    Monitor:
    27" Dell 2709W
    Discipline
    Electrical
    JeepMaster's Discipline Details
    Occupation
    Electrical
    Discipline
    Electrical
    Using
    Revit 2016
    Join Date
    Mar 2006
    Location
    Alberta, Canada
    Posts
    293

    Default

    Quote Originally Posted by Lee Mac View Post
    - but the CAD help here is better.
    That's because we have LeeMac here helping people out.

  10. #10
    Senior Member
    Computer Details
    JeepMaster's Computer Details
    Operating System:
    Windows 7 64-bit
    Computer:
    HP
    CPU:
    Core i7
    RAM:
    32GB
    Monitor:
    27" Dell 2709W
    Discipline
    Electrical
    JeepMaster's Discipline Details
    Occupation
    Electrical
    Discipline
    Electrical
    Using
    Revit 2016
    Join Date
    Mar 2006
    Location
    Alberta, Canada
    Posts
    293

    Default

    Registered forum members do not see this ad.

    Is this what you're looking for?
    Another cool tool from ASMI.



    Code:
    ;;                                                                      ;;
    ;; ==================================================================== ;;
    ;;                                                                      ;;
    ;;  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) 
      (vl-load-com) 
      (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(itoa 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]")

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts