宏--钣金零件以平板型式存为DXF/DWG文件

1. 'Enables a sheet metal part to be saved to disk in its flattened state to a DXF/DWG file.
   
2. '钣金零件以平板型式存为DXF/DWG文件-----PYCZT
   
3. Dim swApp As Object
   
4. Dim swModel As Object
   
5. Dim swModelName As String
   
6. Dim FilePath As String
   
7. Dim value As Boolean
   
8. Sub main()
   
9. Set swApp = Application.SldWorks
   
10. Set swModel = swApp.ActiveDoc
    
11. swModelName = swModel.GetPathName      '读取当前SW模型文档名(含路径)
    
12. FilePath = Left(swModelName, Len(swModelName) - 7) + "平板图.dwg" '定义工程图名
    
13. 'value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_None)  保留折弯线
    
14. value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_RemoveBends)     '无折弯线
    
15. End Sub

复制代码

当前为钣金零件,运行宏,将在同路径下以平板型式存为DWG文件

感谢楼主分享

要是能批处理就更好了，期待！好东西

谢谢分享，要是能批处理就更好了

谢谢分享，学到了不少东西

謝謝前輩分享的宏~