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

wfdm3

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


( u1 q( l" p/ R
6 X* q1 Q; h  h& I9 Z6 e
解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
$ Q+ @9 R/ Q3 B  E, S" J参数化的好处就是建立图形快。

jdwkl

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

gt.adan

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

wfdm3

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

gt.adan

. M' j2 T/ C" w試試以下代碼

8 ]! F* _' L) k9 h" U

1. '將各配置獨立輸出DWG，檔名後綴為配置名稱
   
2. Dim swApp As Object
   
3. Dim Part As SldWorks.ModelDoc2
   5 [9 _( ]$ \" @! c
4. Dim swPart As SldWorks.PartDoc
   + A2 I- m7 g; Q' Z3 V" \) @. k
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
   1 ^& ]: C2 X* h* r. b6 ~& n3 d- _
9. Dim dataViews(1) As String
   
10. 
    3 v/ c) B/ V+ D& }1 s( X, s7 U
11. Sub main()
    
12. 
    . j( D* v' N2 Y  h3 i% u0 n% b$ ~
13. Set swApp = Application.SldWorks
    - y3 s% h( c4 a5 P
14. Set Part = swApp.ActiveDoc
    " v0 ]) o3 |: x
15. PartName = Part.GetPathName
    3 |  i8 b- W4 `4 _! w! y9 e8 b
16. sPathName = Part.GetPathName
    ) ^, d2 P8 ~6 s% F( s; y; G
17. sPathName = Left(sPathName, Len(sPathName) - 7)
    
18. vConfigName = Part.GetConfigurationNames
    7 ~' D+ g3 f% {1 a7 {& Y$ T
19. For i = 0 To UBound(vConfigName)
    3 g6 ?8 X: d/ b  T& w
20.   sConfigName = vConfigName(i)
    
21.   Set swConfig = Part.GetConfigurationByName(sConfigName)
    * N% i  q$ i& T* d+ f+ O9 a9 v
22.   boolstatus = Part.ShowConfiguration2(swConfig.Name)
    ; {9 q9 P. |6 s4 }& A& R
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
    / f" d2 }7 i0 @3 Y; s" j7 |- A
27. MsgBox "DONE！", 0 + 64
    
28. End Sub

复制代码

測試結果如下~
- a8 P$ Z# E0 ^4 V6 ^# y- y

4 s2 p9 Z7 C3 X, R6 S9 E0 g7 C5 i9 }

wfdm3

gt.adan 发表于 2017-6-30 11:26
* v, O$ q6 F) ?試試以下代碼
$ E# k7 }2 h8 T6 }! G( g
測試結果如下~

非常感谢老大。
+ n$ k6 I5 a! g/ K这是要建一个批处理吗？怎么用的？请赐教。谢谢。