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

DXF对DWG

好的,我知道如何从VB6打开dwgs,但是如何打开DXF?
**** Hidden Message *****

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
来填充您的列表框
页: [1]
查看完整版本: DXF对DWG