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

arter_2006

各位大侠:
     想录个宏、设置成快捷键，实现无论在模型窗口选中零件的面、或在左侧区域（commandmanager区域）选中零件或装配体，再按快捷键，即可打开相应的工程图。实现此功能需先做个宏。可是不太成功。问题是：
9 }: c0 }! W1 t8 \9 b, ]1 }1、报错；
2、宏里指定了零部件的名称，导致只能打开创建宏时的零件工程图。
( ?. m/ @) q. U1 T+ s8 l* t7 \: n& k
哪位高手能否指点下该如何修改这个宏？非常感谢！
9 |$ o  t9 `  s! k. f/ ?  x4 J

arter_2006

改了一下，此附件不在报错，但是打开的是创建宏时的工程图，依然不行。
再改了一下，见下，启动宏没反应，也不报错，这个是SW2020的版本的宏
Dim swApp As Object
# ~& p* ]% U4 E  E  g6 j3 b
+ m: ^2 s& W) J0 EDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

; S/ d; o; j+ u) _$ |3 V. r7 H4 Y# DSet swApp = Application.SldWorks
/ w4 L0 ^+ A, s. j2 b" l
Set Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
* O! f2 v% ?1 U8 MDim CWAddinCallBackObj As Object
# o1 f$ ]* z* z. C- `' sSet CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
5 ?# q' I- @7 WSet COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
boolstatus = Part.Extension.SelectByID2("B111 PLT-1@B000  AAA", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
7 ~* I& Y+ M+ [  b, r& g, l
' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
# ^7 J3 r6 E" {# a8 j1 Q1 i/ zDim swDrawing As DrawingDoc
Set swDrawing = Part
0 B& Y& W/ g* [' [Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
1 |* {1 ?+ Q8 k: A( wmyModelView.FrameLeft = 0
myModelView.FrameTop = 0
# Q' Q+ [) }4 K/ A, m- u- N+ fSet myModelView = Part.ActiveView
7 `- N, v; q: }( {myModelView.FrameState = swWindowState_e.swWindowMaximized
2 E4 H4 {8 ]! u5 M; ^& q) ]swApp.ActivateDoc2 "B111 PLT - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc

0 o1 L& E/ ?) Q9 Z, o2 t' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
& R- L, j: a6 ^7 g0 D& p. QmyModelView.FrameState = swWindowState_e.swWindowMaximized
* ~! m+ w7 ~6 l  MSet CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
# I0 a3 i$ F  j! ]( C& }End Sub
' l& A* g6 b" A/ u9 v6 \' c

arter_2006

这个是SW2016的版本的宏，就差一步就成功了，就是如何从被选的零部件获得文件名。
Dim swApp As Object
Dim Part As Object
/ [3 b! I. S/ ?- A8 i% [. oDim boolstatus As Boolean
8 r0 I0 s4 T5 I' @! YDim longstatus As Long, longwarnings As Long
Dim Filename As String
/ X# Q9 Z( T/ U% c' b7 h( kDim No As Integer
Dim Title As String

' ?9 O9 r7 I! {3 M! D
Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
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)
Filename = Part.GetPathName()
( ?2 c) \* z5 F! ]/ I4 }4 D, hNo = Len(Filename)
1 O' R9 x3 s* G2 O  SFilename = Left(Filename, No - 7)
7 Q( \' e! f. W1 O
Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
5 w- Y+ z1 s4 XSet myModelView = Part.ActiveView
. \! H  ]0 ]! L$ ]myModelView.FrameLeft = 0
6 H  D: {# p' H9 W8 j. TmyModelView.FrameTop = 0
Set myModelView = Part.ActiveView
+ [9 f, f$ N5 t- N$ e) y7 AmyModelView.FrameState = swWindowState_e.swWindowMaximized
Set Part = swApp.ActiveDoc
; R! n( Z, F) w7 r: lSet myModelView = Part.ActiveView
, T! @( b% m4 H+ a9 D: l9 |myModelView.FrameState = swWindowState_e.swWindowMaximized
' Y# T3 v; e) i, q, B+ zEnd Sub

冷月梧桐

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

zhufeng_hgp

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

czq001

好东西 学习一下

防弹蜗牛

零件和工程图并不是一一对应的
为啥，有配置，有出图的特殊需要
) O8 Z' s5 Y$ VA零件可以对应工程图B，C，D。。。

  b' C$ h. r4 z$ u所以，我觉得这个需求就不成立。。。

远祥

感谢楼主分享，学习了

1142

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

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

qiushui1688

已学习，多谢！