×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

ACAD 2005 - SINGLE LINE TEXT - REPLACEMENT

ACAD 2005 - SINGLE LINE TEXT - REPLACEMENT

ACAD 2005 - SINGLE LINE TEXT - REPLACEMENT

(OP)
NOT ACTUALLY REPLACEMENT.  I HAVE 419 TEXT ENTITIES 1 TO 419. I NEED TO RENAME THEM TO BR1 - BR419.

ANY IDEAS?

RE: ACAD 2005 - SINGLE LINE TEXT - REPLACEMENT

(OP)
I FOUND IT MYSELF - VERY CLEVER WHOEVER IT WAS THAT WROTE IT - CHEERS

;PRETX - Prefix all text with a string
;
;Jeffery P Sanders
;
(defun C:PRETX (/ sset len cnt ed en xscmde)
   (setq xscmde (getvar "cmdecho"))                  ;get echo setvar
   (setvar "cmdecho" 0)                              ;turn echo off
   (setq str (getstring T "\n \nPrefix:  "))         ;get prefix string
   (setq cnt 0 sset (ssget))                         ;select objects
   (princ "\n \n.....Working......")                 ;clear command line
   (setq len(sslength sset))                         ;get length of set
   (while (> len 0)                                  ;while length > 0
    (setq en (ssname sset 0))                        ;get entity name
    (setq ed(entget en))                             ;get entity data
    (if (= (cdr (assoc 0 ed)) "TEXT")                ;if entity is text
     (progn                                          ;
      (setq ed                                       ;
       (subst (cons 1 (strcat str (cdr(assoc 1 ed))));add prefix to text
        (assoc 1 ed)                                 ;
        ed                                           ;
       )                                             ;
      )                                              ;
      (entmod ed)                                    ;update database
      (setq cnt(+ cnt 1))                            ;count changes
     )                                               ;
    )                                                ;
    (setq sset (ssdel en sset))                      ;delete from set
    (setq len(- len 1))                              ;decrease length of set
   )                                                 ;
   (setvar "cmdecho" xscmde)                         ;reset echo to previous
   (princ "\n ")                                     ;
   (princ "\nPrefixed ")                             ;
   (princ cnt)                                       ;print number of changes
   (princ " Lines Of Text With ")(princ str)         ;
   (princ "\n ")                                     ;
   (princ)                                           ;
)                                                    ; end

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources