vba - 1 回ではなく 2 回呼び出されるメソッド

Question

Autocad で Lisp コマンドからメソッドを呼び出すのに問題があります。私はAutocadでlispファイルを使用しています。Autocad からマクロ名を呼び出すと、メソッドが 1 回ではなく 2 回呼び出されます。

私のlispファイルで

(defun c:Export_N()
(setvar "cmdecho" 0)
(command "-vbarun" "Export_New")
(princ)
)

Lisp ファイル形式の Autocad を呼び出す場合:

openMacro = "Export_N " & vbCr
Set newButton = NewToolbar.AddToolbarButton("", "Export", "Export", openMacro)

SmallBitmapName = AppPath & "\" & "Tool Icon\MReport.bmp"     
LargeBitmapName = AppPath & "\" & "Tool Icon\MReport.bmp"     
newButton.SetBitmaps SmallBitmapName, LargeBitmapName