宏执行SW自带菜单命令的方法-解决篇

caption_cn

   经典图书

先上一段宏，执行效果是  装配体下隐藏所有ToolBox 零件。
这段宏只是简单的执行了两个SW自带的菜单命令。
仅在2024SP5上测试通过

审核通过了再写找菜单ID的 方法；）



#If VBA7 Then
     Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#Else
     Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If

Dim swApp As SldWorks.SldWorks

Sub main()

    Set swApp = Application.SldWorks

    RunWmCommand swApp, 59533

    RunWmCommand swApp, 32998

End Sub

Sub RunWmCommand(swApp As SldWorks.SldWorks, cmd As Long)

    Const WM_COMMAND As Long = &H111

    Dim swFrame As SldWorks.Frame

    Set swFrame = swApp.Frame

    SendMessage swFrame.GetHWnd(), WM_COMMAND, cmd, 0

End Sub

caption_cn

找菜单ID是关键，这里再次感谢“384432485”提供的思路

查找方法就是使用Spy++  这个监听小工具。
有2点需要说一下，Spy++是个“老”程序了，版本比较多，我下了4、5个才找到这个好用的。
另一点是，我之前设置了SW按管理员模型启动，这可能导致监听不到或冲 突。


早些时候的求助帖在这里
https://www.swbbsc.com/thread-380734-1-1.html


Spy++  使用方法
https://blog.csdn.net/zggzgw/article/details/103300579


Spy++ 下载地址贴不上来：（

caption_cn

   经典图书

3楼暂留3楼暂留3楼暂留

caption_cn

搜这个

Microsoft Spy++ 14.0.22129.1 绿色版

odayuji

   经典案例图书

很不错，顶一下！

yni621

感谢楼主分享，很不错！

834556677

   经典案例图书

学习了--但是没学会- - -

sunny_8848

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long请教楼主，这句飘红，是不是64位系统要改写才行

葛特曼

学习了--但是没学会- - -

gfzms2590

   经典图书

感谢楼主分享，很不错！

caption_cn

sunny_8848 发表于 2024-12-5 18:12
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wM ...

不知道，这段本就是抄来的。
只是现在应该没谁用32位了吧，我的也是64位系统，所以应该不要改吧

ghf9904

学习了--但是没学会

假婆1

就是发送消息号，我一直在用，很方便。

葛特曼

就是发送消息号，我一直在用，很方便。

假婆1

加入QQ群
参与讨论和学习

或扫描二维码加入

caption_cn 发表于 2024-12-5 14:43
找菜单ID是关键，这里再次感谢“384432485”提供的思路

查找方法就是使用Spy++  这个监听小 ...

分享我在用的软件吧，简单快捷，打开spy.exe就行了

董东咚

   经典案例图书

SolidWorks机械工程师网，顶一下。

hdgd501

加入QQ群
参与讨论和学习

或扫描二维码加入

活到老学到老！

3869

   经典案例图书

感谢楼主分享，很不错！