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

r_function

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

lcj68

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

清风明月名字

VBA是同样的写法