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

arter_2006

各位大俠:
     想錄個宏,、設(shè)置成快捷鍵,，實現(xiàn)無論在模型窗口選中零件的面、或在左側(cè)區(qū)域（commandmanager區(qū)域）選中零件或裝配體,，再按快捷鍵,，即可打開相應(yīng)的工程圖。實現(xiàn)此功能需先做個宏,�,？墒遣惶�成��,。問題是：
4 D+ H2 Q% m+ r1、報錯,；
2,、宏里指定了零部件的名稱，導(dǎo)致只能打開創(chuàng)建宏時的零件工程圖,。
9 o- _# F# G& a1 j% I, |& g
$ |+ U9 F1 o. k, z! j( k哪位高手能否指點下該如何修改這個宏,？非常感謝,！
( A# Q0 |2 u0 P" F7 v$ V1 }+ ^

arter_2006

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

: X9 U8 A) t- d0 K" U  t3 d4 BDim Part As Object
7 a8 Y4 _+ c; q- Z5 ]Dim boolstatus As Boolean
( l% k  q4 e8 mDim longstatus As Long, longwarnings As Long
3 c# g* e& A3 o5 b
Sub main()

Set swApp = Application.SldWorks
4 L8 [1 U& L. K1 }5 x- e4 @: t
Set Part = swApp.ActiveDoc
' {2 P  o6 [" dDim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
9 r( P8 m3 @8 o, M+ JSet COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

5 O8 u4 u5 x3 a% }8 B; b& c+ l% p' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
. e' F: m' t% |8 _$ X2 G% PDim swDrawing As DrawingDoc
Set swDrawing = Part
, |: |* k% H. ]$ qSet Part = swApp.ActiveDoc
Dim myModelView As Object
4 ^5 ^/ e7 A. \$ M3 t# ySet myModelView = Part.ActiveView
myModelView.FrameLeft = 0
) t# a6 u, r1 z: _/ G0 G9 j. dmyModelView.FrameTop = 0
2 T7 `" @- _' g# O( r& E1 }9 YSet myModelView = Part.ActiveView
3 T' ], m% H; B5 U" @- c$ YmyModelView.FrameState = swWindowState_e.swWindowMaximized
7 x$ C: V% J5 M, }# c2 n1 r# iswApp.ActivateDoc2 "B111 PLT - 圖紙1", False, longstatus
7 q9 l. I& g5 r  I# ]  ^7 OSet Part = swApp.ActiveDoc
7 q. [' S! L& [7 T5 K
0 N1 E- H" a) `9 @0 R' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
* J" w7 \% ?* w: y# rmyModelView.FrameState = swWindowState_e.swWindowMaximized
" p9 ~; {/ p, M+ E% qSet CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
, m- Q0 Z0 f& y9 O2 ~4 }End Sub
) T( j/ T6 y4 m6 m

arter_2006

這個是SW2016的版本的宏,，就差一步就成功了，就是如何從被選的零部件獲得文件名,。
: q* h4 T7 Q1 I2 `8 W) EDim swApp As Object
" a& t8 V% R2 N6 r0 O6 h; kDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Filename As String
9 p# E, q* H& R( aDim No As Integer
Dim Title As String
. V8 A% j7 o1 K% y# \2 z% A

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
6 w. I6 ~! e+ g7 {% USet Part = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Filename = Part.GetPathName()
/ A  f: S/ i  V' `0 ZNo = Len(Filename)
Filename = Left(Filename, No - 7)

3 H* b+ {8 [+ c( m9 ?" DSet Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
# `1 z0 U2 X/ m5 q5 k! lSet Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
3 M" o* @' q" ^0 @# DmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
( p) J" D) W5 j8 d& e' z/ ~, LmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
" N/ s, z' I$ s2 V' W* dEnd Sub

冷月梧桐

矯情,，有個詞叫“快捷鍵”,，操作：你把”從零件/裝配體到工程圖“設(shè)置一個快捷鍵，比如Ctrl+1,。
使用方法：你點中零件,，按快捷鍵就好了

zhufeng_hgp

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

czq001

好東西 學(xué)習(xí)一下

防彈蝸牛

零件和工程圖并不是一一對應(yīng)的
) [+ x" M' \5 B: u! i% p為啥,，有配置,，有出圖的特殊需要
A零件可以對應(yīng)工程圖B，C,，D,。。,。

( {/ s; S) n5 y6 R所以,，我覺得這個需求就不成立。,。,。

遠(yuǎn)祥

感謝樓主分享,，學(xué)習(xí)了

1142

zhufeng_hgp 發(fā)表于 2022-1-26 23:08
0 v. g7 }) c2 p" t# ~$ t* f$ P這個功能正如2樓說得那樣，把打開工程圖這個命令設(shè)置成快捷鍵就能實現(xiàn)的

" b8 x7 f6 x6 o, R4 v3 m* [你好,，請問你這個是從裝配體選擇零件,，然后打開工程圖的嗎？如果是可以的也幫我發(fā)一下吧,謝謝,！[email protected]
& g7 L: H6 l6 @! u

qiushui1688

已學(xué)習(xí),，多謝！