QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 5339|回复: 16
收起左侧

[求助] solidworksl批量转x-t的宏

[复制链接]
发表于 2012-7-26 07:53:01 | 显示全部楼层 |阅读模式 来自: 中国广东深圳

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
哪位大师
8 c+ k( O9 z% O帮忙录制一个solidworksl批量转x-t的宏  U1 [% }. L: L' K! L5 Y+ W0 y
感激不尽
 楼主| 发表于 2012-7-29 22:14:39 | 显示全部楼层 来自: 中国广东深圳
来逛的人也不少,都没有人顶一个,是不是没人需要这个呀?知道希望很缈茫,所以自己制作了一个,胡乱调试了几天,终于也能做出来了!
SWtoX_T.jpg
发表于 2012-7-30 10:56:45 | 显示全部楼层 来自: 中国广东深圳
是用数控加工的么,可以直接转STEP格式!用solidworks task scheduler
 楼主| 发表于 2012-7-30 12:12:13 | 显示全部楼层 来自: 中国广东深圳
solidworks task scheduler 是没有X_T这一项,再说了solidworks task scheduler 不管转什么,太慢了,还有待改善
发表于 2012-7-30 21:27:49 | 显示全部楼层 来自: 中国辽宁沈阳
STEP有时破面,XT优势
发表于 2013-6-16 10:14:12 | 显示全部楼层 来自: 中国湖北鄂州
PEIENLU 发表于 2012-7-29 22:14 static/image/common/back.gif* K+ c+ V" }( r5 J: w
来逛的人也不少,都没有人顶一个,是不是没人需要这个呀?知道希望很缈茫,所以自己制作了一个,胡乱调试了 ...
2 p1 W8 n1 x( ~0 l  o) R& V
帮我做个转CAD 的宏啊。谢谢啊,一张一张转实在太慢了。
发表于 2013-7-3 14:18:22 | 显示全部楼层 来自: 中国上海
有转换CAD的宏吗?
发表于 2013-7-4 00:47:43 | 显示全部楼层 来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2013-7-4 00:52 编辑
! [) \: i7 F4 D' C2 T5 s( W4 m  T6 i
2012 SP4版測試
. N# z1 \1 F2 z$ J7 N) n' ******************************************************************************
4 I' a2 u8 T$ y9 Z* P9 ?'  macro recorded on 07/03/13 by scliang
* x5 {0 r9 l6 ], L9 S+ K'. H+ O/ I9 y5 `
'  測試版本:2012 SP4
. D- D* C6 o- k'  批量把 .SLDPRT 文件轉為 .X_T 文件
- ]8 i& \! T5 D8 L! i'  設 文件路徑名稱為   C:\XT\101.SLDPRT~150.SLDPRT, I6 [+ R1 x4 I2 }1 A) Z0 x/ p
'
4 h# Q: u6 t& e4 X! W: z" I" {' ******************************************************************************6 i/ s+ f! r' X4 ?: ^2 t
Dim swApp As Object3 K2 R# u$ e  u8 |! s
Dim Part As Object
3 \- B, H8 b$ Q" @& S" fDim longstatus As Long, longwarnings As Long
" K) ]* r; h/ L- g
, q/ _- U( v% d7 G% j4 JSub main()
* P; y7 s/ @: w; \
2 S4 N- B3 w. LSet swApp = Application.SldWorks
+ j7 {% c! S- r% c( h- }8 a0 lSet Part = swApp.ActiveDoc
, Y/ ]1 Z2 C6 d& N5 Y  z$ bDim path_ As String0 e& L' ]8 U& [! }1 z, @
path_ = "C:\XT\"* v& q4 u, d3 w6 m% ?
For FileName = 101 To 150 '依實際名稱代碼修改
$ U* ~9 G+ O5 _. {; pSet Part = swApp.OpenDoc6(path_ & FileName & ".SLDPRT", 1, 0, "", longstatus, longwarnings)
+ P9 `, N1 p, T/ M8 u- `- slongstatus = Part.SaveAs3(path_ & FileName & ".X_T", 0, 0)
, O4 p" ]; R" l% b8 }& h9 U, u4 C9 QswApp.CloseDoc path_ & FileName & ".SLDPRT"
( @# X2 _( Y, [( n" c7 d9 SNext
3 \6 _3 b% W; V0 I% lEnd Sub" m7 f1 U4 E& [" T$ a
Macro_xt.rar (6.77 KB, 下载次数: 67)

评分

参与人数 1三维币 +5 收起 理由
阿帕奇 + 5 奖!

查看全部评分

发表于 2013-7-4 10:26:39 | 显示全部楼层 来自: 中国陕西西安
SW转CAD宏,不知道可以否?

SW转dwg宏软件.rar

13.08 KB, 下载次数: 74

评分

参与人数 1三维币 +5 收起 理由
阿帕奇 + 5

查看全部评分

发表于 2013-8-26 17:20:25 | 显示全部楼层 来自: 中国广东东莞
好东西啊,正在找
发表于 2013-8-28 13:59:15 | 显示全部楼层 来自: 中国安徽宣城
PEIENLU 发表于 2012-7-29 22:14 static/image/common/back.gif* [) {) y/ E# Y9 @" m' X
来逛的人也不少,都没有人顶一个,是不是没人需要这个呀?知道希望很缈茫,所以自己制作了一个,胡乱调试了 ...
% k  h+ w& z- \5 [
楼主把你的宏程序上传下,我也试试,每次都是打开一个转一个的。
发表于 2013-9-4 08:38:49 | 显示全部楼层 来自: 中国江苏无锡
其实就是属性名换一下,solidworks内部都是自动转的...比如你要PDF,就在程序里面打PDF,要DWG,名称后面就属性名就换成DWG.
发表于 2013-9-5 11:39:43 | 显示全部楼层 来自: 中国广东深圳
ryouss 发表于 2013-7-4 00:47 static/image/common/back.gif8 V* D2 I% V( J4 \
2012 SP4版測試
( P! r0 e$ m% R- C# s5 \' ******************************************************************************( @9 Z  E  c! Y1 Z' U" i
'  ...
4 X. m: j' J- C3 l/ ]+ K' Q2 W
sw2013 sp4 用不了
发表于 2013-9-5 14:00:26 | 显示全部楼层 来自: 中国广西桂林
太好了,我一直都是一个一个的转X_T,然后外加工的,原来也能这么简单!
发表于 2015-10-27 09:50:24 | 显示全部楼层 来自: 中国四川成都
ryouss 发表于 2013-7-4 00:47* G3 O: U# P! e/ [) A6 T8 f- G3 M
2012 SP4版測試( f6 S$ H+ a9 B6 _! Z+ j" I
' ******************************************************************************
  {9 I# ~! [- P7 z6 B: G# n'  ...
! D' ]5 _5 k) n; d  l- v# Q+ U
正在找这类工具,非常感谢。
发表于 2015-11-8 15:18:02 | 显示全部楼层 来自: 中国天津
谢谢正需要这些
发表于 2016-11-22 10:27:24 | 显示全部楼层 来自: 中国广东佛山
支持一下,不过还是觉得SW自带的好
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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