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

arter

各位大侠:      想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： 1、报错； 2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 哪位高手能否指点下该如何修改这个宏？非常感谢！ 4 \8 D; ]5 I' s6 n/ W" o

arter

宏内容如下：
: B5 l9 x7 J7 g

; H2 W4 l5 O( P4 ]9 E. |Dim swApp As Object
8 X  A. x7 X) w1 S. s; d/ @
Dim Part As Object
Dim boolstatus As Boolean
+ Z& j5 r4 E% v0 X" |+ KDim longstatus As Long, longwarnings As Long

Sub main()

  x7 \- @* x, Y5 ~5 E  i# `Set swApp = Application.SldWorks

' R  k0 V: w; X" h1 D; dSet Part = swApp.ActiveDoc
Dim SimulationWORKSObj As Object
: e0 S) b3 ]3 Y' fDim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("SimulationWorks.SimulationWorks")
Set SimulationWORKSObj = CWAddinCallBackObj.SimulationWORKS
boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

8 O  q4 Z5 a& _: g% R; `2 Z' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
3 b1 x5 ~( F/ K+ t! ~* IDim swDrawing As DrawingDoc
Set swDrawing = Part
Set Part = swApp.ActiveDoc
6 X0 P" t) g- l( XDim myModelView As Object
Set myModelView = Part.ActiveView
- D( v. r- y  B/ d8 LmyModelView.FrameLeft = 0
  H9 e% `& v# B4 QmyModelView.FrameTop = 0
: v7 g/ p% }+ {& XSet myModelView = Part.ActiveView
/ u8 F4 s* E7 G' I* N6 g" W2 dmyModelView.FrameState = swWindowState_e.swWindowMaximized
2 l* |$ |3 \! H3 R5 ~: {swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc
  O$ D% @' S+ x! _+ \1 E4 @- r, J
) p; I" E$ u& C0 E7 @' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
4 J$ b& r$ b$ b0 _; f5 fStudyManagerObj = Nothing
* i! |6 T' C- p, ^4 H. @0 nActiveDocObj = Nothing
Set CWAddinCallBackObj = Nothing
Set SimulationWORKSObj = Nothing
9 V9 |1 _/ t3 ?) X# h; |" PEnd Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object
( \" d4 k3 m9 B
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
2 T( L: l4 K, l7 e: V4 U% a
3 \- F4 |2 e' O: DSub main()

3 U. Q! H0 o6 l  Z$ vSet swApp = Application.SldWorks
) _3 X* X( V  L2 h" R" N
Set Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
) I1 d+ C. Q8 S& q+ }: \5 @boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

* J4 W" E4 ]  N+ v. r: `' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
) X, c/ D0 |' ^5 PSet swDrawing = Part
6 D+ E) |4 T% ^2 rSet Part = swApp.ActiveDoc
* d$ f  G" x5 @( u$ e! XDim myModelView As Object
9 [+ B0 V( D- p6 cSet myModelView = Part.ActiveView
6 u1 C2 E* P6 L9 R; x0 C: amyModelView.FrameLeft = 0
; C# Y: ^$ P  z/ t2 H# e5 l( dmyModelView.FrameTop = 0
0 s" n' R$ J$ w) GSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
3 F) M6 @$ \; _. q7 CswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc
+ f: s3 @, ^8 H1 n$ H, p) f9 R
. {( O9 L- O3 ~' Redraw
' A$ N' G6 L  H' E5 l/ O  Q# \Part.GraphicsRedraw2
; K. K: S" P( a  t! C0 R+ kSet myModelView = Part.ActiveView
) T$ N1 h: S( a6 V( z: G$ f; HmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
. Y. P1 w: d1 w7 F* oSet COSMOSWORKSObj = Nothing
End Sub
% X' s. k, d8 t4 x( J

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
+ U( Q/ o, n( i( m$ m! g: h+ p$ i' }& bDim swApp As Object
: _1 X  [4 h* `8 o7 D  h. oDim Part As Object
: F5 U! I5 X( r# A2 h/ M+ TDim boolstatus As Boolean
5 ]" J4 w7 b- p# x. G* {  n# u* CDim longstatus As Long, longwarnings As Long
" c0 K* F4 w( V. n& q3 s: v+ gDim Filename As String
Dim No As Integer
6 v2 o) F/ Y7 d- b2 Y: `( {7 JDim Title As String
  c( L- [0 e' X6 U* m8 p0 t2 G
  `  ^( b# r. S) G& C
9 o1 S: E2 s% G3 k& dSub main()
6 ?2 ?6 U5 M4 N
8 g" O! e* [/ w/ U% ZSet swApp = Application.SldWorks
3 K# C( e& L  |3 H' Q1 ~  J! ?Set Part = swApp.ActiveDoc
boolstatus = 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)

Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
" g( z6 |! u# j; RDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
1 X7 G2 F+ y1 z, M+ AmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
6 T( I6 ~/ }3 ~: DmyModelView.FrameState = swWindowState_e.swWindowMaximized
. T8 S! z" V5 a" y) b+ j# W, ?Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
! v# F5 g; X( t* @myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub