鈑金展開存到桌面為dwg或dxf

huamg

求助下列代碼求各位大神可以幫我改成.執行巨集 板金件->工程圖平板顯示->存到桌面為dwg或dxf嗎

目前只做到工程圖平板.可以改成自動存檔為dwg或dxf嗎  謝謝幫忙

1. ' ******************************************************************************
   
2. ' C:\Documents and Settings\Administrator\Local Settings\Temp\swx3104\Macro1.swb - macro recorded on 05/22/16 by Administrator
   
3. ' ******************************************************************************
   
4. Option Explicit
   
5. 
   
6. Dim swApp As SldWorks.SldWorks
   
7. Dim swModel As SldWorks.ModelDoc2
   
8. Dim swPart As SldWorks.PartDoc
   
9. Dim swModelDocExt As SldWorks.ModelDocExtension
   
10. Dim swSelMgr As SldWorks.SelectionMgr
    
11. Dim swDrawing As SldWorks.DrawingDoc
    
12. Dim swView As SldWorks.View
    
13. Dim retval As String
    
14. Dim boolstatus As Boolean
    
15. Sub main()
    
16. Set swApp = Application.SldWorks
    
17. Set swModel = swApp.ActiveDoc
    
18. Set swPart = swModel
    
19. Set swModelDocExt = swModel.Extension
    
20. Set swSelMgr = swModel.SelectionManager
    
21. retval = swApp.GetUserPreferenceStringValue(swDefaultTemplateDrawing)
    
22. 
    
23. Set swModel = swApp.NewDocument(retval, 0, 0, 0)
    
24. Set swDrawing = swModel
    
25. 
    
26. Set swView = swDrawing.CreateDrawViewFromModelView3(swPart.GetPathName, "平板型式", 0.1, 0.14, 0)
    
27. 
    
28. boolstatus = swModelDocExt.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
    
29. 
    
30. boolstatus = swDrawing.ActivateView("Drawing View1")
    
31. swModel.ClearSelection2 True
    
32. 
    
33. End Sub
    

複製代碼

pyczt

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

複製代碼

gt.adan

pyczt 發表於 2016/7/14 17:08

誠摰歡迎前輩加入幾何~

chin-hui

pyczt 發表於 2016/7/14 17:08

大哥，您這個程式真的很好用，我用了許久，但最近換了公司發現有一些美中不足的，想請問您，
針對保留折線的部份，我們工件正常會有正折，反折，能否將折線區分出來呢，例如顏色or 線型不同等等的呢。
請指教

vip0537

FilePath = Left(swModelName, Len(swModelName) - 7) + "平板图.dwg" '定义工程图名
钣金另存为DWG，文件名能否增加自定义属性，命名格式为文件名+材料+板厚+数量
1 引用其他论坛的代码这个语句bool = swCustProp.Get4("代号", False, val, valout) 'val:图号值。。。读取的是零件自定义属性第三列 数值/文字表达式栏的值（只能是数值，如果是表达式这里就读不出来），并非第四列里 评估的值
请教各位，如何改写能实现读取  评估的值
2 文件命名语句 FilePath = Left(swModelName, Len(swModelName) - 7) + val + "展开图.dwg" '定义工程图名
是否能实现   新文件名 = 文件名-材料-板厚-单台用量.dwg