;;;Edit *.LSP files
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1994
;;;>		   EDITED: 07-23-2004
;;;
(DEFUN c:ed2000	(/ fndlst cnt edfil vldsk)
;;;  (IF (EQ (FIX (ATOF (GETVAR "acadver"))) 15)
;;;    (C:VLIDE)
    (PROGN
      (SETQ
	edfil (GETFILED "Edit Autolisp File" "C:/Program Files/AutoCAD 2002/Support/" "lsp" 4)
      ) ;_ end of SETQ
      (IF edfil
	(PROGN
	  (SETQ subedfil edfil)
	  (WHILE (WCMATCH subedfil "*\\*")
	    (SETQ subedfil (SUBSTR subedfil 2))
	  ) ;_ end of WHILE
;;;	  (SETQ frstdate (FIX (GETVAR "cdate")))
;;;	  (SETQ	scnddate
;;;		 (FIX (* (- (GETVAR "cdate") (FIX (GETVAR "cdate")))
;;;			 1000000
;;;		      ) ;_ end of *
;;;		 ) ;_ end of fix
;;;	  ) ;_ end of SETQ
	  (SETQ dos_file_lst (dos_file edfil))
	  (SETQ frstdate (NTH 2 dos_file_lst))
	  (SETQ frstdate (STRCAT (SUBSTR frstdate 7)(SUBSTR frstdate 1 2)(SUBSTR frstdate 4 2)))
	  (SETQ frstdate (ATOI frstdate))
	  (SETQ scnddate (NTH 3 dos_file_lst))
	  (SETQ scnddate (STRCAT
			   (IF (EQ (SUBSTR scnddate 9 1) "p")
			     (ITOA (+ 12 (ATOI (SUBSTR scnddate 1 2))))
			     (SUBSTR scnddate 1 2)
			   )
			   (SUBSTR scnddate 4 2)
			   (SUBSTR scnddate 7 2)
			 )
	  )
	  (SETQ scnddate (ATOI scnddate))
	  (dos_mkdir "H:/1100/Francis, Cooper/util/lsp/backups")
	  (IF
            (dos_copy edfil
		      (STRCAT "H:/1100/Francis, Cooper/Util/Lsp/Backups/"
			      subedfil
			      "-"
			      (ITOA frstdate)
			      "-"
			      (ITOA scnddate)
		      ) ;_ end of STRCAT
	    ) ;_ end of dos_copy
	    (PRINC (STRCAT "\nBackup copy made of " edfil))
	    (PRINC (STRCAT "\n*** NO Backup copy made *** of " edfil))
	  )
	) ;_ end of PROGN
;;;	(PROGN (PRINC "\nNo edfil! ")(PRINC))
      ) ;_ end of IF
      (IF (OR (NOT edfil) (AND (ai_apploaded "VLIDE" "ARX")(EQ(SUBSTR(GETVAR"acadver")1 2)"14")))
	(COND ((NOT edfil) (PRINC "No file selected. "))
	      ((ai_apploaded "VLIDE" "ARX")
	       (PRINC "\nVisual Lisp is already started. ")
	      )
	) ;_ end of cond
	(PROGN
	  (IF DOS_ABOUT
	    nil
	    (COND
	      ((EQ (FIX (ATOF (GETVAR "acadver"))) 14)
	       (ARXLOAD "doslib14")
	      )
	      ((EQ (FIX (ATOF (GETVAR "acadver"))) 15)
	       (ARXLOAD "doslib15")
	      )
	      ((EQ (FIX (ATOF (GETVAR "acadver"))) 16)
	       (ARXLOAD "doslib16")
	      )
	    ) ;_ end of COND
	  ) ;_ end of if
	  (SETQ	vldsk
		 (OPEN (STRCAT (SUBSTR (DOS_WINDIR) 1 1)
			       (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER")1 2)) 15)
			         ":/Program Files/AutoCAD 2002/Vlide.dsk"
			         ":/Program Files/AutoCAD R14/Vlisp/Vlide.dsk"
			       )
		       ) ;_ end of STRCAT
		       "a"
		 ) ;_ end of OPEN
	  ) ;_ end of setq
	  (IF (AND vldsk (or (NOT C:VLIDE)(>= (ATOF (SUBSTR (GETVAR "ACADVER")1 2)) 15)))
	    (PROGN
	      (SETQ dosplit (DOS_SPLITPATH edfil))
	      (SETQ cnt	 1
		    strl (STRLEN edfil)
	      ) ;_ end of setq
	      (WHILE (< cnt strl)
		(IF (EQ (SUBSTR edfil cnt 1) "\\")
		  (IF fndlst
		    (SETQ fndlst (APPEND fndlst (LIST cnt)))
		    (SETQ fndlst (LIST cnt))
		  ) ;_ end of if
		) ;_ end of if
		(SETQ cnt (1+ cnt))
	      ) ;_ end of while
	      (FOREACH n fndlst
		(SETQ edfil (STRCAT (SUBSTR edfil 1 (1- n))
				    "/"
				    (SUBSTR edfil (1+ n))
			    ) ;_ end of strcat
		) ;_ end of setq

	      ) ;_ end of foreach
	      (WRITE-LINE "(editor" vldsk)
	      (WRITE-LINE
		(STRCAT	"\t:CAPTION \""
			(NTH 2 dosplit)
			(NTH 3 dosplit)
			"\""
		) ;_ end of strcat
		vldsk
	      ) ;_ end of write-line
	      (WRITE-LINE (STRCAT "\t:FILENAME \"" edfil "\"") vldsk)
	      (WRITE-LINE "\t:POINT 0" vldsk)
	      (WRITE-LINE "\t:APEX 1507332" vldsk)
	      (WRITE-LINE "\t:SIZE 35849464" vldsk)
	      (WRITE-LINE "\t:STATE :NORMAL" vldsk)
	      (WRITE-LINE "\t:RO nil" vldsk)
	      (WRITE-LINE "\t:FGC nil" vldsk)
	      (WRITE-LINE "\t:BGC nil" vldsk)
	      (WRITE-LINE "\t:LXC T" vldsk)
	      (WRITE-LINE "\t:LEX-ID :AL" vldsk)
	      (WRITE-LINE "\t:CLV nil" vldsk)
	      (WRITE-LINE "\t:TW 8" vldsk)
	      (WRITE-LINE "\t:LM 10" vldsk)
	      (WRITE-LINE "\t:CONTEXT :AUTOLISP" vldsk)
	      (WRITE-LINE "\t)" vldsk)
	      (CLOSE vldsk)
	      (COND
		((EQ (FIX (ATOF (GETVAR "acadver"))) 14)
	          (ARXLOAD
		    (STRCAT (SUBSTR (DOS_WINDIR) 1 1)
		      ":/Program Files/AutoCAD R14/Vlisp/vlide.arx"
		    ) ;_ end of STRCAT
	          ) ;_ end of ARXLOAD
		 )
	      )
	    ) ;_ end of progn
	    (IF vldsk
	      NIL
	      (PROGN (PRINC "\nFile Vlide.dsk not found! ")(PRINC))
	    )
	  ) ;_ end of if
;;;	(PROGN (PRINC (STRCAT "\nEdfil = " edfil))(PRINC))
	) ;_ end of PROGN
      ) ;_ end of IF
      (COMMAND ".script" "vlisp.scr")
    ) ;_ end of PROGN
;;;  ) ;_ end of IF
  (PRINC)
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;