;;;Edit *.txt files
;;;
(defun c:edxrl (/)
  (setq edfil (getfiled "Edit Saved Layer Settings File" (STRCAT(getvar "dwgprefix")(substr (getvar "dwgname") 1 (-(strlen(getvar "dwgname"))4))) "xrl" 4))
  (if edfil
    (startapp "notepad.exe" edfil)
    (COMMAND "NOTEPAD" "~")
  ) ;_ end of if
)			;defun
(defun c:edtdf (/)
  (setq
    edfil (getfiled "Edit Saved Layer Settings File"
		    (STRCAT (getvar "dwgprefix")
			    (SUBSTR (GETVAR "DWGNAME")
				    1
				    (- (STRLEN (GETVAR "DWGNAME")) 4)
			    ) ;_ end of SUBSTR
		    ) ;_ end of STRCAT
		    "tdf"
		    4
	  ) ;_ end of getfiled
  ) ;_ end of setq
  (if (= 1 edfil)
    (setq
      edstr (strcat "NOTEPAD.EXE " (GETVAR "DWGPREFIX") "UNNAMED.TDF")
    ) ;_ end of setq
    (setq edstr (strcat "NOTEPAD.EXE " edfil))
  )					;IF
  (command ".START" edstr)
)					;defun
(princ)
;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
 ***Don't add text below the comment!***|;