如何将系列零件设计表中图形 批量另存dwg格式

wfdm3

因参数化建模需要，需要批量输出图形dwg格式。注意不是在工程图模式下。有什么便捷的方法。用宏命令录像的话，鼠标指针无法移动到下有一个参数零件，比如鼠标从1移动到2，然后要双击的。
用按键精灵的话，也无法用键盘的向下↓箭头移动
) M1 b" p" q3 H2 ^& j6 [
; M1 P* R+ n4 M- V3 v; H* w
+ u: H  N! i% v

; K9 t) v" H& B  W6 o6 T+ S解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
参数化的好处就是建立图形快。
/ t% d; ?$ ]% a+ i* h5 V

jdwkl

楼主为什么要用solidworks做这件事呢

gt.adan

為什麼不在工程圖中執行呢？難道是沒有出工程圖？

wfdm3

没有出工程图啊。如果出工程图，参数化的一个系列里有30个零件图。要生成30多张drw文件，然后再转成dwg，效率更慢啊。目的就是建模空间直接快速转dwg,

gt.adan

# O% {6 L8 K, A
4 a+ M4 V6 E5 \" Q, x- u試試以下代碼

- B- t2 m( w" i( C

1. '將各配置獨立輸出DWG，檔名後綴為配置名稱
   5 e2 k7 O# _* T$ J  w
2. Dim swApp As Object
   2 k- y3 [8 Q' n6 P- ^/ d& k+ y
3. Dim Part As SldWorks.ModelDoc2
   + Z8 h1 O( s' W5 R
4. Dim swPart As SldWorks.PartDoc
   8 d/ a) ^! H2 ^7 ^, L# R0 _4 G
5. Dim feat As SldWorks.Feature
   
6. Dim boolstatus As Boolean
   
7. Dim longstatus As Long, longwarnings As Long
   
8. Dim dataAlignment(11) As Double
   6 w3 n% R/ }+ t$ f0 p8 |* ~
9. Dim dataViews(1) As String
   , R  z+ ^9 g+ y# y: v
10. 
    
11. Sub main()
    + R7 I: Y( k. @+ E- A
12. 
    
13. Set swApp = Application.SldWorks
    
14. Set Part = swApp.ActiveDoc
    ; b0 l! g$ w0 y
15. PartName = Part.GetPathName
    
16. sPathName = Part.GetPathName
    1 {3 w- d% l6 Q! B: S" |
17. sPathName = Left(sPathName, Len(sPathName) - 7)
    0 Q# u  [* T' s0 M& P
18. vConfigName = Part.GetConfigurationNames
    
19. For i = 0 To UBound(vConfigName)
    / k8 P; }4 }* {4 X
20.   sConfigName = vConfigName(i)
    
21.   Set swConfig = Part.GetConfigurationByName(sConfigName)
    3 C# b$ K4 b$ E! I3 m  ]
22.   boolstatus = Part.ShowConfiguration2(swConfig.Name)
    
23.   FileName = sPathName + "_" + swConfig.Name & ".dwg"
    
24.   Set swPart = Part
    # }, Y' t+ H7 ]& t$ T( U
25.   swPart.ExportToDWG FileName, PartName, 3, False, dataAlignment, False, False, 0, dataViews
    
26. Next i
    + i: F; l2 |, m) }& m: o
27. MsgBox "DONE！", 0 + 64
    5 k5 s" F* [$ p( e; G: {) b7 S
28. End Sub

复制代码

測試結果如下~

wfdm3

gt.adan 发表于 2017-6-30 11:26
" _$ u1 S0 n: ?* U7 e試試以下代碼

測試結果如下~

, G5 j. r9 R& I' _7 F' ?3 T非常感谢老大。
' Q4 U' e  I6 E6 _( _这是要建一个批处理吗？怎么用的？请赐教。谢谢。