机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 2628|回复: 8

SW转格式求助

[复制链接]
发表于 2018-6-3 19:16:25 | 显示全部楼层 |阅读模式
请教各位高手,solidworks零件做了20个配置,怎么样一次性把这20个配置的零件全部转为stp或者xt等中间格式。避免一个一个去另存为!!恳请高手们指导7 B( ?$ L7 M/ U, q# q, S$ [
回复

使用道具 举报

发表于 2018-6-3 20:50:17 | 显示全部楼层
本帖最后由 未来第一站 于 2018-6-3 22:23 编辑
8 x+ k8 V" R. |, w, u
8 ^2 `& ?2 A& R9 S/ T- `期待高手出现。
回复 支持 反对

使用道具 举报

发表于 2018-6-3 22:32:24 | 显示全部楼层
不是高手,但我以前做过。
: b3 G5 p. ?/ h7 V7 R) z
2 O0 F3 B2 p* `1、建一个装配体9 P5 Z! p3 y, f- L5 x+ o
2、阵列这个零件20件(或插入这个零件20个)
$ J$ T2 W1 t3 y) z. F1 o3、把阵列解除,每个零件一个配置* s0 y6 P. g+ I" }% C9 i+ k; w
4、将这个装配体保存为中性格式6 x6 b/ d7 ]; o1 C

2 S& e. L( n1 a! s1 p1 b

评分

参与人数 2威望 +2 收起 理由
魍者归来 + 1 剑走偏锋,666
未来第一站 + 1 热心助人,专业精湛!

查看全部评分

回复 支持 2 反对 0

使用道具 举报

 楼主| 发表于 2018-6-4 08:08:50 | 显示全部楼层
可是 这样20个零件都转到一个零件图里面了呀   怎么样能分成20个独立的零件呢
回复 支持 反对

使用道具 举报

发表于 2018-6-4 08:40:09 | 显示全部楼层
风客008 发表于 2018-6-4 08:08' l2 N" ^1 k8 g6 n4 @# w- Q
可是 这样20个零件都转到一个零件图里面了呀   怎么样能分成20个独立的零件呢

& ?; \1 i9 Z' g3 T) W  U$ Y7 K; ?它本身是装配体格式,你用别的软件打开,识别也应是装配体,保存一次,所有零件就都保存上了。' D5 Q" A. F; t
3 o1 `6 d8 B0 A
至少SW是这样的。0 ]5 ^7 z: A2 A
回复 支持 反对

使用道具 举报

发表于 2018-6-4 09:40:08 | 显示全部楼层
你们忽略了sw本身带的功能了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
回复 支持 0 反对 1

使用道具 举报

发表于 2018-6-4 09:57:24 | 显示全部楼层
本帖最后由 DaveChan 于 2018-6-4 10:01 编辑   ~8 j$ I! j0 `6 `  T
" a+ ?9 m" i9 W4 E3 r4 Y" @
一个简单的宏程序供参考:
  1. Option Explicit
    : D, Z% M/ s/ |( K5 b2 \2 r! t
  2.     Dim swApp               As SldWorks.SldWorks
    - ^; T$ Y6 v+ i; W! f; E
  3.     Dim swModel             As SldWorks.ModelDoc2
    / ?( u  P: l7 I5 D
  4.     Dim PartName            As String' I  P9 m, c, y1 H- O) `+ m3 z4 a1 b8 C2 F
  5.     Dim ConfigNameArr       As Variant" V  Z8 s: g4 R  O5 t
  6.     Dim ConfigName          As Variant; e9 h; b$ F. l$ Y3 ], F: ]
  7.     Dim AConfigName         As String7 S. {. ?, i2 t. i9 y- L% g
  8.     Dim FilePathName        As String2 \4 m3 b. E9 m& q' ^
  9. 8 H2 l, @' R  ]  z- g# c0 s
  10. Sub main()7 `& E& a3 k# V$ @: E! I1 f5 |
  11.     Set swApp = Application.SldWorks6 U2 J4 [2 \0 `, m7 Y$ z, M% R" f
  12.     Set swModel = swApp.ActiveDoc
    , `" `0 y1 j* \/ _, J: x6 S
  13.     If swModel Is Nothing Then Exit Sub6 @, r3 e+ L8 o1 J( h! l7 P
  14.     If swModel.GetType <> 1 Then Exit Sub& R3 L; R- W. K8 T/ b
  15.     PartName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7)
    7 y- O: n+ |- [3 |% B4 c3 q
  16.     ConfigNameArr = swModel.GetConfigurationNames
    8 f9 }3 B2 q- J1 H$ S. m- G( B
  17.     AConfigName = swModel.GetActiveConfiguration.Name
    - a! J0 h  l! a- J8 O7 }
  18.     For Each ConfigName In ConfigNameArr
    + u* }: E4 L9 v9 u
  19.         swModel.ShowConfiguration2 ConfigName
    ! j* i! s: D, {2 v  d) F# t$ U
  20.         FilePathName = PartName & " " & ConfigName & ".X_T"
    $ o1 ]5 {" q: ~5 ]
  21.         swModel.SaveAs2 FilePathName, 0, True, False
    $ ^" i% F4 r* K) N# Y, L
  22.     Next
    ; l- {7 ]$ G0 [! l5 R: E% a
  23.     swModel.ShowConfiguration2 AConfigName
    + J! K5 y& A+ W1 h, D
  24. End Sub
    . ]3 i1 q0 L" R8 o
复制代码

1 H& F5 A6 S! @0 @: @
回复 支持 反对

使用道具 举报

发表于 2018-6-4 10:57:51 | 显示全部楼层
1.SW自带的计划任务
/ ]2 a5 \0 Q; J# i8 H2.宏
1 F1 z) K7 R& \$ b! v" O3.第三方
, ^4 B% m; v0 a' Y! G( M) h0 C. t: g

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
回复 支持 反对

使用道具 举报

发表于 2018-6-4 11:14:48 | 显示全部楼层
魍者归来 发表于 2018-6-4 10:57/ z' |. P% g2 X. h: `
1.SW自带的计划任务
8 N/ D& I0 K- w9 F. K2.宏1 V3 I- D! x/ V& _# u1 }6 T7 V  i
3.第三方
  {; e% l6 x8 o7 p
1(Task Scheduler)和3(凯元工具),应该都不能将多配置零件的各个配置存成中间格式.
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2024-11-26 08:40 , Processed in 0.060612 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表