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

arter_2006

各位大俠:
     想錄個宏、設置成快捷鍵，實現(xiàn)無論在模型窗口選中零件的面、或在左側區(qū)域（commandmanager區(qū)域）選中零件或裝配體，再按快捷鍵，即可打開相應的工程圖。實現(xiàn)此功能需先做個宏�？墒遣惶�成功。問題是：
1 g1 [+ d0 l$ u1、報錯；
2、宏里指定了零部件的名稱，導致只能打開創(chuàng)建宏時的零件工程圖。
- O, e0 m9 V0 U4 U; a
哪位高手能否指點下該如何修改這個宏？非常感謝！

arter_2006

改了一下，此附件不在報錯，但是打開的是創(chuàng)建宏時的工程圖，依然不行。
再改了一下，見下，啟動宏沒反應，也不報錯，這個是SW2020的版本的宏
( u/ F7 b! L+ T+ \& l8 F/ j' HDim swApp As Object
8 R; F5 P/ p7 _
Dim Part As Object
Dim boolstatus As Boolean
4 o6 O% C5 d- ]2 a$ q6 PDim longstatus As Long, longwarnings As Long

Sub main()
& {% o4 b$ k8 ]( b5 I; ?
Set swApp = Application.SldWorks
8 H" H, {2 G$ J
Set Part = swApp.ActiveDoc
, ?+ x6 k7 r' X+ vDim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
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)

' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
: v) e, d2 J( q. C* |0 WDim swDrawing As DrawingDoc
7 _1 a  N( q; Z- \1 l% s  F. USet swDrawing = Part
Set Part = swApp.ActiveDoc
7 \8 z# X0 T1 ^" V: \+ gDim myModelView As Object
Set myModelView = Part.ActiveView
- E+ t! d; Y* ?6 r. {- W1 ~myModelView.FrameLeft = 0
, b# Q' g9 u5 Q! Z9 D+ x3 g' G0 HmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
/ h; @" ^3 r* ]7 bswApp.ActivateDoc2 "B111 PLT - 圖紙1", False, longstatus
7 n3 Q. p- v* \0 ^4 q/ OSet Part = swApp.ActiveDoc

# v: c6 a9 D, c+ f' Redraw
; q( G* [$ l9 i6 \( H6 F) a* W. \Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
; B5 s3 N$ N, E4 |$ ~myModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
6 d$ E4 C- k2 x0 ISet COSMOSWORKSObj = Nothing
/ L1 g: G: o9 s, ?& C( j4 a, CEnd Sub
* D' T$ F8 ~9 X4 l$ k' o/ K% L+ U

arter_2006

這個是SW2016的版本的宏，就差一步就成功了，就是如何從被選的零部件獲得文件名。
5 U0 W+ l  D& h- S$ V- K% EDim swApp As Object
- D4 |* |) W: L, aDim Part As Object
/ ]. S; P( t4 |: ]0 eDim boolstatus As Boolean
+ y8 y7 A, L( R( N& A' fDim longstatus As Long, longwarnings As Long
Dim Filename As String
Dim No As Integer
# Q0 ]5 i' |# e0 l' GDim Title As String


Sub main()

; V: h6 E) y, e4 ]$ P4 }1 iSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
% O% R1 Y: @# Q6 @) d# z, g+ Cboolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Set Part = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Filename = Part.GetPathName()
No = Len(Filename)
2 c6 E; Z  G( h% {8 T. [, L% D4 Y7 {6 IFilename = Left(Filename, No - 7)
* @! g7 @& v& I( s1 p3 x/ Q
0 j. u* y. R4 e6 J: K6 }3 e$ P$ }/ ~Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
+ g$ [# C- T8 S, R8 {Set Part = swApp.ActiveDoc
+ r- e) r- e* ~- z/ cDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
/ _4 i- b& z- C" J& S9 \; M. xmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
) C) S/ ?, D) ~myModelView.FrameState = swWindowState_e.swWindowMaximized
/ c& l! j. Y) i3 V+ }Set Part = swApp.ActiveDoc
) I3 A0 i$ u9 k" vSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub

冷月梧桐

矯情，有個詞叫“快捷鍵”，操作：你把”從零件/裝配體到工程圖“設置一個快捷鍵，比如Ctrl+1。
* D; P) G1 ]1 r2 `! t! T; d& N使用方法：你點中零件，按快捷鍵就好了

zhufeng_hgp

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

czq001

好東西 學習一下

防彈蝸牛

零件和工程圖并不是一一對應的
8 N% |! r1 u/ @; O. Z, f2 K為啥，有配置，有出圖的特殊需要
5 @$ ^5 D" j3 J& e/ g& G! M  ZA零件可以對應工程圖B，C，D。。。
! t3 D' [! `: u3 h
所以，我覺得這個需求就不成立。。。

遠祥

感謝樓主分享，學習了

1142

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

7 @5 Y" \/ g0 p* e, G. i. E% z你好，請問你這個是從裝配體選擇零件，然后打開工程圖的嗎？如果是可以的也幫我發(fā)一下吧,謝謝！1142163586@qq.com
; B) m& }; y3 @! Z  O! P4 _

qiushui1688

已學習，多謝！