zhangone 发表于 2008-4-25 12:40:00

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

本帖最后由 作者 于 2008-4-26 8:43:54 编辑 <br /><br /> <p></p><p>前面看了efan版主及各位大侠关于“在VB程序窗体中嵌入CAD界面”的帖子，受益匪浅，</p><p>在此对efan版主及各位的热心表示深深感谢&nbsp; :）</p><p></p><p>这里有一个小问题：在VB程序窗体中嵌入CAD界面后，如何同时同时打开一个指定的cad文件？</p><p>前面代码是这样的：</p><p><font color="#0000ff">Private</font><br/>&nbsp;&nbsp;<font color="#0000ff">Sub</font> Form_Load<font color="#ff0000">(</font><font color="#ff0000">)</font><br/><br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">On&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">Error&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">GoTo</font> ErrTrap<br/>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">Set</font> acadApp <font color="#0000ff">=&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">GetObject</font><font color="#ff0000">(</font>, <font color="#880000">"AutoCAD.<font color="#0000ff">Application</font>"</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; acadApp.<font color="#0000ff">Visible&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">=</font> True<br/>&nbsp;&nbsp;&nbsp;&nbsp; lHwnd <font color="#0000ff">=</font> GetParent<font color="#ff0000">(</font>GetParent<font color="#ff0000">(</font>acadApp.<font color="#0000ff">Activedocument</font>.hwnd<font color="#ff0000">)</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">If</font> lHwnd <font color="#0000ff">=</font> 0 <font color="#0000ff">Then&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">Exit&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">Sub</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; lState <font color="#0000ff">=</font> acadApp.<font color="#0000ff">WindowState</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; acadApp.<font color="#0000ff">WindowState&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">=</font> 1 <font color="#008000">'设置ACAD的窗口状态为默认，用于保存窗口位置。</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; GetWindowRect lHwnd, r<br/>&nbsp;&nbsp;&nbsp;&nbsp; SetParent lHwnd, Form1.<font color="#0000ff">hwnd</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; Form1.ScaleMode <font color="#0000ff">=</font> vbPixels <font color="#008000">'将VB窗体默认的缇单位改为以像素为单位。</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; SetWindowPos lHwnd, 0, Form1.ScaleLeft, Form1.ScaleTop, Form1.<font color="#0000ff">ScaleWidth</font>, Form1.<font color="#0000ff">ScaleHeight</font>, 0<br/><font color="#0000ff">&nbsp;&nbsp;&nbsp;&nbsp; Exit&nbsp;</font>&nbsp;&nbsp;<font color="#0000ff">Sub</font></p><p>&nbsp;&nbsp;&nbsp;&nbsp; ErrTrap:<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0000ff">On</font>
                <font color="#0000ff">Error</font>
                <font color="#0000ff">GoTo</font> 0<br/><font color="#0000ff">End Sub</font><br/><br/><br/></p><p></p>

zhangone 发表于 2008-4-27 23:33:00

怎么没人发表意见啊？
页: [1]
查看完整版本: 请教各位大侠：在VB程序中嵌入了CAD界面，如何同时打开一个指定的文件