DXF与DWG

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

好的，我知道如何从VB6打开DWG，但如何打开DXF#039；s

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

杰夫，是的，我&#039；我尝试了VBA中建议的导入代码，但没有成功
想法？

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

嗯，我刚刚测试过，开放方法适用于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 17:41:26

谢谢你的帮助杰夫
I&#039；多亏了你，我才使它工作起来
现在，我想做的是批量转换我的dxf&#039；s转换为图纸&#039；（大惊喜，嗯？可能不会）。那么，如何用一个充满dxf的文件夹填充列表或组合框；s我知道外面有很多我可以买的，但就我而言，穷人和穷人是必需品之母。

Jeff_M · 发表于 2006-8-9 03:11:29

这是文字，但它&#039；s易于修改以适应http://www.vba-programmer.com/Snippets/Code_Word/Building_Filename_Array.html然后你只需要使用

mylistbox.list()=myarray

填充列表框