;; This program is used to copy text and then prompt to change the text
;;;*****************************************
;;;   Superior Designs - Custom programming available
;;;   Copyright (C) 1996-1997
;;;   Written by Craig Carr -  1996
;;;   http://www.surfersnet.com/sdi/acad.htm
;;;   e-mail superior@surfersnet.com
;;;*****************************************

;;;;;;**********************
(DEFUN C:CT()(SETVAR "CMDECHO" 0)
(SETQ CPT1 (CADR (setq t1 (entsel "Select Text")) ))       
(PRINC "\nCopy To Point ")
(COMMAND "COPY" t1 "" CPT1 pause)
(command "change" "l" "" "" "" "" "" "")
(SETVAR "CMDECHO" 1)
(PRIN1))
;;;;;;**********************