; オブジェクト範囲の　0.8倍のプレビューで上書き保存します
SDI
1
OPEN
"%%SRC%%\%%FILE%%"
SDI
0
zoom
e
zoom
0.8X
QSAVE
(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
