找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 17723|回复: 2
打印 上一主题 下一主题

[求助solidworks二次开发]关于InsertMoveCopyBody2

[复制链接]
跳转到指定楼层
1
发表于 2006-3-21 16:30:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
我用sldworks宏录制了一段macro,大致操作是插入一个零件,然后零件沿y轴移动一定距离,录完宏然后执行,发现可以插入零件,但却没有移动到指定位置,也就是说InsertMoveCopyBody2所在的一行代码未执行,请那位大侠指点一下该怎么解决?

非常感谢~

附:

代码
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim Feature As Object

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set Feature = Part.InsertPart("F:\my documents\冲头一.SLDPRT", False, False, False)

Part.FeatureManager.InsertMoveCopyBody20 , 0.01, 0, 0, 0, 0, 0, 0, 0, 0, False, 1


End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2006-3-30 21:27:09 | 只看该作者
改成下面的试试,主要是运行InsertMoveCopyBody2前要有个选择语句,这样InsertMoveCopyBody2方法才知道要移动那一个对象。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim Feature As Object

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set Feature = Part.InsertPart("F:\my documents\冲头一.SLDPRT", False, False, True)
boolstatus = Part.Extension.SelectByID("<冲头一>-<拉伸1>", "SOLIDBODY", 0, 0, 0, True, 1, Nothing)

Part.FeatureManager.InsertMoveCopyBody20 , 0.01, 0, 0, 0, 0, 0, 0, 0, 0, False, 0


End Sub
3
发表于 2006-4-7 10:04:47 | 只看该作者
问题解决啦,谢谢~
确实是因为没选中实体,应该在插入零件以后,选择“移动/复制实体”,而不是修改插入实体的特征(这个在手工操作的时候是可以实现移动和复制的,但是录制宏来运行是不可以的)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-12-20 00:38 , Processed in 0.028749 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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