;;; By Muhammad Zubair Ahmad
;;; 26 March 2002
;;;
;;; REVISIONS
;;; 27 March 2002-- Minor bug fixes.
;;;
;;;--------------------------------------------------------------------------;
;;; DESCRIPTION
;;; This programme changes the text objects with selected text.
;;; The command is called with RT from the command line at which
;;; time the user is asked to select a text object whose tex is to be
;;; used as sampled:
;;;
;;; Select a Text Object:
;;;
;;; If a non-text object is selected the message
;;;
;;; ERROR:"xxxxx" selected...., Please Try Again!
;;; Select a Text Object:
;;;
;;; is displayed
;;;
;;; Select Destination Objects:
;;; Select objects:
;;;
;;; Successfull completed.
;;;
;;;---------------------------------------------------------------------------;
;;;
;;; Main function -- no arguments
(Defun RepText
(/ nonText test Org Runn e e1 e2 t1 t2 txt sset lenth1
)
(if (not nonText
) (princ (strcat "\nERROR:\"" txt
"\" selected...., Please Try Again!"))) )
(setq test
0 Org
0 Runn
0)
(if (or (= txt
"TEXT") (= txt
"MTEXT")) ) ; end progn
) ; end if
) ; end while
(princ "\n Successfully completed. ") ) ; end progn
(progn ; else show message (princ "\nNothing selected - command terminated") ) ; end progn
) ; end if
) ; end function
;;; The C: function definition.
(defun c:RET
() (RepText
)) (princ "\n\tRepText.lsp loaded. Start command with RET. (Prep'd by: Engr. Zubair)")