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

wfdm3

因参数化建模需要，需要批量输出图形dwg格式。注意不是在工程图模式下。有什么便捷的方法。用宏命令录像的话，鼠标指针无法移动到下有一个参数零件，比如鼠标从1移动到2，然后要双击的。
用按键精灵的话，也无法用键盘的向下↓箭头移动


% J; X. X9 t0 s: `- }9 U% V- B/ i2 y
3 f" G3 ]6 |, j$ I: W
解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
参数化的好处就是建立图形快。
1 q# e! C$ v! a& K

jdwkl

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

gt.adan

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

wfdm3

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

gt.adan

" t" K7 _4 }0 b' Q試試以下代碼

7 M1 z; \! ?& Z8 J

1. '將各配置獨立輸出DWG，檔名後綴為配置名稱
     p6 z+ J' z- W5 n2 p
2. Dim swApp As Object
   ) b& @; ]. t0 }- d" r9 j; x5 E
3. Dim Part As SldWorks.ModelDoc2
   8 f3 x; h: V; R& k/ J( G! J& x, Q/ \
4. Dim swPart As SldWorks.PartDoc
   
5. Dim feat As SldWorks.Feature
   6 ^) R" L: @: z# }( ]. h9 N* a
6. Dim boolstatus As Boolean
     n% T8 I3 f7 Q+ |0 `
7. Dim longstatus As Long, longwarnings As Long
   
8. Dim dataAlignment(11) As Double
   5 u2 y) b1 |. `, e7 X. J
9. Dim dataViews(1) As String
   1 w0 U2 m1 g6 H$ N5 @  B4 j
10. 
    . ^/ T7 e; h/ e
11. Sub main()
    0 b- V- }/ U- ^" o4 u
12. 
    ) P! L8 m5 E% l7 E; \
13. Set swApp = Application.SldWorks
    
14. Set Part = swApp.ActiveDoc
    
15. PartName = Part.GetPathName
    % c* C+ c% X* A' D( a% H! A
16. sPathName = Part.GetPathName
    9 P5 A" F$ U3 Q1 n8 G9 J
17. sPathName = Left(sPathName, Len(sPathName) - 7)
    $ ?! n8 L, B' H1 j6 f, O3 {# Q5 y
18. vConfigName = Part.GetConfigurationNames
    
19. For i = 0 To UBound(vConfigName)
    
20.   sConfigName = vConfigName(i)
    7 h: p3 a6 g) O4 |9 O) D3 H
21.   Set swConfig = Part.GetConfigurationByName(sConfigName)
    
22.   boolstatus = Part.ShowConfiguration2(swConfig.Name)
    2 O. s/ ]% q8 J, i8 d! y" x" B: w
23.   FileName = sPathName + "_" + swConfig.Name & ".dwg"
    
24.   Set swPart = Part
    
25.   swPart.ExportToDWG FileName, PartName, 3, False, dataAlignment, False, False, 0, dataViews
    
26. Next i
    7 G+ [% C: W3 _- M& t( M" v) B5 ^
27. MsgBox "DONE！", 0 + 64
    
28. End Sub

复制代码

測試結果如下~

! i1 z' v; ?2 t8 J$ T: ]  l# G& @
+ T: ?9 q3 M+ i7 D2 O' N" C. F- [0 y

wfdm3

gt.adan 发表于 2017-6-30 11:26
試試以下代碼
/ \2 g# ]* g& q4 g% ?' d
測試結果如下~

0 j  O( b) T5 `' A2 _) p非常感谢老大。
这是要建一个批处理吗？怎么用的？请赐教。谢谢。