;;;
;;;
;;;	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)
  )
)