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

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

大虾们，怎么样，将嵌入到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窗体中，
如何？