机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 2629|回复: 8

SW转格式求助

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

使用道具 举报

发表于 2018-6-3 20:50:17 | 显示全部楼层
本帖最后由 未来第一站 于 2018-6-3 22:23 编辑 1 N7 o" ^" g6 B
/ V; O3 @6 u) n; u
期待高手出现。
回复 支持 反对

使用道具 举报

发表于 2018-6-3 22:32:24 | 显示全部楼层
不是高手,但我以前做过。
5 c4 N# s4 e. s  t& d- V* k
- V. x: L2 `3 a! E1、建一个装配体
. |( k- h; q/ h4 ?+ N2、阵列这个零件20件(或插入这个零件20个)
1 u$ p$ G  O1 O% Y3、把阵列解除,每个零件一个配置
- Z: O6 w2 I' b) }$ K9 |/ E. w4、将这个装配体保存为中性格式
& S! }$ D9 r! ?6 o! x, V6 t7 j1 x; W* _0 a& j& p  J

评分

参与人数 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
$ R! {9 r; O# q( h* q/ ~! m% `可是 这样20个零件都转到一个零件图里面了呀   怎么样能分成20个独立的零件呢
5 v; j) ^1 E7 U0 Q4 P, S
它本身是装配体格式,你用别的软件打开,识别也应是装配体,保存一次,所有零件就都保存上了。; }! T1 b) l$ L* u; a
0 Y$ E( d! \/ J: w6 F9 B$ i
至少SW是这样的。
" i3 @. F- N) U2 C1 W; G' n2 ^
回复 支持 反对

使用道具 举报

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

本帖子中包含更多资源

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

x
回复 支持 0 反对 1

使用道具 举报

发表于 2018-6-4 09:57:24 | 显示全部楼层
本帖最后由 DaveChan 于 2018-6-4 10:01 编辑 # }' o; }3 I& B1 V' _
3 X( t1 d, P, I! I2 V" n/ s2 H
一个简单的宏程序供参考:
  1. Option Explicit
    9 ?+ g2 {  V2 T; n2 n8 C( i8 v
  2.     Dim swApp               As SldWorks.SldWorks6 S  M+ }6 V# b& _
  3.     Dim swModel             As SldWorks.ModelDoc25 T& E7 I7 q. Y8 q: a6 G( G; |
  4.     Dim PartName            As String+ z6 @( i9 S+ i% u6 s8 q- y
  5.     Dim ConfigNameArr       As Variant
    : A8 C0 B1 Y- c- N  B0 k
  6.     Dim ConfigName          As Variant" ?* z/ f9 ~& b, V1 p
  7.     Dim AConfigName         As String5 t7 [! A- X% m7 B
  8.     Dim FilePathName        As String9 T& _; c; f4 n4 D0 @
  9. ! J+ H5 |, ]+ Y7 z& B
  10. Sub main()
    9 C: {% E. ~% H& F) A
  11.     Set swApp = Application.SldWorks
    4 U. w( {8 {1 e. P: ~$ g
  12.     Set swModel = swApp.ActiveDoc
    ! C! A& v2 h# M( b! s8 Z
  13.     If swModel Is Nothing Then Exit Sub8 Z# g0 p6 r4 }* i& b: I7 a
  14.     If swModel.GetType <> 1 Then Exit Sub: A+ H5 ~/ U( S8 e% {
  15.     PartName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7)
    7 P3 l1 z- L) z- o7 K. c# H: D
  16.     ConfigNameArr = swModel.GetConfigurationNames  u% i  w9 _5 O+ h# {% ?
  17.     AConfigName = swModel.GetActiveConfiguration.Name
    ! T6 S6 @# P7 E1 n
  18.     For Each ConfigName In ConfigNameArr
    4 e& }; |: r+ t% s
  19.         swModel.ShowConfiguration2 ConfigName( \6 q( b; h% O4 ~( {- v
  20.         FilePathName = PartName & " " & ConfigName & ".X_T"
    , s+ s" B0 q4 I% Z+ p0 _9 h
  21.         swModel.SaveAs2 FilePathName, 0, True, False2 S* @8 g9 G: d( E
  22.     Next
    4 [+ e# E. ~& c
  23.     swModel.ShowConfiguration2 AConfigName' w7 s! u6 r5 \0 I! Z4 m8 d6 C
  24. End Sub; q6 g- H# a! x( @
复制代码

# t0 ?& o) d* U+ P5 d
回复 支持 反对

使用道具 举报

发表于 2018-6-4 10:57:51 | 显示全部楼层
1.SW自带的计划任务% }9 [/ r8 {: d+ x
2.宏* X% D) \. h+ q9 D6 Z
3.第三方
/ A, A4 r, a, P( h6 a+ ~  K( r; k! m2 ], m

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

发表于 2018-6-4 11:14:48 | 显示全部楼层
魍者归来 发表于 2018-6-4 10:57
( Q- O; O* I3 [4 V8 d1.SW自带的计划任务
& {# T8 ?  w' E0 i/ l2.宏9 S( R: T. B: F6 Z- j$ w3 t( X& d& X6 g. o
3.第三方
5 I0 T9 r6 D) M
1(Task Scheduler)和3(凯元工具),应该都不能将多配置零件的各个配置存成中间格式.
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-26 08:56 , Processed in 0.055804 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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