;;; ;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; COPYRIGHT: 8/19/2010 ;;; EDITED: 8/19/2010 ;;; (DEFUN xodesign_error (msg /) (SETQ xrquietly NIL) (SETQ *ERROR* xodesign_error) (PRINC) ) ;_ end of DEFUN (DEFUN C:XODESIGN () (IF check_for_doslib NIL (LOAD "check_for_doslib" "\File CHECK_FOR_DOSLIB.LSP not loaded! " ) ;_ end of LOAD ) ;_ end of IF (IF check_for_doslib (check_for_doslib) ) ;_ end of IF (IF dos_getfilem (PROGN (SETQ old_xodesign_error *ERROR* *ERROR* xodesign_error ) ;_ end of SETQ (IF ustr NIL (LOAD "ustr" "\nFile USTR.LSP not loaded! ") ) ;_ end of IF ;;; (WHILE (AND ;;; (SETQ aln_num_txt (ustr 1 ;;; "Alignment number (use wildcards for multiple files)" ;;; (IF aln_num_txt ;;; aln_num_txt ;;; nil ;;; ) ;_ end of IF ;;; T ;;; ) ;_ end of ustr ;;; ) ;_ end of SETQ ;;; (NOT (WCMATCH aln_num_txt "#,##,`#,`#`#")) ;;; ) ;_ end of AND ;;; ) ;_ end of WHILE ;;; (IF (AND (READ aln_num)(< (READ aln_num) 10)) ;;; (SETQ aln_num_txt (STRCAT "0" (ITOA (READ aln_num)))) ;;; (SETQ aln_num_txt (ITOA (READ aln_num))) ;;; ) ;_ end of IF (SETQ spec ;;; (EVAL ;;; (CONS ;;; 'STRCAT ;;; (mapcar '(lambda (y) (strcat y aln_num_txt "*.dwg ")) ;;; '("*base*" "cst??x*" "c??plx*" "c??prx*") ;;; ) ;_ end of mapcar ;;; ) ;_ end of CONS ;;; ) ;_ end of EVAL (STRCAT "Alignment Plans (*plx*.dwg)|*plx*.dwg|Alignment Profiles (*prx*.dwg)|*prx*.dwg|") ) ;_ end of SETQ (SETQ xo_file_lst (dos_getfilem "Select a profile" (GETVAR "dwgprefix") (STRCAT spec "Drawing Files (*.dwg)|*.dwg|" "|All files (*.*)|*.*||" ) ;_ end of STRCAT ) ;_ end of dos_getfilem ) ;_ end of SETQ (IF xo_file_lst (PROGN (IF c:xo1 NIL (LOAD "xo1" "\nFile XO1.LSP not loaded! ") ) ;_ end of IF (IF c:xo1 (PROGN (SETQ xrquietly T) (FOREACH n (CDR xo_file_lst) (SETQ blkname (STRCAT (CAR xo_file_lst) n)) (c:xo1) ) ;_ end of FOREACH (SETQ xrquietly NIL) ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of PROGN ) ;_ end of IF (SETQ *ERROR* old_xodesign_error) ) ;_ end of PROGN (ALERT "This function requires DOSLIB from Robert McNeel & Associates, a free ARX\napplication available from http://www.en.na.mcneel.com/doslib.htm" ) ;_ end of ALERT ) ;_ end of IF (PRINC) ) ;_ end of DEFUN (DEFUN C:XOD () (C:XODESIGN) (PRINC)) ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T) ;*** DO NOT add text below the comment! ***|;