;;;Edit ParaPIPE *.LSP files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.pinehurst.net/~pfrancis
;;;	e-mail hfrancis@pinehurst.net
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		9-30-98
;;;
(DEFUN c:edpara	(/ fndlst cnt edfil vldsk)
  (IF (EQ (FIX (ATOF (GETVAR "acadver"))) 15)
    (C:VLIDE)
    (PROGN
      (SETQ edfil (GETFILED "Edit Autolisp File"
			    "w:/util/para/source/"
			    "lsp"
			    0
		  ) ;_ end of GETFILED
      ) ;_ end of SETQ
      (IF (OR (NOT edfil) (ai_apploaded "VLIDE" "ARX"))
	(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")
	      )
	    ) ;_ end of COND
	  ) ;_ end of if
	  (SETQ	vldsk
		 (OPEN (STRCAT (SUBSTR (DOS_WINDIR) 1 1)
			       ":/Program Files/AutoCAD R14/Vlisp/Vlide.dsk"
		       ) ;_ end of STRCAT
		       "a"
		 ) ;_ end of OPEN
	  ) ;_ end of setq
	  (IF (AND vldsk (NOT C:VLIDE))
	    (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)
	      (ARXLOAD
		(STRCAT	(SUBSTR (DOS_WINDIR) 1 1)
			":/Program Files/AutoCAD R14/Vlisp/vlide.arx"
		) ;_ end of STRCAT
	      ) ;_ end of ARXLOAD
	    ) ;_ end of progn
	  ) ;_ end of if
	) ;_ end of progn
      ) ;_ end of IF
      (COMMAND ".script" "vlisp.scr")
    ) ;_ end of PROGN
  ) ;_ end of IF
) ;_ 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!***|;