; 2000 形式で上書き保存します
EXPERT
5
SDI
1
OPEN
"%%SRC%%\%%FILE%%"
SDI
0
SAVEAS
2000
"%%SRC%%\%%FILE%%"
(defun c:BJ_QUIT ()
  (if (or (wcmatch (getvar "ACADVER") "*BricsCAD")
          (wcmatch (getvar "ACADVER") "*Bricscad"))
    (progn
      (command "_.close")
      (defun c:Y ()(princ))
    )
    (command "_.quit")
  )
)
BJ_QUIT
Y
