社区 › VB › 大虾们，怎么将autocad嵌入vb中

KJB 发表于 2005-5-9 09:29:00

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

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

zyh027 发表于 2005-5-11 16:18:00

好象不是很难，进入后点工程--引用，弹出对话框，找到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 发表于 2005-5-12 10:14:00

这位老兄，看看下面的方法是否合适：
1) 利用 shell函数，启动autocad程序，让其句柄付给一个变量，如
         acadhandle=shell("d:\programe files\autodesk\acad.exe",1)
2) 利用apI 中的         setparent 函数，将其嵌入到你的vb窗体中，
如何？

zjqmax 发表于 2005-5-12 10:41:00

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

zfbj 发表于 2005-5-12 14:22:00

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

KJB 发表于 2005-5-13 16:08:00

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

查看完整版本: 大虾们，怎么将autocad嵌入vb中