;;; ;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; COPYRIGHT: ;;; EDITED: ;;; (defun C:openprof () (setq myfile (dos_getfiled "Select a profile" (GETVAR "dwgprefix") "Profiles (cwmprx*.dwg)|c??prx*.dwg|All files (*.*)|*.*||")) (IF (EQ (GETVAR "DBMOD") 0) (command ".open" myfile) (command ".open" "y" myfile) ) ) (defun C:openplan () (setq myfile (dos_getfiled "Select a plan" (GETVAR "dwgprefix") "Plans (cwmplx*.dwg)|c??plx*.dwg|All files (*.*)|*.*||")) (IF (EQ (GETVAR "DBMOD") 0) (command ".open" myfile) (command ".open" "y" myfile) ) )