Question

vb 调用 cad

如何直接调用已经画好cad的图形
比如 说打开 1.dwg
请给出详细的代码

Answer 1

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

Answer 2

需要使用的VBA的activeX Automation接口，可以将AutoCAD窗口作为VB中的一个对象来进行控制。自己找本书或网上查点资料看。不要知其然不知其所以然。