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

wfdm3 · 发表于 2017-6-28 11:43:46

您需要登录才可以下载或查看，没有帐号？注册

x

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

解释下为什么要批量寸，是因为要把图形dwg文件输出到激光切割机上面。
参数化的好处就是建立图形快。

jdwkl · 发表于 2017-6-28 15:04:45

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

gt.adan · 发表于 2017-6-29 09:32:31

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

wfdm3 · 发表于 2017-6-29 15:37:14

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

gt.adan · 发表于 2017-6-30 11:26:27

本帖最后由 gt.adan 于 2017-7-3 01:30 编辑

試試以下代碼

'將各配置獨立輸出DWG，檔名後綴為配置名稱% J: L2 ]4 x! z/ h3 R' G
Dim swApp As Object
. s! @& R6 U3 u/ R! e% h
Dim Part As SldWorks.ModelDoc26 g* s3 f1 B3 d4 S0 F. h* I' k
Dim swPart As SldWorks.PartDoc9 f t4 k- M% }7 L
Dim feat As SldWorks.Feature) k2 ~5 a$ m o E/ a" m/ |8 J
Dim boolstatus As Boolean0 t# \: h/ A `& N4 |
Dim longstatus As Long, longwarnings As Long6 M$ j) T; K7 e* l9 q
Dim dataAlignment(11) As Double! W0 U. N) e5 o3 Y
Dim dataViews(1) As String- ?* i! K1 r2 h2 e; Q) p+ m' ~
- V0 T1 ^6 E! w& M" s
Sub main()# v0 h$ L5 S+ r; E0 o
$ }+ a" u6 s8 u6 f+ k0 A
Set swApp = Application.SldWorks1 j3 Z3 x' \. r2 E# W6 G' z ]
Set Part = swApp.ActiveDoc3 }# X+ o) y+ J' }
PartName = Part.GetPathName0 @" r- z) u# r
sPathName = Part.GetPathName
5 q0 |* \$ G5 |# N' w( x
sPathName = Left(sPathName, Len(sPathName) - 7)2 Z0 g* ?( X6 r
vConfigName = Part.GetConfigurationNames- n9 k* \; e* g" @$ p2 N
For i = 0 To UBound(vConfigName)
: e* U# A5 l$ C4 s
sConfigName = vConfigName(i)
3 G: k1 s' T" h! `" x
Set swConfig = Part.GetConfigurationByName(sConfigName). X. z5 g- [, y; d- f* r
boolstatus = Part.ShowConfiguration2(swConfig.Name)
( W$ y- B1 d6 @; S
FileName = sPathName + "_" + swConfig.Name & ".dwg"
9 u% i4 N+ J* m. V- @1 u
Set swPart = Part6 z! i9 F8 f, {$ X( C4 Y
swPart.ExportToDWG FileName, PartName, 3, False, dataAlignment, False, False, 0, dataViews
' U' G# n6 p k$ C
Next i T# H( y. f5 J
MsgBox "DONE！", 0 + 64# r7 O2 F& o) q! E1 f9 m' P
End Sub

复制代码

測試結果如下~

wfdm3 · 发表于 2017-9-4 11:50:24

gt.adan 发表于 2017-6-30 11:26
$ p/ ^/ h' A* U& s' M9 S6 K試試以下代碼/ V/ a) V+ g9 a/ i

4 b: P) S; f% L* A6 t0 c測試結果如下~

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

		自动登录	找回密码
密码			注册

通知