Acet-file-backup-delete

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (acet-file-backup-delete filename )

機能: 指定されたファイルに対応するバックアップファイル (.BAK) を削除する。

引数

filename : バックアップを削除したいファイルのパス。

戻り値: 成功なら T、それ以外は nil。

サンプル

; C:\My Drawings\Drawing1.dwg という図面でこのコマンドを実行すると、もし C:\My Drawings\Drawing1.bak が存在すれば、それが削除される。

(defun c:test-delete-backup ()
  ;; 現在の図面のパスを取得
  (setq dwg-path (getvar "DWGPREFIX"))
  (setq dwg-name (getvar "DWGNAME"))
  (setq full-path (strcat dwg-path dwg-name))

  ;; 対応する.bakファイルを削除
  (if (acet-file-backup-delete full-path)
    (princ "\nバックアップファイルが削除されました。")
    (princ "\nバックアップファイルが見つからないか、削除できませんでした。")
  )
  (princ)
)