找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 3428|回复: 8

SW转格式求助

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

使用道具 举报

发表于 2018-6-3 20:50:17 | 显示全部楼层
本帖最后由 未来第一站 于 2018-6-3 22:23 编辑 ; {2 ?7 ^4 l' f2 r

1 _; {) W* j( t' \6 v期待高手出现。
发表于 2018-6-3 22:32:24 | 显示全部楼层
不是高手,但我以前做过。
! i; [4 v, N0 }/ a- ]4 w
% n8 i: \0 m9 G" w" q1、建一个装配体: y3 ~6 @5 ~( T* L$ x' a
2、阵列这个零件20件(或插入这个零件20个)
5 I7 k3 S7 x1 g4 l5 \- R3、把阵列解除,每个零件一个配置
( W! f; H3 R8 T2 s: e8 \$ P4、将这个装配体保存为中性格式
; I+ T! a$ }2 Z* K( U: p. a  e/ A  t) n% k

评分

参与人数 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
' U: Z% N( v5 P8 u可是 这样20个零件都转到一个零件图里面了呀   怎么样能分成20个独立的零件呢
( ?+ H: t% [' }; ?; ^' A4 |
它本身是装配体格式,你用别的软件打开,识别也应是装配体,保存一次,所有零件就都保存上了。
+ Q/ `& ?3 O" x1 Q' |" p# f8 o( R3 i2 j; c* J, |  s& v% w
至少SW是这样的。
- e8 K- t4 W6 {4 C4 h# I% z' z
发表于 2018-6-4 09:40:08 | 显示全部楼层
你们忽略了sw本身带的功能了

本帖子中包含更多资源

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

×
发表于 2018-6-4 09:57:24 | 显示全部楼层
本帖最后由 DaveChan 于 2018-6-4 10:01 编辑
& g! a- M6 x( c* V
* T% `1 ^5 f1 A5 c3 y0 w- E$ o一个简单的宏程序供参考:
  1. Option Explicit
    8 J  v: X7 V/ i  W* m& S! \
  2.     Dim swApp               As SldWorks.SldWorks
    $ c7 s. k5 s+ O( S/ m* E; M+ v' x$ K
  3.     Dim swModel             As SldWorks.ModelDoc2
      h/ J& Y5 K" O! O# a
  4.     Dim PartName            As String
    , T. Z) {6 W  B) _1 {
  5.     Dim ConfigNameArr       As Variant
    ! x) f! N% d$ `9 P- ]
  6.     Dim ConfigName          As Variant, l$ a$ H1 \+ w% z6 i
  7.     Dim AConfigName         As String- _. \# j6 }8 {" [/ x5 M- S  W8 U( \
  8.     Dim FilePathName        As String
    6 H; g2 x: o3 l( c" y& [
  9. / `: A! x% a5 Q
  10. Sub main()
    ) Q0 }" \4 h- U+ B6 v# w! z
  11.     Set swApp = Application.SldWorks4 N6 G+ L5 z6 N) K5 L5 o
  12.     Set swModel = swApp.ActiveDoc
    1 v; |0 v" Z5 _/ d: j
  13.     If swModel Is Nothing Then Exit Sub  k; v! ?3 D/ k, h! m- m0 T0 \
  14.     If swModel.GetType <> 1 Then Exit Sub
    ) d( |* _$ w- K; {& u
  15.     PartName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7)
    - ^: J7 b/ h) P# s7 z
  16.     ConfigNameArr = swModel.GetConfigurationNames
    1 a: v: O/ I- E% P$ X# _3 l5 y/ j
  17.     AConfigName = swModel.GetActiveConfiguration.Name' M6 m7 z! t( @2 V- U
  18.     For Each ConfigName In ConfigNameArr
      N, C/ t. ]& d* y# Y- ~
  19.         swModel.ShowConfiguration2 ConfigName  ?# S, `) W: G* n1 e: o
  20.         FilePathName = PartName & " " & ConfigName & ".X_T"
    / |$ j0 x) }* D( n
  21.         swModel.SaveAs2 FilePathName, 0, True, False
    * h5 `5 Q& d, u1 W9 E
  22.     Next
    " a5 I7 \# Y2 n+ W, O
  23.     swModel.ShowConfiguration2 AConfigName
    1 S" l6 d0 v/ t2 [2 P/ m
  24. End Sub
    " ^4 Q+ p. b8 U2 f0 t8 Y
复制代码
0 ?4 N& Q# A  }* I9 c1 n5 V5 T
发表于 2018-6-4 10:57:51 | 显示全部楼层
1.SW自带的计划任务
+ ^2 e7 D/ ~/ Q8 K# T2.宏
  A1 H# o* \) ], F+ F/ _, N- i3.第三方. |& S& ?7 B9 o9 r* I
9 J% x! Z6 T7 s* K- }5 b# y! Z

本帖子中包含更多资源

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

×
发表于 2018-6-4 11:14:48 | 显示全部楼层
魍者归来 发表于 2018-6-4 10:57
1 w' U! V# w% X4 w' c0 b- L5 ~, F1.SW自带的计划任务! f+ \. K3 a$ |  b, S  d
2.宏% j2 }5 n" P1 g
3.第三方

6 b3 r" n7 ~$ o2 b1(Task Scheduler)和3(凯元工具),应该都不能将多配置零件的各个配置存成中间格式.
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-6-23 16:43 , Processed in 0.065625 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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