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

wfdm3

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

' O9 h0 Q! r; @4 A
  W5 N3 s) A6 j5 `% p
" k" S, N" B0 l
解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
/ M/ ~1 g% W4 v$ [# ]( v- i参数化的好处就是建立图形快。

jdwkl

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

gt.adan

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

wfdm3

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

gt.adan

. K" h2 \9 J0 p6 {! z/ S
% l7 H' L1 Z, ]! d! U- c3 \試試以下代碼

% L" k- a$ M3 \. q

1. '將各配置獨立輸出DWG，檔名後綴為配置名稱
   ) ?3 X' a1 z* T/ |& P
2. Dim swApp As Object
   
3. Dim Part As SldWorks.ModelDoc2
   7 }' w* h1 w9 B  l
4. Dim swPart As SldWorks.PartDoc
   
5. Dim feat As SldWorks.Feature
   $ t- Y9 f6 ~6 z0 ^. n
6. Dim boolstatus As Boolean
   
7. Dim longstatus As Long, longwarnings As Long
   
8. Dim dataAlignment(11) As Double
   
9. Dim dataViews(1) As String
   
10. 
    
11. Sub main()
    
12. 
    ) P4 v* K7 s  P; a
13. Set swApp = Application.SldWorks
    
14. Set Part = swApp.ActiveDoc
    
15. PartName = Part.GetPathName
    ' b8 ^2 N* r7 w' @# ~
16. sPathName = Part.GetPathName
    ! c  l. s+ C) o) i; r! v9 O
17. sPathName = Left(sPathName, Len(sPathName) - 7)
    
18. vConfigName = Part.GetConfigurationNames
    
19. For i = 0 To UBound(vConfigName)
    & h, W; k3 Q+ b
20.   sConfigName = vConfigName(i)
    
21.   Set swConfig = Part.GetConfigurationByName(sConfigName)
    
22.   boolstatus = Part.ShowConfiguration2(swConfig.Name)
    $ Z# H& X: X& X
23.   FileName = sPathName + "_" + swConfig.Name & ".dwg"
    
24.   Set swPart = Part
    % y4 [9 d9 f2 o$ W* F; X4 H
25.   swPart.ExportToDWG FileName, PartName, 3, False, dataAlignment, False, False, 0, dataViews
    
26. Next i
    
27. MsgBox "DONE！", 0 + 64
    % z! j) q; M1 X; K' i
28. End Sub

复制代码

測試結果如下~
. D1 Q) q2 d- r/ I
8 g5 w( {/ m) I/ X3 {! n- w
' k- B  o% I' S* C; O

wfdm3

gt.adan 发表于 2017-6-30 11:26
; J+ a$ s6 {7 p1 k6 Z. G, {% Y試試以下代碼
0 D$ F- E. y: A3 D# V# m
2 K+ `5 q+ H' U7 {  R* H: ]測試結果如下~

非常感谢老大。
这是要建一个批处理吗？怎么用的？请赐教。谢谢。