;;; ;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; COPYRIGHT: 4-21-2010 ;;; EDITED: 5-23-2013 ;;; (DEFUN c:xplt () (IF C:SETDEFPLOT NIL (LOAD "setdefplot" "\nFile SETDEFPLOT.LSP not loaded! ") ) (IF C:SETDEFPLOT (c:setdefplot) NIL ) (IF page1 (PROGN (SETQ plots_folder page1) (WHILE (NOT (WCMATCH plots_folder " *")) (SETQ plots_folder (SUBSTR plots_folder 2))) (SETQ plots_folder (STRCASE (SUBSTR plots_folder 2))) (SETQ pagecnt 1) (WHILE (NOT (WCMATCH (SUBSTR plots_folder pagecnt) " *")) (SETQ pagecnt (1+ pagecnt))) (SETQ plots_folder (STRCASE (SUBSTR plots_folder 1 (1- pagecnt)))) ) ;_ end of PROGN ) ;_ end of IF (IF (MEMBER "PLOTS" (MAPCAR 'STRCASE (VL-DIRECTORY-FILES (GETVAR "dwgprefix") nil -1))) (IF (MEMBER plots_folder (MAPCAR 'STRCASE (VL-DIRECTORY-FILES (STRCAT (GETVAR "dwgprefix") "Plots") nil -1))) (PROGN (SETQ xplt_folder_path (STRCAT "\"" (GETVAR "dwgprefix") "Plots\\" plots_folder)) (STARTAPP "explorer" xplt_folder_path) ) ;_ end of PROGN ;;; (IF (MEMBER "34X22" (MAPCAR 'STRCASE (VL-DIRECTORY-FILES (STRCAT (GETVAR "dwgprefix") "Plots") nil -1))) ;;; (PROGN (SETQ xplt_folder_path (STRCAT "\"" (GETVAR "dwgprefix") "Plots\\34x22\"")) ;;; (STARTAPP "explorer" xplt_folder_path) ;;; ) ;_ end of PROGN (PROGN (SETQ xplt_folder_path (STRCAT "\"" (GETVAR "dwgprefix") "Plots\"")) (STARTAPP "explorer" xplt_folder_path) ) ;_ end of PROGN ;;; ) ;_ end of IF ) ;_ end of IF (IF (WCMATCH (STRCAT "\"" (GETVAR "dwgprefix") "Plots\"") "*\\## *") (PROGN (SETQ dwg_folders (REVERSE (DOS_STRTOKENS (GETVAR "dwgprefix") "\\"))) (WHILE (WCMATCH (CAR dwg_folders) ",## @*") (SETQ dwg_folders (CDR dwg_folders))) (SETQ xplt_folder_path (EVAL (CONS 'STRCAT (APPEND (LIST "\"") (MAPCAR '(LAMBDA (x) (STRCAT x "\\")) (REVERSE dwg_folders)) (LIST "\"") ) ) ) ) (IF (DOS_DIRP (STRCAT (SUBSTR (SUBSTR xplt_folder_path 2) 1 (- (STRLEN xplt_folder_path) 2)) "Plots")) (STARTAPP "explorer" (STRCAT "\"" (SUBSTR (SUBSTR xplt_folder_path 2) 1 (- (STRLEN xplt_folder_path) 2)) "Plots\"")) (STARTAPP "explorer" xplt_folder_path) ) ) (PROGN ;(ALERT (STRCAT "Folder \"" (GETVAR "dwgprefix") "Plots\" Does not exist! ")) (SETQ xplt_folder_path (STRCAT "\"" (GETVAR "dwgprefix") "\"")) (STARTAPP "explorer" xplt_folder_path) ) ;_ end of PROGN ) ) ;_ end of IF ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 1 nil nil nil nil T) ;*** DO NOT add text below the comment! ***|;