Public Function SaveTo()
On Error GoTo error SaveTo = "" Dim Dname As String Dim comdlg As CommonDialog Set comdlg = New CommonDialog comdlg.Filter = "*.dgn" comdlg.fileName = Dname comdlg.CancelError = True comdlg.ShowSave If Len(comdlg.fileName) = 0 Then Exit Function '保存到文件 If Dir(comdlg.fileName) <> "" Then If MsgBox("文件已存在,是否覆盖?", vbYesNo, "文件已存在") = vbNo Then comdlg.ShowSave End If
' SaveTo = comdlg.fileName Call ActiveDesignFile.SaveAs(comdlg.fileName & ".dgn", True, msdDesignFileFormatV8)
Set comdlg = Nothing Exit Function error: Set comdlg = Nothing Exit Function '用户按了取消
' End Function
[转载Bentley中文知识库原帖] MicroStation迷:请把你的MVBA文件放上来我在我的电脑试一试。