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

arter_2006

各位大侠:
     想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是：
1、报错；
0 s. g/ H  M, i* l% D$ D2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。

# S1 L* J" i' @$ c3 f7 f哪位高手能否指点下该如何修改这个宏？非常感谢！
8 j, Q  T; O* R! u. n0 A

arter_2006

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
" W8 F6 x, X: B& E- P- J再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
' y# \$ R; o! S& nDim swApp As Object

6 V' c, i, D/ }7 N& WDim Part As Object
9 N5 T6 g& i1 r/ X' Q) H" ~Dim boolstatus As Boolean
* h5 T0 O) @2 g! TDim longstatus As Long, longwarnings As Long
; k6 u" M$ Y. ]" q
Sub main()
& t4 V+ g% H- [* V; V: z- T5 c, t
" F/ Y6 ~! }3 p; e# `9 q" q$ pSet swApp = Application.SldWorks
8 Y9 v7 c& _& [# `+ @
7 x8 z5 P) Z# ]3 R; [0 V, CSet Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
" m2 @' C2 C% u$ ~: [2 f2 jDim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
$ f+ Y3 e9 a( ]4 bSet 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)
( F& _0 L# a8 PDim swDrawing As DrawingDoc
1 d2 m/ [7 _" B2 i/ v% @9 XSet swDrawing = Part
Set Part = swApp.ActiveDoc
Dim myModelView As Object
& U( |5 q4 ~8 {# ^9 f: V. p, wSet myModelView = Part.ActiveView
5 y. ]5 ~& [6 K/ q6 D# ZmyModelView.FrameLeft = 0
myModelView.FrameTop = 0
% r- l& g- l4 F3 I* A9 w4 R1 [: kSet myModelView = Part.ActiveView
- j7 `% c* }" R" ^# x4 V5 w! `. pmyModelView.FrameState = swWindowState_e.swWindowMaximized
0 \- Y# S& @" P& |+ [2 l4 i, oswApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc

' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
, O# a# _- \% FSet CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
9 V) ^  I! ~4 }1 U! _3 f1 tEnd Sub

arter_2006

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
% {3 k4 k7 w3 TDim swApp As Object
# Q- q, y$ t4 xDim Part As Object
Dim boolstatus As Boolean
) Q6 Q0 W) J0 ]  U# ^: Q+ jDim longstatus As Long, longwarnings As Long
# m: h: R$ C7 Q4 W$ ^7 {: XDim Filename As String
Dim No As Integer
1 Y& o( L7 p5 L0 J$ I7 vDim Title As String


Sub main()

" H. D5 V; `- e5 n& B% n! ^Set swApp = Application.SldWorks
: ?9 |7 V# q0 ?* x5 l& u+ c$ |Set Part = swApp.ActiveDoc
  y% q3 H# E. P/ F( sboolstatus = 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()
( F+ n# L% k" DNo = Len(Filename)
5 N, X' U4 F3 A7 ]Filename = Left(Filename, No - 7)
- e: I4 Q  l) `! M! s
1 l/ c- l. Z+ z/ L) h6 MSet Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
0 ]- y( K2 W; v  Y0 ^# t$ kSet Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
3 G4 I5 ?% V0 A+ }Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub

冷月梧桐

矫情，有个词叫“快捷键”，操作：你把”从零件/装配体到工程图“设置一个快捷键，比如Ctrl+1。
使用方法：你点中零件，按快捷键就好了
) k6 d) q: Y# [( s( U" ?

zhufeng_hgp

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

czq001

好东西 学习一下

防弹蜗牛

零件和工程图并不是一一对应的
: r) U# ?; v( A( Y( j% W为啥，有配置，有出图的特殊需要
3 ]- i9 V  c8 D# uA零件可以对应工程图B，C，D。。。

所以，我觉得这个需求就不成立。。。

远祥

感谢楼主分享，学习了

1142

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

% L4 ~5 x4 \! Q  m% X你好，请问你这个是从装配体选择零件，然后打开工程图的吗？如果是可以的也帮我发一下吧,谢谢！1142163586@qq.com
8 w) t! C0 }. G/ X7 x7 Z

qiushui1688

已学习，多谢！