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

arter

各位大侠:      想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： 1、报错；   _1 |- u7 L/ F; i1 h5 x2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 9 F+ T% Y8 z% ]# u) Q4 b+ }( `+ A + V$ `: Y0 _, k# Y, A哪位高手能否指点下该如何修改这个宏？非常感谢！ / Y7 k/ ~3 }7 _' K% B& m/ E+ v" J) c & y+ Q$ q) Q2 P6 [; Q0 |% V

. l( U" T2 W0 H0 o

arter

宏内容如下：
, c+ j) c, J- f& M) Q+ T: Q' r. I

Dim swApp As Object

/ Q2 Y4 A' H8 b$ g1 ~1 \Dim Part As Object
4 P! @6 E6 u+ dDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
7 L6 O# n7 e6 ]0 S
: q7 s% H+ M* iSub main()
2 k/ ?9 N9 R5 u! T1 a8 p7 F
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
6 I, D4 s1 `3 A* W& T/ O, A5 L* NDim SimulationWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("SimulationWorks.SimulationWorks")
7 s& W" Y. P9 G  K; y, HSet SimulationWORKSObj = CWAddinCallBackObj.SimulationWORKS
boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

3 f1 L9 \# y2 T2 p* m! C: I5 X& I' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
" D' ~; ~' N& XDim swDrawing As DrawingDoc
Set swDrawing = Part
Set Part = swApp.ActiveDoc
, q/ q/ O* f1 M6 Y# l' A( l5 ]Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
1 o% |* U& Y5 [) S+ y* M" NSet myModelView = Part.ActiveView
. R$ U; I% b) M$ h* TmyModelView.FrameState = swWindowState_e.swWindowMaximized
2 p1 c* g" S$ a: ]* \swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc
8 @8 H+ l% @7 S+ i
$ {( J& y  X1 y' Redraw
Part.GraphicsRedraw2
1 X* S# C) }6 \8 D% R% T. {) l- }Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
StudyManagerObj = Nothing
! @4 }! b1 @7 uActiveDocObj = Nothing
Set CWAddinCallBackObj = Nothing
Set SimulationWORKSObj = Nothing
9 J$ A: u+ Z' T1 H* E" G7 H+ S* vEnd Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object
4 W0 k8 X3 Y# C" W
Dim Part As Object
7 r9 C, x: i& @9 w% M. q( hDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
2 @+ m& J  I, E; C% a
  `" p2 X" L& w2 {0 T! t$ YSub main()

$ l, }" q! V6 P( qSet swApp = Application.SldWorks
$ o" m& i) y) A6 D3 m3 m& n7 k) A
. ]# ]6 w. Y+ XSet 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)

' Open
9 s. O2 N1 a! i/ PSet Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
  G, V7 l5 ^2 x; U" {Dim swDrawing As DrawingDoc
Set swDrawing = Part
7 _4 J* d, g6 ^8 q8 J: D: O8 lSet Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
, R# S) b  d4 T- gSet myModelView = Part.ActiveView
1 T, z; m' f" j' R# Z1 ImyModelView.FrameState = swWindowState_e.swWindowMaximized
% h, n# B* K  {8 F! s) I! k) b9 |swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
$ {: q. S8 Q' V# e4 A4 Y! X: U% pSet Part = swApp.ActiveDoc

: ?5 i0 [0 Y" J' Redraw
* J/ n3 D& A& U2 B( c0 {6 K# YPart.GraphicsRedraw2
Set myModelView = Part.ActiveView
& i3 G2 Q/ W+ O3 u, r  _myModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
- H: w! K$ U& Z0 Q' AEnd Sub
5 x/ `# M9 E. Z3 e  z) e

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
Dim swApp As Object
; ^+ ?; [" `) i+ Y& `Dim Part As Object
; P  C4 H! {  X, W' s. _Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Filename As String
& I3 q0 J0 Z- P+ r; o% }$ o+ [Dim No As Integer
9 E) m- k3 q  `% Z; I- vDim Title As String


Sub main()
! C" v8 X0 h* V( L
Set swApp = Application.SldWorks
  b. i( A/ ]8 ~: c$ i. h4 o% I6 xSet Part = swApp.ActiveDoc
1 M% p! U6 z; v: r8 O, A6 F( lboolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
7 @. E6 k0 ]- n0 k2 H; eSet Part = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Filename = Part.GetPathName()
* C; t6 d7 b) J  cNo = Len(Filename)
Filename = Left(Filename, No - 7)

- w* a- K/ F- `% }Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
$ c& ]8 R7 I# `5 m6 }) bDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
2 n' @  r+ j' |1 WmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
* O5 z" N5 R- qmyModelView.FrameState = swWindowState_e.swWindowMaximized
2 H' C1 g: F/ P; B* d9 ?: ~$ I5 lSet Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub
+ b- Y1 Y3 S/ H4 C& i. `; ~