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

arter

各位大侠:      想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： 1、报错； 7 A" k8 }) _  f$ h4 O2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 哪位高手能否指点下该如何修改这个宏？非常感谢！ , ~7 c! x6 n$ Y

* r/ V1 _' K' ~0 p

arter

宏内容如下：


- u+ G9 L5 _/ k2 w* `Dim swApp As Object
( j8 ^2 i4 x/ J: j$ J
3 a/ n% T/ \6 Q0 q5 V, t: O; [' t) QDim Part As Object
Dim boolstatus As Boolean
4 _# u  r+ ?/ rDim longstatus As Long, longwarnings As Long
. ^8 m( G( A( O
Sub main()

Set swApp = Application.SldWorks

% x8 C2 x* H( R" L9 `Set Part = swApp.ActiveDoc
Dim SimulationWORKSObj As Object
1 g# k# P" t$ t* h4 U7 U0 ~3 vDim CWAddinCallBackObj As Object
; e" q( J; i7 t  U' F3 tSet CWAddinCallBackObj = swApp.GetAddInObject("SimulationWorks.SimulationWorks")
" c- @0 [  X2 o) v+ WSet 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)
Dim swDrawing As DrawingDoc
$ z+ e, ^* R8 z* }  ]2 s4 BSet swDrawing = Part
Set Part = swApp.ActiveDoc
) Y% O% Q; r1 e! LDim myModelView As Object
) T& K/ O1 L; ^Set myModelView = Part.ActiveView
- ^/ z( G! M- k, KmyModelView.FrameLeft = 0
' S' Q5 f+ G+ A2 {myModelView.FrameTop = 0
4 K" o# R7 z  U! {& K0 ZSet myModelView = Part.ActiveView
+ T! [7 ^% I- BmyModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
4 c6 d; g* i8 Q. L* F' b6 H+ ~Set Part = swApp.ActiveDoc

# `& U, }% l$ b* k$ v  p' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
StudyManagerObj = Nothing
5 \$ l/ C) p, w$ c" F1 s$ AActiveDocObj = Nothing
$ R; [+ E: N+ i% tSet CWAddinCallBackObj = Nothing
Set SimulationWORKSObj = Nothing
End Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
2 C6 O5 D" w. a/ E$ |/ [再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object

Dim Part As Object
% P" s' T) n& C6 q9 TDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
( R0 [7 b* k" l
Sub main()

  }# P+ [2 t/ h( F- B0 E+ USet swApp = Application.SldWorks

% A3 I' F& u4 C9 O& ^+ n9 I6 VSet Part = swApp.ActiveDoc
9 j% l2 t; K  p1 Q# zDim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
% O+ K6 g3 O7 S+ k% y) x# K4 T( ySet COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

  W  \9 r# `. E' Open
6 S8 f6 w0 p7 f, j; uSet Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
( Z- e8 K: d4 G8 f0 EDim swDrawing As DrawingDoc
Set swDrawing = Part
* g7 q, L% S* x4 a. LSet Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
2 H3 p) t. H& B4 \( ~myModelView.FrameLeft = 0
myModelView.FrameTop = 0
1 Q* e4 s0 N& l: jSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc

' Redraw
Part.GraphicsRedraw2
( b3 R% _2 k4 w% c5 TSet myModelView = Part.ActiveView
) Y) D1 J- G' A+ ^) PmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
8 K+ b. y9 W( x6 Q7 C8 {End Sub
8 K1 b) Z! s0 t3 d

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
( C. Z1 Z( n4 n' Z  Z, N9 pDim swApp As Object
/ S2 u4 R* q; A6 k# mDim Part As Object
+ N3 o% G# O' X: IDim boolstatus As Boolean
- ^- B) Q' s" T2 oDim longstatus As Long, longwarnings As Long
Dim Filename As String
Dim No As Integer
Dim Title As String


Sub main()
% E2 u* j) [, r* B& `  Q7 |
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
" D/ ?4 I) ~8 S7 @9 jboolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
! g, l/ e; ^* @% b+ g  y: H( a5 V; |4 CSet 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
2 z; ?% d4 n  z% `" XDim myModelView As Object
  q' }2 D" c" {Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
2 _# e5 t6 O9 _, Q+ j4 _' YEnd Sub
9 ]' |- V! W* b# X) S