|
以前分享过在SW中直接打开计算器的宏,由于我的工程图用CAXA的,今天编个直接打开同路径同名EXB文件的宏,与大家分享.
语句如下,欢迎大家改编分享
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim sPathName As String
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc '设定当前SW文档
sPathName = swModel.GetPathName '读取当前SW文档名(含路径)
sPathName = Left(sPathName, Len(sPathName) - 6) + "EXB" '提取当前SW文件名加后缀名
Shell "C:\Program Files\CAXA\CAXAEB\bin\Eb.exe " + sPathName, vbNormalFocus '打开指定应用程序及上句文档,改编时注意EXE后面有一个空格,作为应用程序和文档分隔符
End Sub
该贴已经同步到 pyczt的微博 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|