如何调用API函数打开文件保存对话框和文件打开对话框，返回文件路径？？？

efan2000

标准的打开和保存文件对话框，应该是采用ARX的acedGetFileNavDialog函数。如：

1. Sub test()
   
2.     Dim result As ResultBuffer
   
3.     AcedGetFileNavDialog "图形另存为", ThisDrawing.Name, "dwg", "", 4, result
   
4.     AcedGetFileNavDialog "选择文件", "", "dwg", "", 4, result
   
5.     Dim v As Variant
   
6.     v = result.AsArray()
   
7.     Dim i As Integer
   
8.     For i = 0 To UBound(v)
   
9.         Dim tv As TypedValue
   
10.         Set tv = v(i)
    
11.         Debug.Print tv.Value
    
12.     Next
    
13. End Sub

Sub test()<br />     Dim result As ResultBuffer<br />     AcedGetFileNavDialog "图形另存为", ThisDrawing.Name, "dwg", "", 4, result<br />     AcedGetFileNavDialog "选择文件", "", "dwg", "", 4, result<br />     Dim v As Variant<br />     v = result.AsArray()<br />     Dim i As Integer<br />     For i = 0 To UBound(v)<br />         Dim tv As TypedValue<br />         Set tv = v(i)<br />         Debug.Print tv.Value<br />     Next<br /> End Sub

该函数的COM方式，可以查找ARX的COM实现的贴子。

阿霸jun

yuanziyou 发表于 2013-12-17 23:25
感谢指点,我自己又揉和了一个多选模式打开的!

多选模式的能不能共享看看，我找这个很久了！