如何在ＶＢ里加载ＣＡＤ文件？？？
并可以对其进行浏览，漫游，
哪位知道的告诉小弟一下，在下感激不尽

[此贴子已经被作者于2007-9-27 20:01:52编辑过]

我没碰过cad

某个家伙签名太恶心。没心情回答了

你不回答就不回答，少在这发水贴！！！

您批评的是。

????
有没有能帮忙的兄弟啊！！！１

Sub Ch2_ConnectToAcad()
On Error Resume Next
’ 连接至 AutoCAD 应用程序
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.Descri ption
Exit Sub
End If
End If
’ 连接至 AutoCAD 图形
tmCAD.Visible = True ’ 隐式地打开
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
End Sub

[此贴子已经被作者于2007-9-27 8:06:30编辑过]

[QUOTE]tmCAD.Visible = True ’ 隐式地打开 [/QUOTE]

这都给你抓出来,你的眼睛也太厉害啦吧.

tmCAD.Visible = True 是可见打开
tmCAD.Visible = False 是不可见打开

呵呵
楼主很幸运，在论坛上遇到一个用VB调用CAD组件的强人。赞一个。