SLDPRT档同时转存SAT,STEP,IGS,PDF档之巨集

outfire · 发表于 2013-10-13 10:07:11

' ******************************************************************************
'macro recorded on 2013/10/12 by scliang
'
'测试版本:2012 SP4
'先在SOLIDWORKS打开 .SLDPRT 文件
'
'功能: 把目前.SLDPRT的文件,依据该文件的路径名称存成 SAT,STEP,IGS,PDF文件
'
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long

Sub main()
  Set swApp = Application.SldWorks
  Set Part = swApp.ActiveDoc
  On Error Resume Next

  Dim Path_N As String
  Dim X_Path_Name As String

  Set swModel = swApp.GetFirstDocument
Path_Name = swModel.GetPathName '取出功能目前档案的路径及名称.SLPRT
Path_N = Left(Path_Name, Len(Path_Name) - 7)'取出目前档案的路径及名称(不含副档名)
  For i = 1 To 4

  Select Case i
  Case 1 'save "SAT" file
X_Path_Name = Path_N & ".SAT"

  Case 2 'save "STEP" file
X_Path_Name = Path_N & ".STEP"

  Case 3 'save "IGS" file
X_Path_Name = Path_N & ".IGS"

  Case 4 'save "PDF" file
X_Path_Name = Path_N & ".PDF"

  End Select
  longstatus = Part.SaveAs3(X_Path_Name, 0, 0) '储存SAT,STEP,IGS,PDF之文件

  Next
End Sub
批量SLPART转档.swp
给首次操作"巨集"的新手作参考

批量SLPART轉檔.swp (49.5 KB, 下载次数: 117)

lingvsco · 发表于 2013-10-21 21:05:31

谢谢梁兄的分享！梁兄不仅致力向学，也写像大佬一样写得一手好字呢！佩服~~

ronald163 · 发表于 2013-10-25 23:43:43

谢谢大佬参与了,
近期大佬似乎较忙吧!

sy20060623 · 发表于 2013-10-31 03:24:33

真是神奇～谢谢分享

2011 32位元用不成功

jjxyyq · 发表于 2013-11-1 03:16:52

经典案例图书

谢谢支持!
在2012 64位元 sp4 测试的!

joeychen · 发表于 2013-11-2 07:15:13

未下载大佬提供档案，是按照大佬提供资料自行制作

测试 OK！ (2010 x64 SP5.0)

谢谢大佬分享

kuaipaoa · 发表于 2013-11-5 13:05:38

经典案例图书

2013 64位元

失败

dragonlgq · 发表于 2013-11-10 09:00:44

谢谢支持,总算有人试成

要会活用,就可以另存其他的副档名.

jessie123123 · 发表于 2013-11-11 03:05:57

是否有先把sldprt档,先存成档案(这样才有原档的路径及档名)

平小闪星 · 发表于 2013-11-14 18:14:21

超感谢大佬!
为我的工作带来莫大的便利
感谢您的分享!!!
另请问楼主
如果要将目前的工程图切换成不同图纸格式
例如我是要从目前的A3范本转换成指定的A4范本

(目前我都是到特徵管理员在图页按右键, 再到属性去选择图页格式)

这样有办法写成巨集吗

感谢

lvjh1969 · 发表于 2013-11-17 20:07:31

谢谢大佬佬的测试!

baikaishui8 · 发表于 2013-11-18 12:44:52

2012 32位元，成功~~好方便的巨集^^ 感谢大佬!

e7e7e7 · 发表于 2013-11-23 07:25:16

2011 64位元失败~

fabryk · 发表于 2013-11-24 00:11:25

请问这样设定如何将转出来的 STEP档是 STEP AP 214 (转出来的零件档案有含外观颜色)

super8886 · 发表于 2013-11-25 13:45:20

加入QQ群
参与讨论和学习

或扫描二维码加入

2016 测试半成功~

小弟测试了 "零件9"和"Part 9"档名的SLDPRT档，分别得到了不同的结论，结果好像是中文档名会有乱码，

但英文档名却不会，请见附档，不知道是不是版本的问题。

chen1981 · 发表于 2013-11-30 17:17:22

经典案例图书

使用细部放大图在转档时需要在另外弹出的警告对话框上点确认才能继续
请问前辈是否能够能自动点选，这样才能批量换档又不必一个个点击
感谢

yujunxi0321 · 发表于 2013-12-5 08:57:38

加入QQ群
参与讨论和学习

或扫描二维码加入

测试版本:SW 2016 SP3
系统:WIN10

确定可用，并尝试简单修改成输出DWG格式也没问题。
感谢开版大提供程式使用!

zhusn2006 · 发表于 2013-12-21 06:23:59

经典案例图书

谢谢大佬教学

nicky_zhang · 发表于 2013-12-22 04:08:53

谢谢梁兄的分享！梁兄不仅致力向学，也写像大佬一样写得一手好字呢！佩服~~

amu77249 · 发表于 2013-12-24 00:53:23

谢谢大佬参与了,
近期大佬似乎较忙吧!

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