|
|
经典图书
感觉它就是执行了菜单命令。
工具-》对其-》自动排列
我现在想执行另一个菜单命令
工具-》零部件选择-》选取Toolbox
我不知道怎么改。
感觉“51772“就是对应这命令的，但是我在网上查不到任何对应资料
那位有？提供一下呗，谢谢
#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, 51772
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
|
|
[复制链接]
楼主
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
转播
教程|习题|模型|技巧
点赞
拍砖
发表于 2024-11-29 08:58:54
鲁公网安备 37028502190335号