; DXF データを開き、同じフォルダに DWG データとして保存します
SDI
1
OPEN
"%%SRC%%\%%FILE_NOEXT%%.dxf"
SDI
0
SAVEAS

"%%SRC%%\%%FILE_NOEXT%%"
(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
