求助VB调用CAD画图，之前有好心人给贴的代码弄进VB后是AcTIVEX不能创建对象，我是CAD2007

显示全部楼层 · 2012-11-23 01:28:34

Private Sub Command1_Click()On Error Resume NextDim cad As AcadApplicationSet cad = GetObject(, "autocad.application")If Err Then
Err.Clear
Set cad = CreateObject("autocad.application")End Ifcad.Visible = TrueEnd Sub元宝就不需要了，这个试过2010CAD可以引用。至于画图，你要自己做了...

千问 · 2012-11-23 01:28:34

你要实现什么样的功能，先具体说一说...