Prefix/Suffix - add to numbers or text

[coniferous]

I am looking for a lisp routine that will add text to the front or back of text or to an attributed block style text. Is there a good one out there? Also, if I find one, how do I copy the lisp file to my computer?

[Tharwat]

Welcome to the Forum .

Try this .... and I hope it is a watertight routine .

(defun c:TesT (/ rep str ss i sn vl e)
  (vl-load-com)
  ;;; Tharwat 25. Nov. 2011 ;;
  (if
    (and (progn
           (initget "Prefix Suffix Both")
           (setq
             rep (getkword "\n Specify your aim [Prefix/Suffix/Both] :")
           )
           (initget 1)
           (setq str (getstring t "\n Enter Text :"))
         )
         (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
    )
     (repeat
       (setq i (sslength ss))
        (setq sn (ssname ss (setq i (1- i))))
        (setq vl (vlax-ename->vla-object sn))
        (setq e (entget sn))
        (cond (
               (eq rep "Prefix")
               (vla-put-textstring vl (strcat str (cdr (assoc 1 e))))
              )
              (
               (eq rep "Suffix")
               (vla-put-textstring vl (strcat (cdr (assoc 1 e)) str))
              )
              (
                (eq rep "Both")
               (vla-put-textstring vl (strcat str (cdr (assoc 1 e)) str))
              )
        )
     )
     (princ)
  )
  (princ)
)

[pBe]

 
(defun c:PST (/ PreSuf Str ent Cstr)
  (vl-load-com)
  (initget "P S")
  (setq PreSuf (getkword "\nChoose [Prefix/Suffix]  <Suffix>: "))
  (if (not PreSuf)
    (setq PreSuf "S")
  )
  (while (not str)
    (setq str (getstring T "\nEnter String: "))
    (cond ((and (eq str "")
  (princ "Null Input Try again")
  (setq str nil)
    )
   )
    )
  )
  (while (and (setq ent (car (nentsel "\nSelect Text/Attribute: ")))
       (member (cdr (assoc 0 (entget ent)))
        '("TEXT" "MTEXT" "ATTRIB")
       )
  )
    (setq ent  (vlax-ename->vla-object ent)
   Cstr (vla-get-textstring ent)
    )
    (vla-put-textstring
      ent
      (if (eq PreSuf "S")
 (strcat Cstr " " str)
 (strcat str " " Cstr)
      )
    )
  )(princ)
)

[Lee Mac]

An alternative approach...

How about a function that allows you to create your own short & simple prefix/suffix programs?

Say you need to repeatedly prefix many text object with the same thing and don't want to repeatedly specify the prefix to use, you can quickly write a custom command to prefix the text without a prompt for the prefix.

Below is a generic function requiring optional prefix and suffix text and an integer mode to determine the method of selection:

;; (pstext "Prefix Text" "Suffix Text" <mode>)
;;
;; <mode> = 0  -  single selection
;;        = 1  -  window selection
;;
;; Author: Lee Mac 2011  -  www.lee-mac.com

(defun pstext ( preftext sufftext mode / a e i s )
    (cond
        (   (= 0 mode)
            (while
                (progn (setvar 'ERRNO 0) (setq e (car (nentsel)))
                    (cond
                        (   (= 7 (getvar 'ERRNO))
                            (princ "\nMissed, try again.")
                        )
                        (   (eq 'ENAME (type e))
                            (if (wcmatch (cdr (assoc 0 (entget e))) "TEXT,MTEXT,ATTRIB")
                                (entmod
                                    (setq e (entget e)
                                          a (assoc 1 e)
                                          e (subst (cons 1 (strcat preftext (cdr a) sufftext)) a e)
                                    )
                                )
                                (princ "\nInvalid Object.")
                            )
                        )
                    )
                )
            )
        )
        (   (setq s (ssget "_:L" (list '(0 . "TEXT,MTEXT"))))
            (repeat (setq i (sslength s))
                (entmod
                    (setq e (entget (ssname s (setq i (1- i))))
                          a (assoc 1 e)
                          e (subst (cons 1 (strcat preftext (cdr a) sufftext)) a e)
                    )
                )
            )
        )
    )
    (princ)
)

Open a new file in Notepad and copy the above code into the new file.

Now, you can start creating your own commands to prefix/suffix your text; the pstext function takes the format:

(pstext <PrefixText> <SuffixText> <Mode>)

Where:

<PrefixText> = Text to be appended to the front of the selected text objects

<SuffixText> = Text to be appended to the end of the selected text objects

<Mode> = Integer determining how text objects are selected.

<Mode> = 0 - single selection of objects
<Mode> = 1 - window selection of objects

Here are some example programs:

(defun c:test1 ( )
    (pstext "Prefix" "Suffix" 0)
)

(defun c:test2 ( )
    (pstext "" " mysuffix" 1)
)

(defun c:test3 ( )
    (pstext "myprefix " "" 1)
)

In your open notepad file, add a few new lines after the previously copied code above, then copy the above three commands to the notepad file.

Save the notepad file as anything you like with a ".lsp" extension (ensure the filetype is set to 'All Files').

Now Open AutoCAD and type appload at the command-line.

Select your saved notepad .lsp file.

Load the file.

Type either 'test1', 'test2', or 'test3' to start any of the defined commands.

[Least]

very nice!

[Lee Mac]

Thanks Least

[eric_monceaux]

I recently have developed a need to be able to quickly add a "L" or "R" to the end of a part number (i.e. A-1 to A-1R) which can be a pain when doing manually.

Lee, I don't think I quite understand the instructions given because when I tried to invoke the command, I receive the error"
"; error: no function definition: PSTEXT"

I have attached the code for review.

;; (pstext "Prefix Text" "Suffix Text" <mode>)
;;
;; <mode> = 0  -  single selection
;;        = 1  -  window selection
;;
;; Author: Lee Mac 2011  -  www.lee-mac.com

(defun c:rx ( )
    (pstext "" " R" 0)
)
    (cond
        (   (= 0 mode)
            (while
                (progn (setvar 'ERRNO 0) (setq e (car (nentsel)))
                    (cond
                        (   (= 7 (getvar 'ERRNO))
                            (princ "\nMissed, try again.")
                        )
                        (   (eq 'ENAME (type e))
                            (if (wcmatch (cdr (assoc 0 (entget e))) "TEXT,MTEXT,ATTRIB")
                                (entmod
                                    (setq e (entget e)
                                          a (assoc 1 e)
                                          e (subst (cons 1 (strcat preftext (cdr a) sufftext)) a e)
                                    )
                                )
                                (princ "\nInvalid Object.")
                            )
                        )
                    )
                )
            )
        )
        (   (setq s (ssget "_:L" (list '(0 . "TEXT,MTEXT"))))
            (repeat (setq i (sslength s))
                (entmod
                    (setq e (entget (ssname s (setq i (1- i))))
                          a (assoc 1 e)
                          e (subst (cons 1 (strcat preftext (cdr a) sufftext)) a e)
                    )
                )
            )
        )
    )
    (princ)

[Least]

put this bit back in
(defun pstext ( preftext sufftext mode / a e i s )

and move

(defun c:rx ( ) (pstext "" " R" 0) )

all the way down to the end of the lisp, reload it and give it a go

[Lee Mac]

Lee, I don't think I quite understand the instructions given because when I tried to invoke the command, I receive the error"
"; error: no function definition: PSTEXT"

Eric,

Firstly: there is no need to modify my code in any way.

My custom function 'pstext' can be viewed as just another LISP function, no different from mapcar, defun, apply, +, cond, ... etc.

Just as mapcar requires a function argument and number of list arguments, my pstext function requires three arguments: the prefix text, suffix text and an integer mode argument to determine how the function will operate.

Just like the other LISP functions, my pstext function can be called from within a program, for example, just as you might use mapcar in a program, supplied with a function argument and a number of list arguments:

(defun c:test1 ( )
    (print (mapcar '+ '(1 2 3 4 5) '(6 7 8 9 0)))
    (princ)
)

You would call my pstext function from a program, called with the necessary arguments:

(defun c:test2 ( )
    (pstext "" " R" 0)
    (princ)
)

Here, the prefix text argument is an empty string, the suffix text is " R" and the program is set for single selection as the mode argument is 0.

Everything else regarding how to save the code is explained in detail in my previous post, and so to save me repeating it all here, I would suggest carefully re-reading my earlier post step by step and, if you are still stuck, let me know.

@Least: Thank you for your assistance

[eric_monceaux]

@Least - Thank you very much for your assistance on this post.

@Lee Mac - My apologies for misunderstanding, once you broke it down that PSTEST was a program in itself, it made sense, and is now working great.

...On a side note, what kind of changes would need to be made to PSTEST.lsp to REMOVE a prefix or suffix?