Question

在界面上，增加一个按钮，双击按钮，在按钮的单击事件加入如下代码：

ole_1.object.DoCommand(1)

该代码，开始执行控件的一个用户自定义命令，命令的id为1，这个id值用户可以随便取值，它是用来标识该命令，多个命令之间，id值不能重复。在随后，响应控件的命令执行事件，在该事件中，打开dwg文件。

增加CAD控件的命令执行事件，如下图：

前面的DoCommand的调用后，程序将会跳转到这里执行，控件要求所有与用户交互的操作，都必须放在命令事件中。

调用控件打开dwg文件函数，打开h盘的1.dwg文件代码:

// icommandid值 等于1，就我们要执行的，打开文件命令，这个值与前面调用的DoCommand传的值要对上。
if icommandid = 1 then
// 打开dwg文件。
ole_1.object.OpenDwgFile("h:\\1.dwg")
end if

最终运行结果: