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

wfdm3

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



解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
# q" T. a0 W; H7 L2 f参数化的好处就是建立图形快。

jdwkl

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

gt.adan

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

wfdm3

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

gt.adan

8 y3 x6 F* {# M1 F8 S
試試以下代碼

1. '將各配置獨立輸出DWG，檔名後綴為配置名稱
   8 W- \6 c5 O/ H+ X0 I6 Q
2. Dim swApp As Object
   0 U" x. n$ k7 A- S) r. N
3. Dim Part As SldWorks.ModelDoc2
   % f4 n6 I- c7 z
4. Dim swPart As SldWorks.PartDoc
   
5. Dim feat As SldWorks.Feature
   : X2 |  R6 y8 Z/ W5 N
6. Dim boolstatus As Boolean
   ) |' }0 ?; b2 y$ D) ?
7. Dim longstatus As Long, longwarnings As Long
   4 i+ I$ H" O! n+ L6 z/ z6 Y6 Z' y5 V% b
8. Dim dataAlignment(11) As Double
   ; l0 E6 P+ }4 D) e# U
9. Dim dataViews(1) As String
   
10. 
    $ x; C. Y4 c0 |# `
11. Sub main()
    
12. 
    
13. Set swApp = Application.SldWorks
    + m) O% {5 p7 {, R: m% X8 ^8 n& i) m
14. Set Part = swApp.ActiveDoc
    
15. PartName = Part.GetPathName
    
16. sPathName = Part.GetPathName
    3 |# Q: y% ]# V7 h
17. sPathName = Left(sPathName, Len(sPathName) - 7)
    . L- v" u0 h2 b7 g- O! Z! E
18. vConfigName = Part.GetConfigurationNames
    
19. For i = 0 To UBound(vConfigName)
    
20.   sConfigName = vConfigName(i)
    
21.   Set swConfig = Part.GetConfigurationByName(sConfigName)
    & I# O3 i$ p  x' _
22.   boolstatus = Part.ShowConfiguration2(swConfig.Name)
    
23.   FileName = sPathName + "_" + swConfig.Name & ".dwg"
    4 v% O, U; y) d
24.   Set swPart = Part
    
25.   swPart.ExportToDWG FileName, PartName, 3, False, dataAlignment, False, False, 0, dataViews
    ' Z$ H8 B2 x2 O3 z7 C7 y$ |8 T
26. Next i
    
27. MsgBox "DONE！", 0 + 64
    3 M" z3 D- `) V9 _% S5 Q. x$ Q
28. End Sub

复制代码

測試結果如下~
2 D5 O1 D, Q4 s& E$ \. w0 E
& [2 ~0 E4 E# G# a, n5 J0 j

wfdm3

gt.adan 发表于 2017-6-30 11:26
試試以下代碼

. J, t( ]+ x! B  H測試結果如下~

. x2 c/ c* _. N) G" a# G非常感谢老大。
这是要建一个批处理吗？怎么用的？请赐教。谢谢。