[讨论]：怎样通过编程实现dwg与dxf文件之间的转换

hope

如题
VC /VB 都可以

秋枫

如果目标机器上没有安装autocad, 是很麻烦的，需要知道dwg文件的格式。

如果在有autocad的机器上运行，可以用com接口调用，让autocad做这事（可以后台偷偷运行
autocad。

efan2000

在VB中，打开一个DWG文件用Open，打开一个DXF文件用Import，实际上CAD对DXF文件的操作是导入。保存时，如果不是保存当前版本的DWG文件或者是其它类型的文件，则用SaveAs，否则用Save。

2. 
   
3.   [FONT=courier new]
   
4.     ' 打开DWG文件。
   
5. ThisDrawing.Application.Documents.Open ("C:\AutoCAD\Sample\downtown.dwg") '  ' 根据自己的文件位置设置适当的路径。
   
6. 
   
7.    ' 导入DXF文件。
   
8.     Dim importFile As String
   
9.     Dim InsertPoint(0 To 2) As Double
   
10.     Dim scalefactor As Double
    
11. 
    
12.     importFile = "C:\AutoCAD\DXFExprt.dxf"
    
13.     InsertPoint(0) = 0#: InsertPoint(1) = 0#: InsertPoint(2) = 0#
    
14.     scalefactor = 2#
    
15. 
    
16.     ThisDrawing.Import importFile, InsertPoint, scalefactor
    
17. 
    
18.     ' 保存DXF文件，R2000版本。
    
19.     ThisDrawing.SaveAs "test.dwg", acR15_DXF
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br />     ' 打开DWG文件。<br /> ThisDrawing.Application.Documents.Open ("C:\AutoCAD\Sample\downtown.dwg") '  ' 根据自己的文件位置设置适当的路径。<br /> <br />    ' 导入DXF文件。<br />     Dim importFile As String<br />     Dim InsertPoint(0 To 2) As Double<br />     Dim scalefactor As Double<br /> <br />     importFile = "C:\AutoCAD\DXFExprt.dxf" <br />     InsertPoint(0) = 0#: InsertPoint(1) = 0#: InsertPoint(2) = 0#<br />     scalefactor = 2#<br /> <br />     ThisDrawing.Import importFile, InsertPoint, scalefactor<br /> <br />     ' 保存DXF文件，R2000版本。<br />     ThisDrawing.SaveAs "test.dwg", acR15_DXF<br />   [/FONT]<br />