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

arter

各位大侠: $ [/ C+ j4 x5 n0 W     想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是： / g+ m. i1 j* m! t1、报错； 2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。 ( ]: E: F- h# ~" v) w " d. I, t3 Q$ w4 j4 ?哪位高手能否指点下该如何修改这个宏？非常感谢！

& D( N" \, W) {/ l

arter

宏内容如下：


Dim swApp As Object

3 q: S2 a3 {+ H$ `3 J0 y  V( ZDim Part As Object
" y) F! |* ~- u' e, S- A" nDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
3 {" g0 l. C5 w5 P# a. t
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
( a" J- V1 Z/ Y1 m" W) |! aDim SimulationWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("SimulationWorks.SimulationWorks")
Set SimulationWORKSObj = CWAddinCallBackObj.SimulationWORKS
3 s4 X0 }  q: z% `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
Set swDrawing = Part
Set Part = swApp.ActiveDoc
1 N) d# p/ L) ^! k3 _& q. e+ ]Dim myModelView As Object
$ E& k) M- h5 K* I7 ~8 WSet myModelView = Part.ActiveView
myModelView.FrameLeft = 0
3 ~$ P5 S" c" F  S& E5 bmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
0 p6 F1 @5 m2 @. ?+ Q/ G4 VmyModelView.FrameState = swWindowState_e.swWindowMaximized
- k: `( E/ b  U) y2 X$ Z- zswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
: ^" W+ l8 v2 C3 G7 P4 A) ZSet Part = swApp.ActiveDoc

' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
+ r2 x2 G! l: ?# ~StudyManagerObj = Nothing
ActiveDocObj = Nothing
Set CWAddinCallBackObj = Nothing
4 ^( d9 s8 J; V& bSet SimulationWORKSObj = Nothing
End Sub

arter

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
0 M. w( v2 i$ x( x8 p: _再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
8 Q" M0 T- D" z: mDim longstatus As Long, longwarnings As Long

  d5 P( ^( @. G4 T  M8 N' tSub main()
: K. ^* @/ M( P9 V0 E
9 T5 o5 u, m0 [Set swApp = Application.SldWorks
- |- W2 h9 @( Z5 l+ H; V
. T$ j! M6 _: d3 M) |Set Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
3 J  n' T- |. d3 _8 b8 ?9 CDim CWAddinCallBackObj As Object
9 t! c: T5 v6 O: uSet CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
) o- \1 R. @! s' z; p8 C+ V- \boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

' Open
) }$ k; d. n  ]! }Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
% z2 ]$ L* f2 W( {- s2 s9 `4 g# \Set swDrawing = Part
6 T0 ~# a% o  n) }4 Q( h& h/ uSet Part = swApp.ActiveDoc
) s; @; d: C- ?( {0 E" HDim myModelView As Object
' V, ?9 Q3 v& {: HSet myModelView = Part.ActiveView
! X7 s% z% C) \) R4 I+ L, T/ mmyModelView.FrameLeft = 0
8 a& `. T& J; r7 zmyModelView.FrameTop = 0
8 T% S3 s$ i. }; ySet myModelView = Part.ActiveView
5 j) g/ s) g, h5 ymyModelView.FrameState = swWindowState_e.swWindowMaximized
8 I. Y- Y" K$ T5 t4 @. G0 d6 S- AswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc

3 g( m3 v/ B& D) p, @3 i+ S' Redraw
1 I7 D. o% n7 f9 s7 [( CPart.GraphicsRedraw2
Set myModelView = Part.ActiveView
$ ^( {- j8 J% P1 e6 i/ V+ U1 b9 zmyModelView.FrameState = swWindowState_e.swWindowMaximized
5 d/ v$ \+ m- F( B# Q$ nSet CWAddinCallBackObj = Nothing
9 g% ~5 S' k* uSet COSMOSWORKSObj = Nothing
End Sub

arter

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Filename As String
Dim No As Integer
1 x! d+ p( P* c" R% H' K  ADim Title As String
- _- n" D& F4 L* j* y& h9 b: a+ K

Sub main()

/ }, E  F" ~0 @4 S6 _Set swApp = Application.SldWorks
5 _7 w3 n# O* s6 ?/ hSet Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
/ r7 a, K! a1 n: V) T* q7 }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)

8 P3 b* K$ d+ i! t# MSet Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
7 p$ P% A1 B" ESet myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
* v( k* G% j* e/ ESet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
" `1 M5 Z. m- S" G9 V# U; u1 u% OSet Part = swApp.ActiveDoc
, N) |/ x/ x4 H4 V0 E  iSet myModelView = Part.ActiveView
3 p4 I' O/ |. h1 o' q+ i* nmyModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub
/ Q7 ]8 B& V, V