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

arter

各位大侠:      想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： ( k! X% o8 I: [  ]3 Y1、报错； 2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 哪位高手能否指点下该如何修改这个宏？非常感谢！ ) V* |" X9 r- F2 L1 g1 I) b

# ~/ b- A6 o4 c$ _6 W& w

arter

宏内容如下：
7 {1 o! r6 q* U, k3 Y, M( P/ I

0 {8 @- X2 |6 K  ~6 EDim swApp As Object
; F; G* {) J4 z, n2 W6 i2 p
Dim Part As Object
Dim boolstatus As Boolean
0 l7 C0 ]! G# T$ M* q4 RDim longstatus As Long, longwarnings As Long
/ Q/ Q0 g  r9 j, ^, z  ^* _
% V5 I" s; g: v: Z, Y) fSub main()

1 _$ e2 V- q7 \- I! iSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
& O8 P; ^9 Y; j/ ADim SimulationWORKSObj As Object
Dim CWAddinCallBackObj As Object
% z+ S/ q+ E# i" y5 A  l/ FSet 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)

' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
6 ^& B- B+ v/ q, JDim swDrawing As DrawingDoc
; b! J  T+ ]" r' z5 bSet swDrawing = Part
$ S* h+ q7 G2 ~6 D9 p/ [$ F3 WSet Part = swApp.ActiveDoc
4 s" l  y3 T- p' `0 kDim myModelView As Object
Set myModelView = Part.ActiveView
! ?( n4 x5 T6 m0 h1 qmyModelView.FrameLeft = 0
8 Y  K) P8 l) @: r  C- XmyModelView.FrameTop = 0
' {5 a! L6 u& x7 ySet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
0 z* P& U! u& \# S8 @swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc
5 {2 q$ c0 l7 C4 Q1 y+ n  V
' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
5 A. `/ t/ A5 @StudyManagerObj = Nothing
ActiveDocObj = Nothing
+ n/ @+ L8 L7 k1 GSet CWAddinCallBackObj = Nothing
. {! q; D3 b7 a8 NSet SimulationWORKSObj = Nothing
End Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object
: B% `, n0 q9 i& X+ p( y
/ v+ |# Z/ i+ K4 `& s/ ADim Part As Object
$ [8 m( K( H+ W  l  p2 o& v2 Q# LDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
8 l" r/ J0 U1 n' t
Sub main()
4 o( |2 t3 b4 Z& f% y) Q+ O7 d
Set swApp = Application.SldWorks

' u6 C8 p7 _; n) kSet Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
( e4 Z: S9 W& A) Q7 g; t( ^  x  O8 pDim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
' {8 L# w; }, }+ k' V' F- ]Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
2 F& f: u; Y7 V! X& O( k& E" L. z! qDim swDrawing As DrawingDoc
: D6 A# K, w( V! Y: H4 PSet swDrawing = Part
Set Part = swApp.ActiveDoc
+ V7 E( i9 K( i/ y2 Z( RDim myModelView As Object
2 q, V0 J5 d# b) X" F" aSet myModelView = Part.ActiveView
+ W3 N' e$ }( [5 j! X, u8 a0 ?* rmyModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
8 c# n+ V! ]& X0 n7 V: W) k2 l7 _myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
. @6 q6 a+ ]) }' v: ?* {6 I4 C$ l" v9 RSet Part = swApp.ActiveDoc
* _6 b0 o+ N% l* O/ q4 ^  j
' Redraw
% n& ^: M3 c: L- N- hPart.GraphicsRedraw2
Set myModelView = Part.ActiveView
& j/ _3 I/ Q6 rmyModelView.FrameState = swWindowState_e.swWindowMaximized
/ w0 [- n. C8 WSet CWAddinCallBackObj = Nothing
* [% [* h) U: X2 r. x- iSet COSMOSWORKSObj = Nothing
End Sub
* G5 w) e8 y8 R+ U1 m8 I

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
7 ^: \7 c9 {7 P0 y7 pDim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
% Y  a  O6 b% e4 eDim longstatus As Long, longwarnings As Long
Dim Filename As String
- ]  x# U) Z) I7 y" H! G. EDim No As Integer
Dim Title As String
3 K. w' O# T* F

* k6 h% }9 Q. |# }" l* W: F' uSub main()

) A  X; [5 V% n! A* cSet swApp = Application.SldWorks
" T1 d" {# L) M. B9 c2 m  l2 CSet Part = swApp.ActiveDoc
& d( {1 X% A8 pboolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
: ^. X* u: P4 x9 s! f3 U# _- jSet Part = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Filename = Part.GetPathName()
- w5 A# e" D: Z( y* [+ fNo = Len(Filename)
2 r& k; O8 z: J6 b- W. m( E- VFilename = Left(Filename, No - 7)
, E6 s1 {6 x0 C$ X
  T2 S: ]: x5 q, t: C* BSet Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
# d* T& |5 c$ I: CmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
3 Z  x: \) K7 D! M* ?" M) M% lmyModelView.FrameState = swWindowState_e.swWindowMaximized
. |2 @$ a# y1 B1 G! ?. R  fSet Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
# `) a4 C$ X6 K; [# r* W) P6 fmyModelView.FrameState = swWindowState_e.swWindowMaximized
# `+ Q9 P' V5 o1 K- p) LEnd Sub