找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 3799|回复: 8

SW转格式求助

[复制链接]
发表于 2018-6-3 19:16:25 | 显示全部楼层 |阅读模式
请教各位高手,solidworks零件做了20个配置,怎么样一次性把这20个配置的零件全部转为stp或者xt等中间格式。避免一个一个去另存为!!恳请高手们指导
& d1 _, K! Q+ ?0 o$ [$ o0 V# A
回复

使用道具 举报

发表于 2018-6-3 20:50:17 | 显示全部楼层
本帖最后由 未来第一站 于 2018-6-3 22:23 编辑
' V4 G0 h% P) q* q: v) T: }1 z1 x$ ^
期待高手出现。
发表于 2018-6-3 22:32:24 | 显示全部楼层
不是高手,但我以前做过。
5 A; n# K; ?5 D  ~. L# p3 u& `5 N8 t# s8 S
1、建一个装配体
- j" u. L6 k, b' u2、阵列这个零件20件(或插入这个零件20个)
& ]# Q8 E* g- Z$ S$ C2 _3、把阵列解除,每个零件一个配置
, S( [* y" h" \. W2 Z8 Y) Q5 \4、将这个装配体保存为中性格式1 p# t6 @4 ?) f) q8 Y4 H3 Z

# Y$ d+ f0 b# ?( w

评分

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

查看全部评分

 楼主| 发表于 2018-6-4 08:08:50 | 显示全部楼层
可是 这样20个零件都转到一个零件图里面了呀   怎么样能分成20个独立的零件呢
发表于 2018-6-4 08:40:09 | 显示全部楼层
风客008 发表于 2018-6-4 08:08* B9 J2 w/ k# t# M3 H8 C" g
可是 这样20个零件都转到一个零件图里面了呀   怎么样能分成20个独立的零件呢

/ r( s$ \9 Y( Y, h) K$ m它本身是装配体格式,你用别的软件打开,识别也应是装配体,保存一次,所有零件就都保存上了。
8 ^# R' o  T+ f, `; q
4 p3 v# k. x. j% `至少SW是这样的。/ H5 x! [% k' {1 y4 e0 H/ a5 p& e
发表于 2018-6-4 09:40:08 | 显示全部楼层
你们忽略了sw本身带的功能了

本帖子中包含更多资源

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

×
发表于 2018-6-4 09:57:24 | 显示全部楼层
本帖最后由 DaveChan 于 2018-6-4 10:01 编辑
! K9 S* Q! |1 y6 X' N1 ?# l* D* l
0 b: H- t+ ]  c" R, E1 i一个简单的宏程序供参考:
  1. Option Explicit5 p( `4 V' Q0 F" U" ]5 V% X+ v
  2.     Dim swApp               As SldWorks.SldWorks! j4 M; C% v" U; k2 Z
  3.     Dim swModel             As SldWorks.ModelDoc2) Z0 r- E  q6 F; K1 X& f  v$ r
  4.     Dim PartName            As String* J  N5 V9 I1 g3 F) P
  5.     Dim ConfigNameArr       As Variant" l9 {0 O% N, G( I. y
  6.     Dim ConfigName          As Variant
    & d# H4 q4 L* }8 N8 n( c0 H( O
  7.     Dim AConfigName         As String0 e$ m2 x' k+ l# H+ h
  8.     Dim FilePathName        As String/ H0 `2 Q; R- R% r  ?" j0 R
  9. 7 l1 S: _5 y7 T
  10. Sub main()
    ; b& I. ?( \+ P
  11.     Set swApp = Application.SldWorks
    1 C3 z! P. \6 M0 V" b
  12.     Set swModel = swApp.ActiveDoc
    9 l* R" v9 v3 [8 ?+ u2 }) y* ~' r; \
  13.     If swModel Is Nothing Then Exit Sub
    ) C) I. o5 r4 d6 c+ ?; x/ _4 m
  14.     If swModel.GetType <> 1 Then Exit Sub! C  t. i8 {  _/ K, o2 z$ _+ V3 g
  15.     PartName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7)
    3 _: t, J5 m2 y0 |* t
  16.     ConfigNameArr = swModel.GetConfigurationNames
    # j% J- M% J7 l
  17.     AConfigName = swModel.GetActiveConfiguration.Name, r' V9 ~. A& I  w: K
  18.     For Each ConfigName In ConfigNameArr5 r3 [6 n9 x3 K1 C/ x
  19.         swModel.ShowConfiguration2 ConfigName( E. V- V/ x; A
  20.         FilePathName = PartName & " " & ConfigName & ".X_T"
    4 |7 s% g* N0 P# w
  21.         swModel.SaveAs2 FilePathName, 0, True, False
    $ @7 K+ W1 ]/ W
  22.     Next  x0 m/ I5 R! L! [# u+ a
  23.     swModel.ShowConfiguration2 AConfigName9 h+ g! N: I' i3 C/ V+ ^" F7 B( Q
  24. End Sub0 @4 j6 O+ v* ]) |6 Q
复制代码
# ?7 P8 U- w# o8 t1 b, R% P( `0 j
发表于 2018-6-4 10:57:51 | 显示全部楼层
1.SW自带的计划任务
, b2 a: H. f5 h6 s2.宏
2 M# [" U  k6 Q5 [% W3.第三方# P0 X/ `  P" B; Z! q, [! w

6 |/ i0 u- }9 t' {& j3 r2 G, n8 G

本帖子中包含更多资源

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

×
发表于 2018-6-4 11:14:48 | 显示全部楼层
魍者归来 发表于 2018-6-4 10:570 `/ T6 d: l1 p$ B1 }, E; _: |# F
1.SW自带的计划任务* |. w" K& ?4 |& C& A
2.宏  G; h" H( C0 K% X
3.第三方
6 m; [2 O9 i" z$ X' R- V/ _, b5 P
1(Task Scheduler)和3(凯元工具),应该都不能将多配置零件的各个配置存成中间格式.
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-10-23 12:54 , Processed in 0.084131 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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