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

wfdm3

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

" ?0 j: Z. ^8 a

" B0 I9 L3 I: a' `+ }, t0 @
; a( m; f3 ^: L5 R3 h& g. R: @解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
参数化的好处就是建立图形快。
6 ]3 J( N/ \. F! \) s; P! o

jdwkl

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

gt.adan

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

wfdm3

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

gt.adan

8 C! |  O8 o8 T+ R+ M
3 W1 I' r  `' W* m+ M試試以下代碼

1. '將各配置獨立輸出DWG，檔名後綴為配置名稱
   8 y' K$ h$ B% S2 r! c' X& h
2. Dim swApp As Object
   
3. Dim Part As SldWorks.ModelDoc2
   - C3 F$ u1 \7 e; D" j! F. Q
4. Dim swPart As SldWorks.PartDoc
   " ?6 |/ A& ~' d8 B& {6 t
5. Dim feat As SldWorks.Feature
   , k+ `' O2 O7 G7 Q  a7 ^0 H, E( H
6. Dim boolstatus As Boolean
   " ]: E& f" H2 ?' c& }6 S2 T
7. Dim longstatus As Long, longwarnings As Long
   ; o! g, `: K9 D3 c. }- n; E; J
8. Dim dataAlignment(11) As Double
   $ ?, `1 J4 k& v" y( q* `
9. Dim dataViews(1) As String
   
10. 
    
11. Sub main()
    & O- l. `. h% q4 O9 ?3 v
12. 
    
13. Set swApp = Application.SldWorks
    
14. Set Part = swApp.ActiveDoc
    4 g& S& f/ C& k! [
15. PartName = Part.GetPathName
    
16. sPathName = Part.GetPathName
    $ n' M) m3 s% Q) C# g$ m- S4 y& f
17. sPathName = Left(sPathName, Len(sPathName) - 7)
    
18. vConfigName = Part.GetConfigurationNames
    
19. For i = 0 To UBound(vConfigName)
    
20.   sConfigName = vConfigName(i)
    2 i$ T% x, }1 R& L
21.   Set swConfig = Part.GetConfigurationByName(sConfigName)
    
22.   boolstatus = Part.ShowConfiguration2(swConfig.Name)
    / B# I* R5 D3 S7 B: W* }
23.   FileName = sPathName + "_" + swConfig.Name & ".dwg"
    
24.   Set swPart = Part
    1 R" b" y; Y6 e4 u+ W8 v7 b9 G) Q
25.   swPart.ExportToDWG FileName, PartName, 3, False, dataAlignment, False, False, 0, dataViews
    
26. Next i
    4 `  N1 _) D! _6 J6 Y/ z" I# R
27. MsgBox "DONE！", 0 + 64
    + B; n) K( _- U  ?
28. End Sub

复制代码

測試結果如下~
  w7 i8 ^, H5 v5 p7 ]8 O/ \4 }
) N. y3 d. G& T, u

wfdm3

gt.adan 发表于 2017-6-30 11:26
/ m2 O1 c# {3 X$ v- `8 n試試以下代碼

測試結果如下~

非常感谢老大。
0 ^  |! y( ~8 X9 ^这是要建一个批处理吗？怎么用的？请赐教。谢谢。