请教各位大侠：在VB程序中嵌入了CAD界面，如何同时打开一个指定的文件

zhangone

前面看了efan版主及各位大侠关于“在VB程序窗体中嵌入CAD界面”的帖子，受益匪浅，

在此对efan版主及各位的热心表示深深感谢  :）

这里有一个小问题：在VB程序窗体中嵌入CAD界面后，如何同时同时打开一个指定的cad文件？

前面代码是这样的：

Private
  Sub Form_Load()

    
     On   Error   GoTo ErrTrap
     Set acadApp =   GetObject(, "AutoCAD.Application")
     acadApp.Visible   = True
     lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))
     If lHwnd = 0 Then   Exit   Sub
     lState = acadApp.WindowState
     acadApp.WindowState   = 1 '设置ACAD的窗口状态为默认，用于保存窗口位置。
     GetWindowRect lHwnd, r
     SetParent lHwnd, Form1.hwnd
     Form1.ScaleMode = vbPixels '将VB窗体默认的缇单位改为以像素为单位。
     SetWindowPos lHwnd, 0, Form1.ScaleLeft, Form1.ScaleTop, Form1.ScaleWidth, Form1.ScaleHeight, 0
     Exit   Sub

     ErrTrap:
         On Error GoTo 0
End Sub

zhangone

怎么没人发表意见啊？