iCAx开思网

标题: 宏-用其它应用程序打开同路径同名其它类型文档 [打印本页]

作者: pyczt 时间: 2016-5-24 12:16
标题: 宏-用其它应用程序打开同路径同名其它类型文档
以前分享过在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的微博

作者: xiabulai 时间: 2016-5-24 17:16
谢谢楼主

作者: 口风琴 时间: 2016-5-25 17:20
谢楼主分享

作者: zctao1966 时间: 2016-6-16 21:27
谢谢分享

作者: Trouble12138 时间: 2018-11-25 19:32
谢谢，不知道如何使用

欢迎光临 iCAx开思网 (https://www.icax.org/)