紧急求助：SOLIDWORKS宏

gml007

我利用solidworks的录制宏功能，在装配体中替换零部件。在装配体文件下用solidworks菜单命令 零部件替换是成功的，同时录制宏，但在运行宏时出现报警，不成功，求教专家。详细见附件（就是在装配体中把Hand换成Hand.1）
1 Z, b$ m: S2 |0 Z5 phttp://bbs.cmiw.cn/data/attachment/forum/201302/02/083729rqpn20c9ltp0cccr.jpg3 分钟前 上传
9 t1 u7 Q5 Y* u+ {# P下载附件 (10.23 KB)


http://bbs.cmiw.cn/data/attachment/forum/201302/02/083808dh5q40dhnddxbdag.jpg2 分钟前 上传
下载附件 (73.53 KB)
( u' O$ S# {- o# P6 o
: U- K; f$ d1 f& W$ x0 `' G

. [; W9 o/ N  y3 u# z5 o) E
/ z8 j9 c: ?- w) P: I man_sw.rar (1.87 MB, 下载次数: 42)

2013-2-2 08:45 上传

点击文件名下载附件

chugang123

我是新手，也期待答案

yjyeming

Option Explicit

Sub main()
9 Z# J% t7 o, v- F. y# ~    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim swAssy                  As SldWorks.AssemblyDoc
/ D5 K: d, z) _9 R    Dim swSelMgr                As SldWorks.SelectionMgr
    Dim swSelComp               As SldWorks.Component2
. J  S$ a. j- P) \' c    Dim swSelModel              As SldWorks.ModelDoc2
7 L& t4 I1 b/ j: S3 t4 f    Dim boolstatus              As Boolean
    Set swApp = CreateObject("SldWorks.Application")
" K8 z8 C6 N+ G3 i) \! c4 q    Set swModel = swApp.ActiveDoc
9 n7 x* w( W) P) R; w0 C/ x5 [    Set swAssy = swModel
    Set swSelMgr = swModel.SelectionManager
    boolstatus = swModel.Extension.SelectByID2("Hand-1@Dude-2", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
/ C, M9 P" O( a, y+ b4 q* G    Set swSelComp = swSelMgr.GetSelectedObjectsComponent(1)
    boolstatus = swAssy.ReplaceComponents("d:\users\administrarors\man_sw\Hand.1.SLDPRT", "", True, True)
End Sub

gml007

yjyeming 发表于 2013-5-25 12:13 static/image/common/back.gif
5 }) {( O  ?1 L- C8 j# a& eOption Explicit

/ K9 Z. m7 S% ], A/ U. I/ ?% nSub main()

- q0 B/ X$ |# m谢谢你，高手