|
|
前面看了efan版主及各位大侠关于“在VB程序窗体中嵌入CAD界面”的帖子，受益匪浅，
在此对efan版主及各位的热心表示深深感谢 :）
这里有一个小问题：在VB程序窗体中嵌入CAD界面后，如何同时同时打开一个指定的cad文件？
前面代码是这样的：
Private
Sub Form_Load()
On Error GoTo ErrTrap
Set acadApp = GetObject(, ".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
|
|
置顶卡
