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

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

我写一个软件，
用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进行连接吗？

发表回复

精选推荐

浏览过的版块