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

arter

各位大侠:      想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： ) O. f8 K4 V. O. [1、报错； 2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 - g+ ~6 t% C% f+ k/ X" E. P+ J8 |- O. A. V哪位高手能否指点下该如何修改这个宏？非常感谢！ 9 D- b* }" R6 T. p% [ & _. r& t! k! a7 K

arter

宏内容如下：

# I! v8 E6 Y; F1 t2 A, t9 t+ P( }. _' s, T
& X6 T7 }" s" p- [Dim swApp As Object

Dim Part As Object
! _5 l/ M3 I: W* _8 Q$ y4 c; WDim boolstatus As Boolean
0 v* W2 l/ R1 i9 n! H5 zDim longstatus As Long, longwarnings As Long

& A6 E/ g9 g5 t/ YSub main()
* n- g9 V6 I# B! w2 }
2 u. ^" u3 w2 fSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
( h5 k% I* e4 b: Q6 {0 ZDim SimulationWORKSObj As Object
Dim CWAddinCallBackObj As Object
" c" h$ q* `1 y. `8 g9 s  y% j( aSet CWAddinCallBackObj = swApp.GetAddInObject("SimulationWorks.SimulationWorks")
2 B' w& S2 B: O4 j4 O2 x; ]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)
/ N! L; ?+ M0 r8 a. pDim swDrawing As DrawingDoc
Set swDrawing = Part
Set Part = swApp.ActiveDoc
Dim myModelView As Object
' }. H8 x7 ~  F1 H7 }4 bSet myModelView = Part.ActiveView
- V# K" S8 }; `, f3 }4 |myModelView.FrameLeft = 0
9 ~4 a* T2 r9 W4 GmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
# h! T( @* z% f! ]" Y2 f5 yswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc

4 P- S% Y. {0 _" u' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
StudyManagerObj = Nothing
ActiveDocObj = Nothing
% v4 f% g; H  A6 c: H2 Z0 i+ \Set CWAddinCallBackObj = Nothing
Set SimulationWORKSObj = Nothing
End Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
7 J: e5 b: X) t# x% @# y再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object
6 z5 @5 Q: {$ t$ j( Q) Z2 h
# f. U$ B4 |4 ?: ?Dim Part As Object
Dim boolstatus As Boolean
- w8 k1 P! ~* b3 o- KDim longstatus As Long, longwarnings As Long
7 K. L, V. W4 J3 _# ~' ^
Sub main()

% e& k' t% O1 J) ^5 Q2 M5 ZSet swApp = Application.SldWorks
3 T1 ?* d: l0 p5 w8 M, U8 M4 A
Set Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
0 ]; z, H: S+ M9 e+ mDim CWAddinCallBackObj As Object
- i/ S  ]$ k2 l( b  n% E) {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)
. z6 E( T! \6 i. B6 {
' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
  ~: v0 I4 p, _& P  UDim swDrawing As DrawingDoc
  C! R9 z1 V0 @5 _: Q$ BSet swDrawing = Part
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
) D$ c0 ?$ Y1 }myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
* _* q6 T' x% k# R3 \9 YSet Part = swApp.ActiveDoc
" I  k2 m2 m5 a) j" [8 s' b; o
' Redraw
Part.GraphicsRedraw2
2 z) B" z, Z. q% d7 CSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
0 p, |0 k1 O' o4 G+ G( I( U% xSet CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
/ c1 @4 ?9 q/ T6 CEnd Sub

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
Dim swApp As Object
1 Q& a: t& y) f0 oDim Part As Object
# l; Y1 U" m5 }$ L5 KDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
( r3 J6 V5 }" ?/ u6 ^& |. mDim Filename As String
# n1 q0 Q. H) c8 jDim No As Integer
# ~; s( l& ^  @: n8 Z3 y9 u+ `6 [Dim Title As String
3 ~( _0 m: _6 ?$ R5 J
; L+ b+ o7 ?! ~3 S9 q4 y
Sub main()

5 }  {' V) m, I8 ~  H& ]; \Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
' h. ^. H1 Z9 t7 h! Q* E! T' ~+ ]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)
6 h7 K, w3 ~& t" p6 _/ t
Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
7 _. E: K3 T1 ZmyModelView.FrameLeft = 0
myModelView.FrameTop = 0
5 |. t" h% u& U  L& z/ P- MSet myModelView = Part.ActiveView
+ O: f7 G  l8 B/ J1 `: XmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
1 a* n2 c* E4 z( @8 _- CEnd Sub