找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 6961|回复: 4
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1
发表于 2016-5-24 12:16:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
以前分享过在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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 赞一下!赞一下!
2
发表于 2016-5-24 17:16:04 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
3
发表于 2016-5-25 17:20:58 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
4
发表于 2016-6-16 21:27:15 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
5
发表于 2018-11-25 19:32:12 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-29 09:32 , Processed in 0.025356 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表