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

arter_2006 · 發(fā)表于 2022-1-26 18:12:06

各位大俠:
想錄個(gè)宏,、設(shè)置成快捷鍵,，實(shí)現(xiàn)無(wú)論在模型窗口選中零件的面,、或在左側(cè)區(qū)域（commandmanager區(qū)域）選中零件或裝配體,，再按快捷鍵,，即可打開相應(yīng)的工程圖。實(shí)現(xiàn)此功能需先做個(gè)宏,�,？墒遣惶晒Α栴}是：
1,、報(bào)錯(cuò),；
2、宏里指定了零部件的名稱,，導(dǎo)致只能打開創(chuàng)建宏時(shí)的零件工程圖,。

哪位高手能否指點(diǎn)下該如何修改這個(gè)宏,？非常感謝！

arter_2006 · 發(fā)表于 2022-1-26 19:14:05

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

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set 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)

' Open
Set Part = swApp.OpenDoc6("C:\Users\COMPASSION\Desktop\宏\B111 PLT.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As DrawingDoc
Set swDrawing = Part
Set 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
swApp.ActivateDoc2 "B111 PLT - 圖紙1", False, longstatus
Set Part = swApp.ActiveDoc

' Redraw
Part.GraphicsRedraw2
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
End Sub

arter_2006 · 發(fā)表于 2022-1-26 19:16:55

這個(gè)是SW2016的版本的宏,，就差一步就成功了,，就是如何從被選的零部件獲得文件名。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Filename As String
Dim No As Integer
Dim Title As String

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()
No = Len(Filename)
Filename = Left(Filename, No - 7)

Set Part = swApp.OpenDoc6(Filename & ".SLDDRW", 3, 0, "", longstatus, longwarnings)
Set 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
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub

冷月梧桐 · 發(fā)表于 2022-1-26 22:21:22

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

zhufeng_hgp · 發(fā)表于 2022-1-26 23:08:57

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

czq001 · 發(fā)表于 2022-1-27 08:48:22

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

防彈蝸牛 · 發(fā)表于 2022-1-28 09:21:48

零件和工程圖并不是一一對(duì)應(yīng)的
為啥,，有配置,，有出圖的特殊需要
A零件可以對(duì)應(yīng)工程圖B，C,，D,。。,。

所以,，我覺得這個(gè)需求就不成立。,。,。

遠(yuǎn)祥 · 發(fā)表于 2022-1-28 21:02:17

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

1142 · 發(fā)表于 2022-11-2 11:26:27

zhufeng_hgp 發(fā)表于 2022-1-26 23:085 L8 ?' f+ O! v6 K/ _
這個(gè)功能正如2樓說(shuō)得那樣，把打開工程圖這個(gè)命令設(shè)置成快捷鍵就能實(shí)現(xiàn)的

你好,，請(qǐng)問你這個(gè)是從裝配體選擇零件,，然后打開工程圖的嗎？如果是可以的也幫我發(fā)一下吧,謝謝,！[email protected]

qiushui1688 · 發(fā)表于 2022-11-3 08:49:26

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

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)會(huì)員

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

本帖子中包含更多資源

本帖子中包含更多資源

本帖子中包含更多資源

點(diǎn)評(píng)

本帖子中包含更多資源

點(diǎn)評(píng)

點(diǎn)評(píng)