kinglau 发表于 2006-5-11 10:14:00

请教如何在CAD中做一个窗体通过选择路径来打开指定的DWG文件

<P>请教如何在CAD中做一个窗体通过选择路径来打开指定的DWG文件,我用CommonDialog控件没有实现这个功能，请指点~</P>

login1986 发表于 2006-5-11 10:37:00

<P>你看这样行吗?</P>
<P>我不知道是不你说的那样..</P>
<P>&nbsp;</P>
<P>-----------------------------------------</P>
<P>Dim DwgPath As String<BR>On Error Resume Next<BR>With CommonDialog1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CancelError = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .MaxFileSize = 32767<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Flags = cdlOFNHideReadOnly Or cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNNoDereferenceLinks<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .DialogTitle = "Select File"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Filter = "Drawing(*.dwg)|*.dwg|*(*.*)|*.*"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ShowOpen<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DwgPath = .FileName<BR>End With</P>
<P>Application.Documents.Open DwgPath</P>
<P><BR>&nbsp;</P>
页: [1]
查看完整版本: 请教如何在CAD中做一个窗体通过选择路径来打开指定的DWG文件