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

arter_2006

各位大侠:
     想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是：
- W4 K1 ^, D: J, J, A6 J1、报错；
2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。
4 ~0 C0 g. Z/ H- f" \
0 M/ _0 C6 A% K$ N6 g+ \哪位高手能否指点下该如何修改这个宏？非常感谢！
* a2 x( i: m- W4 u$ h

arter_2006

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
4 k3 E$ U& X# NDim swApp As Object
6 W- [2 \3 y3 r+ X
6 u& d( ]. t! _7 [9 t8 bDim Part As Object
0 b# n. c& i. H7 V/ m2 {) TDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
& h# n1 @1 l8 r2 w! x/ T
Sub main()
. C/ [2 o% A# @: R/ j$ B5 i
Set swApp = Application.SldWorks

0 u: k+ |2 x/ X4 o9 i7 X% dSet Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
9 ^! l# @5 A2 J& U9 j7 ^: _2 hSet 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)
- i4 c0 i. \4 E1 [$ V6 t! m
: \" ~& e7 E2 F" e: s5 X' Open
5 c6 ~4 X0 q% V8 m1 BSet Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
Set swDrawing = Part
% `2 X6 g+ [" C* VSet Part = swApp.ActiveDoc
+ E" U) O' V" I" VDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
+ }  d6 I  V3 c5 o! Y2 |4 n( I' QmyModelView.FrameTop = 0
. U* [8 Z. A! ZSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
' t* d+ |) f5 C8 {, HswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
. M3 Z5 C5 O! B" T: eSet Part = swApp.ActiveDoc
/ l/ `3 a0 y* C, i
) @' y+ g; q0 S$ z- q7 x7 n' Redraw
4 u( ?" |/ v) U: RPart.GraphicsRedraw2
Set myModelView = Part.ActiveView
/ D$ k9 K, S" ]7 [! w( O. V2 F  vmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
End Sub
2 `2 n! i- n/ H* T8 r8 T. }+ X6 E

arter_2006

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
Dim swApp As Object
0 @9 f' p( X- Z$ c3 X" D$ m, RDim Part As Object
" H. ~; F: W9 x5 y7 W- `9 yDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Filename As String
6 G, p: g3 V- A9 DDim No As Integer
8 B* M) l, Z0 ]) }Dim Title As String

8 `! L8 e7 e, |# n& m6 ^: @0 s
/ ]1 }5 w$ h/ u2 ~Sub main()
' Z% x) \  q- R  L6 h
- ]  P! H( K1 u& _Set swApp = Application.SldWorks
5 G' K2 @, E& p+ {3 PSet Part = swApp.ActiveDoc
9 _. j4 L' S1 O6 e8 }boolstatus = 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)
" y% O/ l* s7 N8 XFilename = Part.GetPathName()
' J% Q( j& q% d5 f' N2 {No = Len(Filename)
9 x1 H& e6 e) r$ X& OFilename = Left(Filename, No - 7)

- L6 K) [- \# ]4 A" D: u# y% USet Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
2 B$ r/ X. c( U" e* zSet Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
! E# _, w/ K1 q8 C7 tmyModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
2 r. z* `5 b3 ~2 E5 c4 ]Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
" ~! W  N' K# U/ e2 N: I" u" NmyModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub

冷月梧桐

矫情，有个词叫“快捷键”，操作：你把”从零件/装配体到工程图“设置一个快捷键，比如Ctrl+1。
5 i" v+ T. ~5 u' U1 T( o2 t使用方法：你点中零件，按快捷键就好了
% [( J) }0 V9 n" c" K

zhufeng_hgp

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

czq001

好东西 学习一下

防弹蜗牛

零件和工程图并不是一一对应的
, ~/ d1 ?3 G5 R为啥，有配置，有出图的特殊需要
, Y" o6 e) w4 x. h/ {5 vA零件可以对应工程图B，C，D。。。
1 G. A/ d3 s  }' l: ^
4 w6 t/ X, w+ ?! F7 n" l所以，我觉得这个需求就不成立。。。

远祥

感谢楼主分享，学习了

1142

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

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

qiushui1688

已学习，多谢！