autolispとpythonのエラーを修正したい

Question

実現したいこと

指定フォルダ内全てのautocad図面の画層変換をするautolispとpythonを作成する。

発生している問題・分からないこと

autolispで作成した「ChangeLayerD2C」はautocadコマンドラインに入力後エラーなく動くのですが、フォルダ内全ての図面の画層変換をするpythonはエラーになり5枚程度は変換できるのですが、途中で停止します。20枚ある全ては変換できません。試すたびに変換できる図面が変わります。
autolispとpythonの間違いの箇所がわかりません。

エラーメッセージ

Error processing file 0001.dwg: (-2147418111, '呼び出し先が呼び出しを拒否しました。', (None, None, None, 0, None))

該当のソースコード

(defun c:ChangeLayerD2C (/ layertable layername newlayername)
  (setq layertable (tblnext "LAYER" T))
  (while layertable
    (setq layername (cdr (assoc 2 layertable)))
    (if (and (= (substr layername 1 1) "D") (/= layername "Defpoints"))
      (progn
        (setq newlayername (strcat "C" (substr layername 2)))
        (command "_.-layer" "_rename" layername newlayername "")
        (princ (strcat "\n" layername " 画層の名前を " newlayername " に変更しました。"))
      )
    )
    (setq layertable (tblnext "LAYER"))
  )
  (command "_.qsave") ; 図面を保存
  T ; 戻り値として T (真) を返す
)

import os
import time
from pyautocad import Autocad, APoint

def run_lisp_on_all_drawings(folder, lisp):
    acad = Autocad(create_if_not_exists=True)
    for filename in os.listdir(folder):
        if filename.endswith(".dwg"):
            path = os.path.join(folder, filename)
            try:
                acad.Application.Documents.Open(path)
                acad.doc.SendCommand(lisp + "\n")
                time.sleep(70)  # Add a delay to allow AutoCAD to process the command
                acad.Application.ActiveDocument.Close()
            except Exception as e:
                print(f"Error processing file {filename}: {str(e)}")

run_lisp_on_all_drawings(r"C:\Users\0000\change", '(load "ChangeLayerD2C.lsp") (c:ChangeLayerD2C) (command "_.qsave")')

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

AutoCADが図面を開いて操作を実行するための十分な時間を確保できていない可能性があるようなので、SendCommandの後に十分な待機時間を設けたのですがエラーが回避できません。

補足

autolispとpythonの知識が浅く解決できない

Answer 1

指示どおりの結果になりましたので記入します。
cadが起動中のエラーでしたので、「ChangeLayerD2C.lsp」にsave後closeを追加しました。
画層指示に関しても少し修正しましたが、closeの追加により図面が修正されるようになりました。
autolispとpythonの知識が浅いので、スクリプトの書き方にアドバイスがあれば教えてほしいです。
少しずつ学習していきます。

ChangeLayerD2C.lsp

(defun c:ChangeLayerD2C (/ layertable layername newlayername)
  (command "_.-purge" "_all" "*" "_n") ; 使用していないすべての名前を削除
  (setq layertable (tblnext "LAYER" T))
  (while layertable
    (setq layername (cdr (assoc 2 layertable)))
    (if (and (= (substr layername 1 1) "D") (/= layername "Defpoints"))
      (progn
        (setq newlayername (strcat "C" (substr layername 2)))
        (if (tblsearch "LAYER" newlayername) ; 変換後のレイヤー名が存在するかチェック
          (progn
            (command "_.chprop" (ssget "_X" (list (cons 8 layername))) "" "_la" newlayername "") ; 元のレイヤーの全てのエンティティを新しいレイヤーに移動
            (command "_.-layer" "_delete" layername "") ; 元のレイヤーを削除
          )
          (command "_.-layer" "_rename" layername newlayername "") ; 存在しない場合はリネーム
        )
        (princ (strcat "\n" layername " 画層の名前を " newlayername " に変更しました。"))
      )
    )
    (setq layertable (tblnext "LAYER"))
  )
  (command "_.qsave") ; 図面を保存
  (command "_.close") ; 図面を閉じる
  T ; 戻り値として T (真) を返す
)

ChangeLayerD2C.lsp

import os
import time
from pyautocad import Autocad, APoint

def run_lisp_on_all_drawings(folder, lisp):
    acad = Autocad(create_if_not_exists=True)
    for filename in os.listdir(folder):
        if filename.endswith(".dwg"):
            path = os.path.join(folder, filename)
            try:
                acad.Application.Documents.Open(path)
                acad.doc.SendCommand(lisp + "\n")
                time.sleep(5)  # Add a delay to allow AutoCAD to process the command
                acad.Application.ActiveDocument.Close()
            except Exception as e:
                print(f"Error processing file {filename}: {str(e)}")

run_lisp_on_all_drawings(r"C:\Users\0000\change", '(load "ChangeLayerD2C.lsp") (c:ChangeLayerD2C) (command "_.qsave")')