Topic: Add prefix to text

[danny]

I know I've seen a lisp that will do this..just can't seem to find it.  Can someone lead the way...
thanks,

[hyposmurf]

Ive seen the lisp to and cant find it Ive searched under prefix and layer.Bet it has some stupid non revelant post title.

[CAB]

http://new.cadalyst.com/code/browseyear.cfm?fullyear=2005#1

March 2005

Automatic Numbering by Scott Restmeyer, p.0
AUTONUMB.LSP is a very useful tool for maintaining drawings that contain labels.

[Jeff_M]

Do you mean something like this Danny?

Code: [Select]


(defun c:prefix (/ pre ss idx ent obj)
  (vl-load-com)
  (and (setq pre (getstring t "\nEnter prefix: "))
       (setq ss (ssget '((0 . "TEXT,MTEXT"))))
       (setq idx -1)
       (while (setq ent (ssname ss (setq idx (1+ idx))))
(setq obj (vlax-ename->vla-object ent))
(vla-put-textstring obj (strcat pre (vla-get-textstring obj)))
)
       )
  (princ)
  )


[danny]

CAB,
thanks for the link..got some great tools their.
Jeff,
thats lisp runs great, as always.
Mahalo,