调用两次而不是单次的方法

时间:2013-05-14 07:25:50

标签: vba lisp autocad

我在Autocad中从lisp命令调用方法时遇到问题。我在Autocad中使用lisp文件。当我从Autocad调用宏名称时,它调用该方法两次而不是单次。

在我的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

1 个答案:

答案 0 :(得分:3)

您的宏包含空格和回车符。空格进入命令,回车符重复命令。删除其中一个以防止命令重复。