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

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

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

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

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

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:00

VBA是同样的写法

查看完整版本: [求助]难题！VB可以和AUTOCAD进行连接吗？