DXF对DWG

Matersammichman · 发表于 2006-8-8 15:21:23

好的，我知道如何从VB6打开dwgs，但是如何打开DXF？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Jeff_M · 发表于 2006-8-8 15:36:55

杰夫，是的，我已经尝试了VBA中建议的导入代码，但没有成功。
想法？

Matersammichman · 发表于 2006-8-8 16:13:57

嗯，我刚刚测试过，Open方法适用于DXF文件.....

Sub Open_Test()
Dim dwg As AcadDocument
Set dwg = Application.Documents.Open("C:\Jeffs Test Files\junk\dxftest.dxf")
End Sub

Jeff_M · 发表于 2006-8-8 16:54:38

谢谢你的帮助，杰夫。
多亏了你，我才得以成功。
现在，我想做的是将我的dxf批量转换为dwg(大惊喜，是吧？大概不会)。那么，我如何用一个装满dxf的文件夹填充一个列表或组合框呢？我知道有很多这样的东西我可以买，但对我来说，贫穷和破产是必需品之母。

Matersammichman · 发表于 2006-8-8 17:41:26

这是用于Word的，但很容易修改以适应
http://www.vba-programmer.com/Snippets/Code_Word/Building_Filename_Array.html
然后您只需使用

mylistbox.list()=myarray

来填充您的列表框