; For This Program To Work Rename This File From *.TXT To *.LSP

;|
 *********************************************
 *       Edit Any Type of Text               *
 *   www.MadSteelSoftware.com  Ver 1-2007    *
 * *******************************************
|;

;--< Edit Any Type of Text

   (defun C:EDT ()

   (prompt "\n EDT...Edit Any Type of Text ")                         ; Command Reminder
   (setq iftext (nentsel "\n  Select Text or Attribute To Edit: "))   ; Pick From Screen  
   (setq e ( car iftext ) ed (entget e) et                            ; Get Info Form List
   (cdr (assoc 0 ed ) ) ) ( setq ifattx et )                          ; Get Info Form List
   (COMMAND "CHANGE" iftext "" "P" "C" "82"                "" )       ; Hightlight Text To Edit
   (if  (= ifattx "ATTRIB"  ) (COMMAND "ddatte"  iftext    )  )       ; Edit This Attribute
   (not (= ifattx "ATTRIB"  ) (COMMAND "ddedit"  iftext "" )  )       ; Edit If Not Attribute
   (COMMAND "CHANGE" iftext "" "P" "LA" (getvar  "CLAYER") "" )       ; Move To Current Layer
   (COMMAND "CHANGE" iftext "" "P" "C"  "BYLAYER"          "" )       ; Fix Color As New Layer
   ); END of Lisp
   ;;
   ;; Sorry but this will not work on Dim text. If 
   ;; someone can fix this I'll love to know how.
   ;; Programed By Diego Benavidez
   ;; Tsd-Sa@mail.ev1.net  www.TexasSteelDetailers.com