cad VBA 在文件夹中选择文件

要在CAD VBA中在文件夹中选择文件，可以使用FileDialog对象。以下是一个示例代码：

Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog
    .Title = "选择要打开的文件"
    .Filters.Clear
    .Filters.Add "所有文件", "*.*"
    .InitialFileName = "C:\Path\To\Folder\"
    .AllowMultiSelect = False
    If .Show = True Then
        Dim filePath As String
        filePath = .SelectedItems(1)
        '进一步处理文件路径
    Else
        '用户取消了选择
    End If
End With

这将显示一个文件对话框，允许用户选择一个文件。您可以更改对话框标题、过滤器、初始文件夹路径等。如果用户选择了文件，将返回所选文件的路径，您可以在代码中进一步处理该路径。如果用户取消选择，则不会返回任何内容。

需要注意的是，FileDialog对象需要添加对Microsoft Office xx.x Object Library的引用，其中xx.x是您安装的Office版本。如果您使用的是CAD 2014或更早版本，则需要使用Microsoft Office xx.x Object Library的早期版本。