快速打开零部件工程图的宏”的问题

arter

各位大侠:      想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： 1、报错； $ j! M& ~) w' y2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 哪位高手能否指点下该如何修改这个宏？非常感谢！ 3 }$ O8 b- a  G+ }# ~

arter

宏内容如下：
' a% {) \0 ?4 X% S

( C+ `" j' w. p, o: z6 zDim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
, {+ ~5 q$ O% e; W' _& g7 fDim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks
1 O4 U4 j& D* U0 U6 i) j
Set Part = swApp.ActiveDoc
Dim SimulationWORKSObj As Object
) X2 M1 R" x0 a" [2 q- ZDim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("SimulationWorks.SimulationWorks")
. j; _4 Z1 a- N2 D+ u4 CSet SimulationWORKSObj = CWAddinCallBackObj.SimulationWORKS
7 j* }6 _; _" F& f7 P, Z8 uboolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

: N( m7 ?0 r+ i' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
Set swDrawing = Part
) q  q) v1 u: d9 w, `% q9 wSet Part = swApp.ActiveDoc
Dim myModelView As Object
/ C( a/ d7 K* J5 \2 C& L% CSet myModelView = Part.ActiveView
myModelView.FrameLeft = 0
, K& K+ l: O  \2 c4 s% omyModelView.FrameTop = 0
, P5 y- a6 Z% w/ [: aSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
9 r! t* E, H8 {$ C5 i- CswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc

' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
; {2 C5 A) V: ]# D. j2 \* c0 EmyModelView.FrameState = swWindowState_e.swWindowMaximized
StudyManagerObj = Nothing
, W3 I; l4 e& _0 A' ^1 ^5 I; SActiveDocObj = Nothing
Set CWAddinCallBackObj = Nothing
Set SimulationWORKSObj = Nothing
& g  K' G: X+ N% h4 k7 qEnd Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
2 b8 v9 I7 p5 T/ d再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
4 u5 e1 `+ x+ z9 r3 ^1 K0 o8 o; EDim longstatus As Long, longwarnings As Long
1 H# \6 G8 x! g9 W( [8 O( \
Sub main()

Set swApp = Application.SldWorks

. P7 U5 p' O3 i& J1 M2 X4 ?, e6 v% K2 ISet Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

* b# K  ?! e: x  p7 N8 w- _, {' Open
" o: `8 z3 v; M3 L  g' N, n+ G  SSet Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
2 k* D$ i9 X8 O6 c! z* vDim swDrawing As DrawingDoc
Set swDrawing = Part
Set Part = swApp.ActiveDoc
5 v2 C# N5 _8 _% MDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
1 {  |7 d- k# e( v( ~Set myModelView = Part.ActiveView
. W7 N/ i  s& u& p. T" Q, \" BmyModelView.FrameState = swWindowState_e.swWindowMaximized
! C8 u% C& C, F5 Q+ q: [" z5 mswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc

' Redraw
  f* F3 Z5 e- L3 f# K6 VPart.GraphicsRedraw2
9 R0 \; n* M6 @/ \! N! ySet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
" v9 ]1 u2 ?/ `: T& NSet CWAddinCallBackObj = Nothing
( A$ o) K1 F3 n1 Q$ M, DSet COSMOSWORKSObj = Nothing
End Sub

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
' a. R- l+ O& |5 L' i6 \" X/ Z' sDim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
/ c4 T9 M4 w) V% n2 ~1 B% e( kDim Filename As String
Dim No As Integer
# u6 O! b+ A  A# ~5 t" S3 xDim Title As String


Sub main()

7 Y% J! J/ a, @' ?, ~% P& `; jSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
9 h. p0 k" ]- Kboolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Set Part = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Filename = Part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
! K7 s4 P' ?. G8 P! ]$ z; P
Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
/ k: W# O! [, v: r' B/ lSet Part = swApp.ActiveDoc
* V& i0 O0 y8 V/ G1 ADim myModelView As Object
Set myModelView = Part.ActiveView
& b' _0 i2 \, e# G6 ]/ ]myModelView.FrameLeft = 0
myModelView.FrameTop = 0
1 I0 g2 A& j- ZSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
3 s2 C/ a" ^& X: n7 OSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
9 I7 u6 q: i4 V3 V$ wEnd Sub
( v' Z- z9 C) |5 M