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

wfdm3

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

( n, t' }& x, F8 t7 [  M

2 U  S8 h$ @' {- \/ F; z8 s
% E- m# }# l$ E6 K解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
9 Y! d* L' w8 R& k3 F参数化的好处就是建立图形快。

jdwkl

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

gt.adan

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

wfdm3

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

gt.adan

( z# d5 K, ^5 ^$ p* S+ M# c( G# w
( N# ~) y: R0 W0 `' }: Q! j試試以下代碼
- C1 z- s5 r& s/ }7 w* r/ G

1. '將各配置獨立輸出DWG，檔名後綴為配置名稱
   7 K) ]% F: s! }- u1 z  m- Z
2. Dim swApp As Object
   ; }9 H# S) H8 A8 y
3. Dim Part As SldWorks.ModelDoc2
   
4. Dim swPart As SldWorks.PartDoc
   , _3 i* e' b/ s
5. Dim feat As SldWorks.Feature
   ( C7 ]* b1 J+ D6 i
6. Dim boolstatus As Boolean
   : `( p1 O1 Y. U; {5 \1 }5 v: F1 K
7. Dim longstatus As Long, longwarnings As Long
   9 k% @" C- H! \% M% J) B* ~
8. Dim dataAlignment(11) As Double
   
9. Dim dataViews(1) As String
   0 H( c/ q* Z& S8 c% v9 {
10. 
    
11. Sub main()
    
12. 
    
13. Set swApp = Application.SldWorks
    
14. Set Part = swApp.ActiveDoc
    
15. PartName = Part.GetPathName
    
16. sPathName = Part.GetPathName
    7 F- ]5 |% m4 e$ t. r! M- I
17. sPathName = Left(sPathName, Len(sPathName) - 7)
    
18. vConfigName = Part.GetConfigurationNames
    
19. For i = 0 To UBound(vConfigName)
    
20.   sConfigName = vConfigName(i)
    ! e0 |7 D7 M9 z. I5 C
21.   Set swConfig = Part.GetConfigurationByName(sConfigName)
    / p( g9 V6 \+ o+ U5 z
22.   boolstatus = Part.ShowConfiguration2(swConfig.Name)
    $ K5 y; B" |& j5 x& U6 k
23.   FileName = sPathName + "_" + swConfig.Name & ".dwg"
    
24.   Set swPart = Part
    * X7 N/ b0 f7 p2 k% P0 ?6 R* h: `
25.   swPart.ExportToDWG FileName, PartName, 3, False, dataAlignment, False, False, 0, dataViews
    % E2 z, _! O) f2 }& [. k+ p9 U
26. Next i
    / w% O& U% P! x" |
27. MsgBox "DONE！", 0 + 64
    
28. End Sub

复制代码

測試結果如下~
% F: Y7 F, j: E* f# k& o
$ m/ h8 ^5 }: C4 [: R

wfdm3

gt.adan 发表于 2017-6-30 11:26
+ {3 W, I+ y% \# m; n# o試試以下代碼

# O6 M: _. }3 N測試結果如下~

: t' V( T4 T4 j/ m  x$ ~非常感谢老大。
这是要建一个批处理吗？怎么用的？请赐教。谢谢。