非常好用的宏

风中飞华 · 发表于 2023-12-6 17:59:17

经典图书

非常好用的宏文件，用起来很顺手

风中飞华 · 发表于 2023-12-6 18:00:30

很不错，顶一下！

风中飞华 · 发表于 2023-12-6 18:00:36

经典图书

很不错，顶一下！

烦心天使 · 发表于 2023-12-6 18:09:28

没图，不知道是什么！

wjbg2019 · 发表于 2023-12-6 20:44:39

经典案例图书

' ******************************************************************************
' Macro recorded on 14/04/13 by Dave Y
' Mechanical Advantage Designs
' ******************************************************************************
' This program will load an ".EXE" program
' Condition - The EXE must have the same name as this FILE
' e.g. SWBP.SWP & SW_BP.EXE

Option Explicit
Dim SWAPP As Object
Dim retval As Variant
Dim EXEC_FILE As String
Sub main()
Set SWAPP = Application.SldWorks
'EXEC_FILE = CreateObject("SldWorks.Application").GetCurrentMacroPathName
EXEC_FILE = SWAPP.GetCurrentMacroPathName
EXEC_FILE = Left(EXEC_FILE, Len(EXEC_FILE) - 3) + "EXE "

If Dir(EXEC_FILE) <> "" Then
retval = Shell(Chr$(34) & EXEC_FILE & Chr$(34), 1)
Else
MsgBox ("The File : - " & EXEC_FILE & " was NOT found !! ")
End If

End Sub 缺少参考文件“EXEC_FILE ”，请楼主尽快补上！

Tony001 · 发表于 2023-12-16 16:31:24

是什么功能的宏

Tony001 · 发表于 2023-12-16 16:34:35

经典案例图书

下载了也不知道是干什么用的。

q498141258 · 发表于 2023-12-16 19:45:54

感谢楼主分享！！！！！

q498141258 · 发表于 2023-12-16 19:46:49

很不错！终于找到组织了

samsun288 · 发表于 2023-12-16 20:12:38

经典图书

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

acaihan · 发表于 2024-1-3 11:31:23

感谢楼主分享，很不错！

wxn153 · 发表于 2024-1-3 12:01:18

没图，不知道是什么！

ryzzgg · 发表于 2024-1-11 20:35:11

学习学习再学习

ljljlj15 · 发表于 2024-1-11 21:00:55

先顶一下吧

673630976 · 发表于 2024-1-13 09:28:15

加入QQ群
参与讨论和学习

或扫描二维码加入

先顶下没金币了

mrzhonghb · 发表于 2024-1-13 21:46:33

经典案例图书

具体有什么功能

1215956038 · 发表于 2024-3-6 20:17:14

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

鸣沙山 · 发表于 2024-3-7 14:39:17

经典案例图书

先顶下没金币了

luwansong125 · 发表于 2024-4-17 14:09:57

是想骗金币吗

atree0083 · 发表于 2024-4-27 21:45:14

没图，不知道是什么！

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

非常好用的宏

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献