VB与AutoCAD的连接？(页 1) - VB6论坛

wangziwill 发表于 2008-7-11 15:50

VB与AutoCAD的连接？

怎样实现VB与AutoCAD的连接？并且要能够实现绘图的保存，即在非运行状态下能单独打开CAD，请大侠指教！！谢谢！！！！

wangtuan7788 发表于 2008-7-11 22:40

这个好像是用vba或vb。net或者visual lisp做，我见过这书，没见有vb的书啊，哥们这两天也刚开始研究这个问题

ZH1110 发表于 2008-7-12 08:20

http://www.lotusinvention.cn/

西风独自凉 发表于 2008-7-12 08:33

On Error Resume Next

Dim tmCAD As AcadApplication
Set tmCAD = GetObject(, "AutoCAD.Application.16")

If Err Then
      Err.Clear
      Set tmCAD = CreateObject("AutoCAD.Application.16")
      If Err Then
         MsgBox Err.Description
      Exit Sub
      End If
End If

tmCAD.Documents.Open "c:\123.dwg"
Set sSet = tmCAD.ActiveDocument.SelectionSets.Add("TEST")
tmCAD.ActiveDocument.SendCommand "_ai_selall" & Chr(13)
tmCAD.ActiveDocument.Export App.Path & "tempcad", "WMF", sSet
tmCAD.ActiveDocument.SelectionSets.Item("TEST").Delete
Picture1.Picture = LoadPicture(App.Path & "tempcad.wmf")
tmCAD.Documents.Close
tmCAD.Quit
Set tmCAD = Nothing

[[it] 本帖最后由西风独自凉于 2008-7-12 08:35 编辑 [/it]]

jxyga111 发表于 2008-7-12 09:13

LS的要不要引用

页: [1]