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

caption_cn · 发表于 2024-12-5 14:42:32

经典图书

先上一段宏，执行效果是  装配体下隐藏所有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 · 发表于 2024-12-5 14:43:45

找菜单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 · 发表于 2024-12-5 14:44:57

经典图书

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

caption_cn · 发表于 2024-12-5 15:13:27

搜这个

Microsoft Spy++ 14.0.22129.1 绿色版

odayuji · 发表于 2024-12-5 16:36:51

经典案例图书

很不错，顶一下！

yni621 · 发表于 2024-12-5 16:42:23

感谢楼主分享，很不错！

834556677 · 发表于 2024-12-5 17:00:15

经典案例图书

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

sunny_8848 · 发表于 2024-12-5 18:12:56

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位系统要改写才行

葛特曼 · 发表于 2024-12-7 14:22:35

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

gfzms2590 · 发表于 2024-12-7 16:16:58

经典图书

感谢楼主分享，很不错！

caption_cn · 发表于 2024-12-7 21:24:55

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

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

ghf9904 · 发表于 2024-12-22 09:29:21

学习了--但是没学会

假婆1 · 发表于 2024-12-25 13:07:40

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

葛特曼 · 发表于 2024-12-25 20:43:08

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

假婆1 · 发表于 2024-12-28 15:01:26

加入QQ群
参与讨论和学习

或扫描二维码加入

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

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

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

董东咚 · 发表于 2024-12-30 10:14:03

经典案例图书

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

hdgd501 · 发表于 2024-12-30 12:45:56

加入QQ群
参与讨论和学习

或扫描二维码加入

活到老学到老！

3869 · 发表于 2025-2-27 12:48:11

经典案例图书

感谢楼主分享，很不错！

cwzjd123 · 发表于 2025-6-23 22:11:46

大神请教一下，SW2018能实现这个功能不？我自己尝试了一下没成功，没学会。

		自动登录	找回密码
密码			立即注册

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

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献