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

実現したいこと

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

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

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

エラーメッセージ

error

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

該当のソースコード

ChangeLayerD2C.lsp

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

alldrawchange.py

1import os 2import time 3from pyautocad import Autocad, APoint 4 5def run_lisp_on_all_drawings(folder, lisp): 6 acad = Autocad(create_if_not_exists=True) 7 for filename in os.listdir(folder): 8 if filename.endswith(".dwg"): 9 path = os.path.join(folder, filename) 10 try: 11 acad.Application.Documents.Open(path) 12 acad.doc.SendCommand(lisp + "\n") 13 time.sleep(70) # Add a delay to allow AutoCAD to process the command 14 acad.Application.ActiveDocument.Close() 15 except Exception as e: 16 print(f"Error processing file {filename}: {str(e)}") 17 18run_lisp_on_all_drawings(r"C:\Users\0000\change", '(load "ChangeLayerD2C.lsp") (c:ChangeLayerD2C) (command "_.qsave")')

試したこと・調べたこと

上記の詳細・結果

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

補足

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