Question

Cad 用vba 二次开发 想知道怎么用打开文件对话框选择文件或者文件夹，获

Cad 用vba 二次开发 想知道怎么用打开文件对话框选择文件或者文件夹，获得路径和文件名字

Answer 1

我也想知道，Excel的VBA有一个Application.GetOpenFilename可以用，但是CAD的VBA找不到类似的方法和对象。

Answer 2

VBA调用内置对话框—FileDialog | VBA实例教程 http://www.zhanzhanrufeng.com/cat1/314.html

追问

不行啊，cad 的vba好像没有FileDialog

Answer 3

选择文件夹代码，亲测试有用。选择文件的代码也有，但是不能弹出对话款，如果有选择文件的代码的话希望能分享下，我邮箱是860481995@qq.com
Private Sub CommandButton5_Click()
On Error Resume Next
'需要引用Microsoft Shell Controls And Automation
Dim shellA As New Shell
Dim shellB As folder
Set shellB = shellA.BrowseForFolder(0, BB, 0)
LJ_save = shellB.Items.Item.Path
If Right(LJ_save, 1) = "\" Then
LJ_save = Left(LJ_save, Len(LJ_save) - 1)
End If
TextBox4.Text = LJ_save
If Err <> O Then
MsgBox "发生错误！不能设置为桌面"
End If
End Sub

Answer 4

给你一段代码，我想你应该就是需要这种东西。。。。
其实就是VBA没有那个文件对话框，这是借用了LISP的办法来实现的。
Dim fileName As String
ThisDrawing.SendCommand "(setvar " & """users1""" & "(getfiled " & """Select a DWG File""" & """c:/program files/acad2002/""" & """dwg""" & "8)) "
fileName = ThisDrawing.GetVariable("users1")
MsgBox "You have selected " & fileName & "!!!", , "File"

Answer 5

可以利用excel vba的GetOpenFile 或GetSaveAsFilename方法。AutoCAD VBA 项目先引用 Microsoft Excel 16.0 Object Library，然后参考如下代码,
Set appExcel = CreateObject("EXCEL.APPLICATION")
fExcel = appExcel.GetSaveAsFilename("myFilename.xlsx", "Excel, *.xlsx;*.xls;*.xlsm", 1, "请选择需要存储的文件")
If (fExcel <> "False") Then theWorkbook.SaveAs Filename:=fExcel
可以实现在AutoCAD中调用文件对话框。GetOpenFile方法的代码类似。