iCAx开思网

标题: 如何快速地将每个body都生成一个part [打印本页]

作者: lizhliang 时间: 2010-9-11 18:58
标题: 如何快速地将每个body都生成一个part
如下图有一个part，里面有n个body，就当n是无限多个，如何快速地将每个body都存为一个新的part，这样就可以用装配的方式形成一个新的product来代替原来的part了。[attach]1033407[/attach]

作者: ch_j1985 时间: 2010-9-12 09:36
或许有此功能，但是自己没听说过

作者: biiby 时间: 2010-9-12 14:57

没有这样的功能，很多年前，我看过这样的宏

作者: cim888 时间: 2010-9-15 13:22
我以前下載過一個宏程序
看看還在不在
哦,還在

注意:本體名不能是中文

作者: 405343170 时间: 2010-9-15 14:54
4# cim888
热心人，感谢！

作者: edward_mi 时间: 2010-9-15 18:52
收藏了，感谢大家分享

作者: caozhixiang 时间: 2010-9-16 19:52
多谢多谢多谢

作者: chaiyue19830120 时间: 2010-9-17 08:23
谢谢！下载下来学习学习

作者: yujian406 时间: 2010-9-23 15:09
这个命令确实不知道

作者: tao5542 时间: 2010-9-23 18:06
我一般都复制,粘贴.有宏啊,下下来学习学习啊

作者: 晓了糊涂 时间: 2010-9-23 18:52
学习了谢谢

作者: cliu19 时间: 2010-9-24 15:11
直接采用在装配模块下的新建零件就ok了

作者: lizhliang 时间: 2010-10-13 00:19
谢谢啊，请教一下宏是如何使用的呢？

作者: tkgg8857 时间: 2010-10-13 10:41
真的很不错啊

作者: g466312005 时间: 2011-7-17 17:44
高手太多了学习了

作者: LIUKEJIANLOVE 时间: 2011-9-5 11:53
ffffffffffffffffffffffffff

作者: 潇湘之子 时间: 2011-10-3 16:20
的确比较难的

作者: tensini 时间: 2014-10-7 09:25
终于找到了

作者: psy668 时间: 2014-10-7 12:58
非常实用，感谢cim888 ，

作者: zha 时间: 2015-5-31 17:48
也需要呢，看看

作者: 松风木香 时间: 2015-6-24 15:48
也需要呢，看看

作者: dayibalang01 时间: 2015-6-26 13:53
新人，贡献一个自己写的宏，附上部分代码。宏文件已作为附件上传。
Function CutName(Tobecut)
Dim Mlength, LableIndex
Mlength = Len(Tobecut)
If Right(Tobecut, 8) = "PartBody" Then 'Body名以PartBody结尾，说明生成它allpart文件时，它在原Part中时PartBody
LableIndex = InStrRev(Tobecut, "\", Mlength - 9) '此时，找出倒是第二个\的位置
If LableIndex = 0 Then
CutName = Left(Tobecut, Mlength - 9) '如果没有倒数第二个\，第一个\以前都作为文件名
Else
CutName = Mid(Tobecut, LableIndex + 1, Mlength - 9 - LableIndex) '用第一个\和第二个\中间的部分作为文件名
End If
Else
LableIndex = InStrRev(Tobecut, "\", -1)
If LableIndex = 0 Then
CutName = Tobecut
Else
CutName = Right(Tobecut, Mlength - LableIndex)
End If
End If

End Function

作者: 17zx8 时间: 2015-7-4 13:12

收藏了，感谢大家分享

作者: smoon82 时间: 2015-8-21 22:16
这个是真的好东西呀

作者: suijinshi 时间: 2015-9-14 15:35
还能用宏啊，看来自己还是太小白了，继续学习吧！

作者: wff2592 时间: 2015-10-15 11:51
感谢分享，好人一生平安！

作者: du_xy2008 时间: 2015-10-17 16:29
谢谢分享，下载下来怎么用不了呢

作者: du_xy2008 时间: 2015-10-17 16:35
会用了，不好意思，才疏学浅

作者: chqsll 时间: 2015-10-19 16:08
这个东西不错，正需要

作者: catia_007 时间: 2015-10-23 10:19

这个命令确实不知道

作者: 龙兮归来 时间: 2017-6-1 15:51
啊啊啊的

作者: 龙兮归来 时间: 2017-6-1 15:51
ok 谢谢

作者: ljlh220 时间: 2017-6-10 23:23
收藏了，感谢大家分享

作者: 水云痕 时间: 2017-6-17 06:02
踩个点，感觉以后用的到

作者: 守仁格竹GM 时间: 2017-6-22 13:18
谢谢热心人

欢迎光临 iCAx开思网 (https://www.icax.org/)