设为首页收藏本站
开启辅助访问 切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步，快速开始

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 宏-装配树中打开选中文件所在的文件夹
12下一页
返回列表 发新帖
查看: 5773|回复: 23
打印 上一主题 下一主题

宏-装配树中打开选中文件所在的文件夹

  [复制链接]
seaboy

7

主题

27

帖子

38

金币

天使

Rank: 2Rank: 2

积分
120
QQ
跳转到指定楼层
楼主
发表于 2017-7-6 08:33:51 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

   经典图书
本宏功能：在装配树中打开选中文件所在的文件夹
编码SOLIDWORKS版本：SolidWorks2013
程序简陋，请高手完善、修正。
谢谢！


宏文件源码如下：
OpenFileFolder.rar (12.01 KB, 下载次数: 250)
源码如下：
    '------------------------------------------------------------------------------'OpenFileFolder'OpenFileFolder.swp-byLunkay,Copyright2017/6/29'Contact:[emailprotected](Lunkay)'功能：'打开所选文件所在的文件夹，并选中目标。''使用方法：'1、不选中任何文件，打开程序'2、选中装配体中的子件，打开程序'-------------------------------------------------------------------------------#IfVBA7ThenPrivateDeclarePtrSafeFunctionGetKeyboardStateLib"user32"(pbKeyStateAsByte)AsLong#ElsePrivateDeclareFunctionGetKeyboardStateLib"user32"(pbKeyStateAsByte)AsLong#EndIfDimswAppAsSldWorks.SldWorksDimswModelAsSldWorks.ModelDoc2DimswCompAsSldWorks.Component2DimswCompModelAsSldWorks.ModelDoc2DimsCompNameAsStringDimsMgrAsSldWorks.SelectionMgrDimsTypAsSwConst.swSelectType_eDimiReplyAsStringDimswFrameAsSldWorks.Frame'declarestatusbarobjectDimnRetvalAsLongDimbRetAsBooleanDimnErrorsAsLongDimnWarningsAsLongDimmlngSWFileTypeAsLongDimretAsIntegerDimFilePathAsStringDimmlAsStringDimkeys(0To255)AsByteConstMINSELECTIONS=1Submain()SetswApp=Application.SldWorks'getcurrentmodelSetswModel=swApp.ActiveDoc'checkifadocumentisactiveIfswModelIsNothingThenMsgBox"请先打开一个需要打开其所在位置的文件！",vbCritical,"打开文件所在位置ByLunkay"EndEndIfIfswModel.GetType=2ThenSetsMgr=swModel.SelectionManager'swModel.ClearSelection2True'MsgBox"请选择要打开位置的文件",vbCritical,"打开文件所在位置ByLunkay"IfsMgr.GetSelectedObjectCount=1OrsMgr.GetSelectedObjectCount=0ThenGetKeyboardStatekeys(0)Ifkeys(27)>127ThenEndGoToAAElseMsgBox"请选择要打开位置的文件",vbCritical,"打开文件所在位置ByLunkay"EndIfWhilesMgr.GetSelectedObjectCount127ThenEndWendAA:SetswComp=sMgr.GetSelectedObjectsComponent2(1)IfswCompIsNothingThensCompName=swModel.GetPathNameElsesCompName=swComp.GetPathNameEndIfret=Shell("explorer.exe/e,/select,"&sCompName,vbNormalFocus)swModel.ClearSelection2TrueElse'FilePath=Left(swModel.GetPathName,InStrRev(swModel.GetPathName,""))'分解路径ret=Shell("explorer.exe/e,/select,"&swModel.GetPathName,vbNormalFocus)EndIfswModel.ClearSelection2True'swFrame.SetStatusBarText"Done"'feeddonemessagetostatusbarEndEndSub

复制代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏4 转播转播 分享教程|习题|模型|技巧 点赞点赞1 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

congfeng

5

主题

28

帖子

33

金币

天使

Rank: 2Rank: 2

积分
105
QQ
推荐
发表于 2017-7-7 09:37:02 | 只看该作者
好像有现成功能呀！


SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 1 反对 0

使用道具 举报

小明521

5

主题

20

帖子

55

金币

天使

Rank: 2Rank: 2

积分
114
QQ
板凳
发表于 2017-7-6 16:06:57 | 只看该作者

   经典图书
谢谢分享，学习一下。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

285240263

0

主题

36

帖子

188

金币

堂主

Rank: 4

积分
515

最佳新人活跃会员宣传达人
地板
发表于 2020-10-30 22:47:19 | 只看该作者
下载下来看看，不知道会不会用
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

yni621

10

主题

462

帖子

899

金币

传奇

Rank: 8Rank: 8

积分
5072

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
5#
发表于 2020-11-3 14:12:58 | 只看该作者

   经典案例图书
活到老学到老！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

gzsod

2

主题

198

帖子

81

金币

堂主

Rank: 4

积分
681

最佳新人活跃会员热心会员宣传达人灌水之王
6#
发表于 2020-12-1 10:50:49 | 只看该作者
有些实用  下载收藏
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

PPTVX33

0

主题

24

帖子

151

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
330

最佳新人活跃会员宣传达人
7#
发表于 2021-1-6 11:07:16 | 只看该作者

   经典案例图书
谢谢大佬分享，很实用！！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

8#
发表于 2021-5-30 17:07:36 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

左衣001

5

主题

510

帖子

519

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2052

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
9#
发表于 2021-5-31 20:48:55 | 只看该作者
谢谢分享，学习一下
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

ufong13

2

主题

79

帖子

59

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
375

最佳新人活跃会员热心会员宣传达人
10#
发表于 2021-10-29 23:52:33 | 只看该作者

   经典图书
楼主太有才了，膜拜中……
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

408

帖子

51

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1836

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
11#
发表于 2021-12-4 13:14:25 | 只看该作者
努力学习中
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

408

帖子

51

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1836

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
12#
发表于 2021-12-4 13:19:32 | 只看该作者
努力学习中
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

408

帖子

51

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1836

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
13#
发表于 2021-12-4 13:25:22 | 只看该作者
努力学习中
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

lqn555

0

主题

31

帖子

56

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
223

最佳新人活跃会员宣传达人
14#
发表于 2022-8-8 15:14:38 | 只看该作者
楼主太有才了，膜拜中……
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

PPTVX33

0

主题

24

帖子

151

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
330

最佳新人活跃会员宣传达人
15#
发表于 2022-10-17 14:35:06 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

报错了： 运行错误6，溢出

未命名1665988466.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

184651474

2

主题

305

帖子

83

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1106

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
16#
发表于 2022-10-18 13:49:36 | 只看该作者

   经典案例图书
SW机械工程师网，找到组织了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

呕吐曼

1

主题

98

帖子

149

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
371

最佳新人活跃会员热心会员宣传达人
17#
发表于 2022-11-2 18:23:53 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

学到老活到老！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

geliang112055

3

主题

471

帖子

467

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1637

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
18#
发表于 2023-3-1 15:48:37 | 只看该作者

   经典案例图书
SW机械工程师网，找到组织了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

yyy924

0

主题

139

帖子

46

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
402

最佳新人活跃会员热心会员宣传达人灌水之王
19#
发表于 2023-5-31 14:25:26 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

bjgtlzh

0

主题

44

帖子

6

金币

天使

Rank: 2Rank: 2

积分
148

最佳新人活跃会员宣传达人
20#
发表于 2023-5-31 16:01:46 | 只看该作者
楼主太有才了，膜拜中……
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2024-9-24 14:28 , Processed in 0.364380 second(s), 25 queries , Memcache On.

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

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