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

kinglau

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

login1986

你看这样行吗?

我不知道是不你说的那样..

 

-----------------------------------------

Dim DwgPath As String
On Error Resume Next
With CommonDialog1
        .CancelError = True
        .MaxFileSize = 32767
        .Flags = cdlOFNHideReadOnly Or cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNNoDereferenceLinks
        .DialogTitle = "Select File"
        .Filter = "Drawing(*.dwg)|*.dwg|*(*.*)|*.*"
        .ShowOpen
        DwgPath = .FileName
End With

Application.Documents.Open DwgPath