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

arter

各位大侠:      想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： * T/ ~. y1 C# V! W, E+ b4 i1、报错； $ e' Z1 Z8 h& H- ^; B. W3 ?2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 ( H$ k: @; Q9 _7 @* `: P) ]. ?) ^ 哪位高手能否指点下该如何修改这个宏？非常感谢！

arter

宏内容如下：
. J- @* W* l3 |
5 D1 ?% j  N3 ?! q' {; J# w
Dim swApp As Object
8 L- T7 K! Y( [! D
Dim Part As Object
3 O5 t4 o8 A1 q' }, n: U  ]' z, cDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
6 P! X$ A7 v& h  E  L- _) v9 n
5 \0 ^) v5 |  M6 c+ I; l$ \Sub main()
$ C7 x. r- b6 X6 X, i
Set swApp = Application.SldWorks
9 S$ `' C  b6 p3 l3 ?
Set Part = swApp.ActiveDoc
Dim SimulationWORKSObj As Object
8 s/ D1 V, j0 T  f" K  QDim CWAddinCallBackObj As Object
# H6 z0 p  a6 @; d$ jSet CWAddinCallBackObj = swApp.GetAddInObject("SimulationWorks.SimulationWorks")
* l/ v4 z7 `  p' l; eSet SimulationWORKSObj = CWAddinCallBackObj.SimulationWORKS
3 g  A; M- ~$ r, G& g9 Oboolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
! ^1 d# S* J& ^0 g4 s% N
/ m( Z$ Z  ~: @0 U* J4 z' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
Set swDrawing = Part
8 q: r) Z/ ?3 f% {$ K1 TSet Part = swApp.ActiveDoc
: H6 G5 X3 ^* U. C( d7 Z* H9 g1 `Dim myModelView As Object
Set myModelView = Part.ActiveView
4 H: Y4 J5 @9 c3 H3 o" \myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
7 ?2 s4 p7 G) W1 M& PSet Part = swApp.ActiveDoc
% m( p5 F/ X+ T7 \1 V5 s/ u
' Redraw
Part.GraphicsRedraw2
* }4 |, ?! [+ ~) M( v. E* |. ESet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
StudyManagerObj = Nothing
ActiveDocObj = Nothing
3 S, M; m7 Q* R  K$ DSet CWAddinCallBackObj = Nothing
Set SimulationWORKSObj = Nothing
+ L! F; B; s: b% lEnd Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object
8 Q1 }% X8 y' x' f: `( G( ^
Dim Part As Object
# A2 f4 G& i& S4 `5 |. hDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
0 j: f0 I0 Q+ U  S% W
3 V$ o0 M& k% p' g) b  k$ lSet swApp = Application.SldWorks
) N# J6 w; g6 q0 a  z1 `
Set Part = swApp.ActiveDoc
: l+ T1 C6 H9 F* S" S8 i0 PDim COSMOSWORKSObj As Object
. L' V5 W' z# p2 d# |Dim CWAddinCallBackObj As Object
- S% ~6 Z* _4 l) e8 pSet 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)

, t; m; e/ Z7 t" B( A1 {- Q' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
# R9 H9 I1 V% D$ ?Set swDrawing = Part
7 \3 m. L* S& VSet Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
: g; y* h: i+ V  e/ smyModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
9 F0 C/ F) L6 R, wSet Part = swApp.ActiveDoc

' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
6 m% p  D' r9 b0 B5 OmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
1 N; A' y$ [# T7 M; b3 Y5 PSet COSMOSWORKSObj = Nothing
' n- E0 q2 Z) p( c; d1 GEnd Sub

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
/ b, B  \: K9 V- T6 y" XDim swApp As Object
/ o) c8 L9 x6 E( cDim Part As Object
4 p+ Q& x4 l3 Z2 dDim boolstatus As Boolean
. A6 L2 O9 G8 l8 R( C/ ]Dim longstatus As Long, longwarnings As Long
Dim Filename As String
Dim No As Integer
- k- r5 z- d2 t1 h4 Q& v) r# W, D. e4 u$ cDim Title As String

6 z4 ]; s# @1 L( _, v, }) B
' B5 i' Q. e# v$ jSub main()
& }2 [% i) K% Z8 D) B, d5 i
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
! e% k' e- s6 L' _1 ?5 r. xboolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
5 @# m6 R" H+ w* _) E% f3 ISet Part = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
7 i% p# {/ T8 G, LFilename = Part.GetPathName()
0 }2 f4 L- y2 ^( I5 M# ~$ U( SNo = Len(Filename)
Filename = Left(Filename, No - 7)

Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
% C! _  B: e. \" B7 ~Set Part = swApp.ActiveDoc
8 C8 _! H" F& T* d) E% c9 ?Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
& r1 L% q! ]+ j) L, N7 }% _2 XmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
( h- P  a1 Q3 G3 l4 e" O/ e* l9 ~myModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
$ C, |% \5 E5 X: E1 sSet myModelView = Part.ActiveView
+ g0 _' m, w% w9 o) h4 GmyModelView.FrameState = swWindowState_e.swWindowMaximized
0 N: i. N) D! S) `: Z1 qEnd Sub