leasson 发表于 2006-7-28 11:20:00

如何打开文件?

<P>如果已经知道了一个。DWG图形文件的路径,怎样用程序的方法打开它?</P>
<P>还有,如何用程序的方法去定义一个。WMF的图形文件?图形文件名自己在程序里给出。</P>
<P>(注意:两者都不用对话框显示!)</P>

fjfhgdwfn 发表于 2006-7-29 14:02:00

<PRE class=prog_in_0>Sub Ch3_OpenDrawing()</PRE><A name="" nid="3"></A><PRE class=prog_in_0>    Dim dwgName As String</PRE><A name="" nid="4"></A><PRE class=prog_in_0>    dwgName = "c:\Program Files\autocad 2002\sample\campus.dwg"</PRE><A name="" nid="5"></A><PRE class=prog_in_0>    If Dir(dwgName) &lt;&gt; "" Then</PRE><A name="" nid="6"></A><PRE class=prog_in_0>      ThisDrawing.Application.Documents.Open dwgName</PRE><A name="" nid="7"></A><PRE class=prog_in_0>    Else</PRE><A name="" nid="8"></A><PRE class=prog_in_0>      MsgBox "File " &amp; dwgName &amp; " does not exist."</PRE><A name="" nid="9"></A><PRE class=prog_in_0>    End If</PRE><A name="" nid="10"></A><PRE class=prog_in_end_0>End Sub</PRE>
页: [1]
查看完整版本: 如何打开文件?