“快速打開零部件工程圖的宏”的問題

arter_2006

各位大俠:
     想錄個宏、設置成快捷鍵，實現無論在模型窗口選中零件的面、或在左側區域（commandmanager區域）選中零件或裝配體，再按快捷鍵，即可打開相應的工程圖。實現此功能需先做個宏。可是不太成功。問題是：
1、報錯；
; m+ R) I- p0 Z2 I3 B7 v2、宏里指定了零部件的名稱，導致只能打開創建宏時的零件工程圖。

* K, n! T3 y% x& i6 q8 Z哪位高手能否指點下該如何修改這個宏？非常感謝！

arter_2006

改了一下，此附件不在報錯，但是打開的是創建宏時的工程圖，依然不行。
再改了一下，見下，啟動宏沒反應，也不報錯，這個是SW2020的版本的宏
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
; `" F# _3 H; b  E7 S1 v$ B4 t
! V6 A; O: P$ i" c2 B" o) w8 qSet swApp = Application.SldWorks

& [( i# t$ c! ^/ e( T$ g, oSet Part = swApp.ActiveDoc
/ Y$ ?  S9 D  M4 wDim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
2 J) ]  f3 L3 D8 \# M; D8 N6 S) RSet CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
2 Q! N' W7 V- n, N+ ~boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

( n* r4 X6 z  ]8 Y1 r7 D$ W' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
4 N5 z; F% i0 ODim swDrawing As DrawingDoc
Set swDrawing = Part
3 r% P! ]( ~3 c1 q6 a) |3 `Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
, \* t) f! @6 O+ ]myModelView.FrameLeft = 0
+ `, n! f/ e  D" q$ z; D6 Q" jmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
/ F. [5 E, g" [, R6 q2 PswApp.ActivateDoc2 "B111 PLT - 圖紙1", False, longstatus
Set Part = swApp.ActiveDoc
* M4 R/ D3 ^( y6 k
' Redraw
Part.GraphicsRedraw2
! ~5 J  k- w- i0 a3 fSet myModelView = Part.ActiveView
) w- ?) B! K. KmyModelView.FrameState = swWindowState_e.swWindowMaximized
# y2 ]( K3 e! X4 o4 Q& x/ ^Set CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
4 V# O: D( b& M# n7 D) U' _1 ]End Sub
% f3 w5 ^/ m! a: ^: a! v

arter_2006

這個是SW2016的版本的宏，就差一步就成功了，就是如何從被選的零部件獲得文件名。
" \1 a& z& A2 q6 bDim swApp As Object
. t6 H4 Z- w( O: B" S1 |8 R! \Dim Part As Object
Dim boolstatus As Boolean
$ {) \, k2 ]% g- @3 P6 mDim longstatus As Long, longwarnings As Long
* \9 j; R! P5 V2 H7 n' _Dim Filename As String
Dim No As Integer
, C7 w. E3 P8 `: K4 P( S# X/ HDim Title As String

# ]- [* _# }  @# E4 I% G
+ l; X/ M# t1 j  Z- p$ VSub main()
9 D2 h. o" _5 O) S+ Y
, l3 f2 ^7 t# F" kSet swApp = Application.SldWorks
! d' R# W7 t# oSet Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
$ f- I! q3 E/ ]# |( U% V1 a& LSet 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)
0 j! r8 h% i) Q) e- cSet Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
+ b; N* [2 H. N  J4 ?$ x7 vmyModelView.FrameLeft = 0
/ [* Z5 A6 H5 A) e, u/ @( ImyModelView.FrameTop = 0
+ Y' k5 E. p( n4 S3 v4 H8 E: PSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
) w1 J' N' S/ c- NSet Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
4 T+ y4 x* N8 i7 J- Y& M" HEnd Sub

冷月梧桐

矯情，有個詞叫“快捷鍵”，操作：你把”從零件/裝配體到工程圖“設置一個快捷鍵，比如Ctrl+1。
! O. `. {, s& X) F$ N8 u3 K; `使用方法：你點中零件，按快捷鍵就好了

zhufeng_hgp

這個功能正如2樓說得那樣，把打開工程圖這個命令設置成快捷鍵就能實現的

czq001

好東西 學習一下

防彈蝸牛

零件和工程圖并不是一一對應的
為啥，有配置，有出圖的特殊需要
+ D. i- e+ D# t. eA零件可以對應工程圖B，C，D。。。

所以，我覺得這個需求就不成立。。。

遠祥

感謝樓主分享，學習了

1142

zhufeng_hgp 發表于 2022-1-26 23:08
這個功能正如2樓說得那樣，把打開工程圖這個命令設置成快捷鍵就能實現的

1 a- P) x, m4 H- S你好，請問你這個是從裝配體選擇零件，然后打開工程圖的嗎？如果是可以的也幫我發一下吧,謝謝！1142163586@qq.com
$ K) w/ C# O/ ?7 p' T+ i7 U

qiushui1688

已學習，多謝！