PRivate SUb command1_click()
commondialog1.dialogtitle = "请打开一个CAD文件"
commondialog1.filter = "CAD文件(*.DWg)|*.DWg|CAD文件(*.dxf)|*.dxf"
commondialog1.showopen
wenjinname = commondialog1.filename
shell "路径\aCAD.exe " & wenjinname
end SUb
需要使用的vba的activex Automation接口,可以将AutoCAD窗口作为vb中的一个对象来进行控制。自己找本书或网上查点资料看。不要知其然不知其所以然。