宏-用其它应用程序打开同路径同名其它类型文档

pyczt

以前分享过在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

口风琴

zctao1966

Trouble12138