紧急求助：SOLIDWORKS宏

gml007 · 发表于 2013-2-2 08:46:04

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

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

x

我利用solidworks的录制宏功能，在装配体中替换零部件。在装配体文件下用solidworks菜单命令零部件替换是成功的，同时录制宏，但在运行宏时出现报警，不成功，求教专家。详细见附件（就是在装配体中把Hand换成Hand.1）
http://bbs.cmiw.cn/data/attachment/forum/201302/02/083729rqpn20c9ltp0cccr.jpg3 分钟前上传
下载附件 (10.23 KB)

http://bbs.cmiw.cn/data/attachment/forum/201302/02/083808dh5q40dhnddxbdag.jpg2 分钟前上传
下载附件 (73.53 KB)

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

chugang123 · 发表于 2013-5-25 09:21:21

我是新手，也期待答案

yjyeming · 发表于 2013-5-25 12:13:19

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:\users\administrarors\man_sw\Hand.1.SLDPRT", "", True, True)
End Sub

gml007 · 发表于 2013-6-1 09:17:51

yjyeming 发表于 2013-5-25 12:13 static/image/common/back.gif
/ X2 P- c) @1 {. a" {/ _ MOption Explicit7 x- i& e, |: P- p# _) ^0 }3 \* {
) O$ @& I, ~0 `2 R, ?1 s& D( E% q" l
Sub main()

谢谢你，高手

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

通知

[求助] 紧急求助：SOLIDWORKS宏

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