Yeah it has been a long time. Hows you and miss' doing?
i looked arround some of my files but i couldnt really find anything in the same spirit. All i found was this: (And several diff version of it. But its not really the same thing. ...at all. *lol*)
;;;===================================================================;
;;;AdoptText ;
;;;-------------------------------------------------------------------;
;;; This program will allow you to adopt the text of a selected ;
;;; to any number of selected objects. This program will not adopt ;
;;; style or any other properties, it only changes the text string. ;
;;; ;
;;; Author: John Kaul ;
;;; 06.23.02 ;
;;;===================================================================;
(defun AdoptText (/ Obj-list Obj ent InitalObjects TargetObject
TargetObjectText)
(vl-load-com)
;-----------------------------------
(defun ErrorTrap (s)
(princ (strcat "\n>>:Error: " s))
(term_dialog)
(if fl (close fl))
(mapcar
'(lambda (obj)
(vlax-Release-Object obj)
)
Obj-list
)
(vlxx-UndoEnd)
(setq *error* olderr
olderr nil)
(princ)
)
;-----------------------------------
(setq olderr *error* *error* ErrorTrap)
(vlxx-UndoBegin)
(princ "\n>>:Thank you for chosing Se7en airlines, prepare for takeoff. ")
(princ "\n>>:Please select entities to be changed:<< ")
(setq InitalObjects (ssget->vla-list (ssget)))
(if InitalObjects
(while
(not
(setq ent (entsel "\n>>:Select the object with the correct text: "))
)
(princ "\n--->You Missed, try again.<---")
)
)
P
(if ent
(progn
(setq TargetObject
(vlax-ename->vla-object (car ent))
)
(setq TargetObjectText
(progn
(if (vlax-property-available-p TargetObject 'TextString)
(vlax-get-property TargetObject 'TextString)
(vlax-Release-Object TargetObject)
)
)
)
(foreach obj InitalObjects
(progn
(if (vlax-property-available-p Obj 'TextString)
(vlax-put-property Obj 'TextString TargetObjectText)
(vlax-Release-Object Obj)
)
)
)
(vlxx-UndoEnd)
)
)
(prompt "\n>>:Text adopted, program complete. Thank you for flying Se7en airlines.")
(princ)
)
