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

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

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

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

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


Private Sub mnu17_Click()<BR>On Error Resume Next<BR>                       <BR>                       ' 连接至 AutoCAD 应用程序<BR>                       Dim acadApp As AcadApplication<BR>                       Set acadApp = GetObject(, "AutoCAD.Application.16")<BR>                       If Err Then<BR>                                                       Err.Clear<BR>                                                       Set acadApp = CreateObject("AutoCAD.Application.16")<BR>                                                       If Err Then<BR>                                                                                       MsgBox Err.Description<BR>                                                                                       Exit Sub<BR>                                                       End If<BR>                       End If<BR>                       <BR>                       ' 连接至 AutoCAD 图形<BR>                       Dim acadDoc As AcadDocument<BR>                       Set acadDoc = acadApp.ActiveDocument<BR>                       <BR>                       acadDoc.ModelSpace.AddLightWeightPolyline ptArr1<BR>                       acadDoc.ModelSpace.AddLightWeightPolyline ptArr2<BR>                       <BR>                       ZoomAll<BR>                       acadApp.Visible = True<BR>                       <BR>                       '绘图完成，要求下一次计算<BR>                       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

我比较赞成<A name=30573><FONT color=#000066><B>fuday123</B></FONT></A>的想法，但具体怎么做？

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

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

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

我说的是将autocad嵌入VB中，就像MDI窗体那样，二楼三楼四楼支持的是调用autocad。不过zfbj说的Efan2000发表的文章，我一直也没找到，太头疼了！
页: [1]
查看完整版本: 大虾们，怎么将autocad嵌入vb中