紧急求助：SOLIDWORKS宏

lkpphkxbcm · 发表于 2013-2-2 08:46:00

我利用solidworks的录制宏功能，在装配体中替换零部件。在装配体文件下用solidworks菜单命令零部件替换是成功的，同时录制宏，但在运行宏时出现报警，不成功，求教专家。详细见附件（就是在装配体中把Hand换成Hand.1）

3 分钟前上传
下载附件 (10.23 KB)

2 分钟前上传
下载附件 (73.53 KB)

man_sw.rar (1.87 MB, 下载次数: 110)

sdzx · 发表于 2013-2-2 08:55:27

我是新手，也期待答案

delna · 发表于 2013-2-2 08:55:28

Option Explicit
Sub main()
Dim swApp                As SldWorks.SldWorks
Dim swModel                As SldWorks.ModelDoc2
Dim swAssy                As SldWorks.AssemblyDoc
Dim swSelMgr             As SldWorks.SelectionMgr
Dim swSelComp             As SldWorks.Component2
Dim swSelModel             As SldWorks.ModelDoc2
Dim boolstatus             As Boolean
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swAssy = swModel
Set swSelMgr = swModel.SelectionManager
boolstatus = swModel.Extension.SelectByID2("Hand-1@Dude-2", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Set swSelComp = swSelMgr.GetSelectedObjectsComponent(1)
boolstatus = swAssy.ReplaceComponents("d:usersadministrarorsman_swHand.1.SLDPRT", "", True, True)
End Sub

zy19860723 · 发表于 2013-2-2 08:56:30

谢谢你，高手

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

紧急求助：SOLIDWORKS宏

相关帖子