大虾们，怎么将autocad嵌入vb中

kjb

大虾们，怎么样，将AutoCAD嵌入到vb form中！望赐教！！

zyh027

好象不是很难，进入后点工程--引用，弹出对话框，找到Autocad2004 type library( 我装的是2004版)，接着做一个command1, 双击进入代码，代码为： Private Sub mnu17_Click()
On Error Resume Next

' 连接至 AutoCAD 应用程序
Dim acadApp As AcadApplication
Set acadApp = GetObject(, "AutoCAD.Application.16")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If

' 连接至 AutoCAD 图形
Dim acadDoc As AcadDocument
Set acadDoc = acadApp.ActiveDocument

acadDoc.ModelSpace.AddLightWeightPolyline ptArr1
acadDoc.ModelSpace.AddLightWeightPolyline ptArr2

ZoomAll
acadApp.Visible = True

'绘图完成，要求下一次计算
bCal = False End Sub 运行程序，点击command1,就进入autocad2004了

fuday123

这位老兄，看看下面的方法是否合适：


1) 利用 shell函数，启动autocad程序，让其句柄付给一个变量，如


         acadhandle=shell("d:\programe files\autodesk\acad.exe",1)


2) 利用apI 中的         setparent 函数，将其嵌入到你的vb窗体中，


如何？

zjqmax

我比较赞成fuday123的想法，但具体怎么做？

zfbj

大概1年前Efan2000发表了一个帖子，实现了这种效果，并且很不错，你可以搜索一下看看。

kjb

我说的是将autocad嵌入VB中，就像MDI窗体那样，二楼三楼四楼支持的是调用autocad。不过zfbj说的Efan2000发表的文章，我一直也没找到，太头疼了！