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

arter_2006

各位大侠:
     想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是：
1、报错；
8 [" ]8 E* b( }6 o) c2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。

1 p- A) |4 M+ ]( N# y( y9 l哪位高手能否指点下该如何修改这个宏？非常感谢！

arter_2006

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
" z) M9 z; d6 n) O$ ?再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
4 T4 U/ d/ _! f9 BDim swApp As Object

" M$ `8 w: M) t$ D: yDim Part As Object
. n  l5 ?$ w. j4 q# I  H8 xDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
+ x: D7 t+ g+ j9 {$ V
" v1 ^$ ^& S: K4 \  i7 g9 N5 uSub main()

  O* Q4 j9 B4 |( cSet swApp = Application.SldWorks
) T2 N- B8 H9 G9 a
Set Part = swApp.ActiveDoc
3 d: R; p3 N, ]' U9 ?2 NDim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
! z4 A% Y* T  {. }boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
6 I% W) Y$ I% ~3 u  h
' Open
5 Z  X, z8 k& BSet Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
Set swDrawing = Part
4 M- r9 z1 L$ lSet Part = swApp.ActiveDoc
! M9 x6 z" |0 J9 @3 R; |Dim myModelView As Object
5 \" Y8 c) U4 fSet myModelView = Part.ActiveView
0 Q8 a, t0 @+ LmyModelView.FrameLeft = 0
0 G; m9 l" m- ZmyModelView.FrameTop = 0
: E% R/ X2 q# G( xSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc
4 \0 A& D1 {9 o( b
' Redraw
- h  y+ v8 _4 VPart.GraphicsRedraw2
( o( w! z; c$ }, C$ GSet myModelView = Part.ActiveView
: w4 L% {  ^; G. g$ m0 K+ jmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
& l1 m2 ^! a% L0 _3 Q' oEnd Sub

arter_2006

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
Dim swApp As Object
, H# h, o) D6 T. C: T' yDim Part As Object
Dim boolstatus As Boolean
/ ]: ]* ^( R2 Y7 g. dDim longstatus As Long, longwarnings As Long
Dim Filename As String
3 x) s" `* P% c$ V/ kDim No As Integer
/ y+ u4 `2 F( ?' zDim Title As String


Sub main()

Set swApp = Application.SldWorks
- v' @+ m, e. ~Set Part = swApp.ActiveDoc
8 \$ N: [, p3 lboolstatus = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
# D7 k; f3 e. d' K, R' ESet Part = Part.Extension.SelectByID2("Part", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Filename = Part.GetPathName()
No = Len(Filename)
! `7 J% p- l9 U, v  d5 oFilename = Left(Filename, No - 7)
9 k  {  E& p) u. Z- F/ [( e
: b6 l" `  q) h  l; w3 uSet Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
8 g8 m. K# Q! m7 P! HSet Part = swApp.ActiveDoc
Dim myModelView As Object
4 x4 u  p6 ^; l. f5 rSet myModelView = Part.ActiveView
" T( K& V" P/ x9 q! U, l) jmyModelView.FrameLeft = 0
" ?% [" L' f) L3 \+ I) m' w1 KmyModelView.FrameTop = 0
, x# B) \2 J  A5 j4 WSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
1 a- p3 o7 J4 G6 D: rSet myModelView = Part.ActiveView
9 e! i- P* o+ WmyModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub

冷月梧桐

矫情，有个词叫“快捷键”，操作：你把”从零件/装配体到工程图“设置一个快捷键，比如Ctrl+1。
使用方法：你点中零件，按快捷键就好了

zhufeng_hgp

这个功能正如2楼说得那样，把打开工程图这个命令设置成快捷键就能实现的

czq001

好东西 学习一下

防弹蜗牛

零件和工程图并不是一一对应的
; j8 R, s/ h6 i7 J- b为啥，有配置，有出图的特殊需要
+ m& ^' F: u1 E1 `7 g5 ?A零件可以对应工程图B，C，D。。。
0 x! s4 C3 j/ v0 _: }3 j: T
$ j% x5 f% z" p1 N所以，我觉得这个需求就不成立。。。

远祥

感谢楼主分享，学习了

1142

zhufeng_hgp 发表于 2022-1-26 23:08
这个功能正如2楼说得那样，把打开工程图这个命令设置成快捷键就能实现的

你好，请问你这个是从装配体选择零件，然后打开工程图的吗？如果是可以的也帮我发一下吧,谢谢！1142163586@qq.com

qiushui1688

已学习，多谢！