r_function 发表于 2003-5-12 09:55:00

[求助]难题！VB可以和AUTOCAD进行连接吗？

本帖最后由 作者 于 2003-5-12 9:55:35 编辑

我写一个软件，
用VB的，现在需要连接AUTOCAD出图，
不必用程序完全画出来，有现成的模板可用，但要根据情况对图进行一些小改动
请问用VBA可以吗？怎么用？？

lcj68 发表于 2003-5-12 10:12:00

可以!你可以在 load_()中输入以下代码:

On Error Resume Next
   
    '与autocad通信
   
    Set thisdrawing= GetObject _
                  (, "AutoCAD.Application")
    If Err Then
      Err.Clear
      Set thisdrawing= CreateObject _
                  ("AutoCAD.Application")
      If Err Then
            MsgBox Err.Description
            Exit Sub
      End If
    End If
   
    '连接autocad，并使其画图
   

    Set acadDoc = thisdrawing.ActiveDocument
   
    thisdrawing.WindowState = acMax

还有就是在vb的project-->References-->选中autocad***(autocad相关的例子)-->ok

清风明月名字 发表于 2013-3-27 22:16:45

VBA是同样的写法
页: [1]
查看完整版本: [求助]难题！VB可以和AUTOCAD进行连接吗？