;;;Edit ParaPIPE *.LSP files ;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe Street ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 1994 ;;; Edited: 9-30-98 ;;; (DEFUN c:edpara (/ fndlst cnt edfil vldsk) (SETQ edfil (GETFILED "Edit Autolisp File" "L:/util/para/source/" "lsp" 0 ) ;_ end of GETFILED ) ;_ 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) ) ;_ end of STRCAT ) ;_ end of SETQ (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) ) ;_ end of IF (SUBSTR scnddate 4 2) (SUBSTR scnddate 7 2) ) ;_ end of STRCAT ) ;_ end of SETQ (SETQ scnddate (ATOI scnddate)) (DOS_MKDIR "L:/util/para/backups") (IF (DOS_COPY edfil (STRCAT "L:/Util/Para/Backups/" subedfil "-" (ITOA frstdate) "-" (ITOA scnddate) ) ;_ end of STRCAT ) ;_ end of dos_copy (ALERT (STRCAT "\nBackup copy made of " edfil)) (ALERT (STRCAT "\n*** NO Backup copy made *** of " edfil)) ) ;_ end of IF ) ;_ end of PROGN ;;; (PROGN (PRINC "\nNo edfil! ")(PRINC)) ) ;_ end of IF (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") ) ((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) (COND ((= (ATOF (SUBSTR (GETVAR "ACADVER") 1 2)) 16) ":/Program Files/Land Desktop 2004/Vlide.dsk" ) ((= (ATOF (SUBSTR (GETVAR "ACADVER") 1 2)) 15) ":/Program Files/AutoCAD 2002/Vlide.dsk" ) ((= (ATOF (SUBSTR (GETVAR "ACADVER") 1 2)) 14) ":/Program Files/AutoCAD R14/Vlisp/Vlide.dsk" ) ) ;_ end of COND ) ;_ end of STRCAT "a" ) ;_ end of OPEN ) ;_ end of setq (IF (AND vldsk (OR (NOT C:VLIDE) (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 2)) 15) ) ;_ end of or ) ;_ end of AND (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 COND ) ;_ end of progn (IF vldsk NIL (PROGN (PRINC "\nFile Vlide.dsk not found! ") (PRINC)) ) ;_ end of IF ) ;_ end of if ) ;_ end of progn ) ;_ end of IF (c:vlide) ) ;_ 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!***|;