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

iCAx开思网

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

[分享] 宏例子: 打開指定目錄逐一處理所有零件的瑣事

[复制链接]
跳转到指定楼层
1
发表于 2014-9-23 13:17:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
本帖最后由 Francis 于 2014-9-24 23:10 编辑

僅供參考:
  1. Sub Test()
  2. Set swApp = Application.SldWorks
  3. PartPath = "D:\Project" '設定目錄
  4. PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
  5. Do Until PartFileName = "" '直至搜尋到空值
  6.     Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
  7.     '加入所需語句
  8.     '.
  9.     '.
  10.     '.
  11.     '.
  12.     Part.Save '保存
  13.     swApp.CloseDoc (PartFileName) '關閉零件
  14.     PartFileName = Dir '搜尋下一個零件檔案名稱
  15. Loop '循環搜尋
  16. End Sub
复制代码

评分

参与人数 2技术 +2 贡献 +1 收起 理由
gg555gg555 + 1 超给力!
gt.adan + 2 很给力!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏27 分享淘帖 赞一下!赞一下!
推荐
 楼主| 发表于 2014-11-18 23:47:42 | 只看该作者

本帖子中包含更多资源

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

x

评分

参与人数 1技术 +2 贡献 +10 收起 理由
gt.adan + 2 + 10 很给力!

查看全部评分

推荐
发表于 2014-11-20 12:24:05 | 只看该作者

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

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

x

评分

参与人数 1贡献 +10 收起 理由
wutong490 + 10 赞一个!

查看全部评分

4
 楼主| 发表于 2014-9-23 13:33:15 | 只看该作者

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

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

x
5
发表于 2014-9-23 15:09:38 | 只看该作者

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

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

x

评分

参与人数 1技术 +1 收起 理由
Francis + 1 赞一个!

查看全部评分

6
发表于 2014-9-24 08:09:31 | 只看该作者

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

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

x
7
 楼主| 发表于 2014-9-25 01:18:08 | 只看该作者

本帖子中包含更多资源

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

x

评分

参与人数 1技术 +2 贡献 +10 收起 理由
gt.adan + 2 + 10 神马都是浮云

查看全部评分

8
 楼主| 发表于 2014-9-25 01:33:14 | 只看该作者

本帖子中包含更多资源

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

x
9
发表于 2014-9-27 11:14:48 | 只看该作者

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

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

x
10
 楼主| 发表于 2014-9-27 23:00:03 | 只看该作者

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

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

x
11
发表于 2014-11-3 15:12:16 | 只看该作者

本帖子中包含更多资源

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

x
12
 楼主| 发表于 2014-11-3 15:53:51 | 只看该作者

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

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

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

本版积分规则

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

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

GMT+8, 2024-11-22 08:19 , Processed in 0.032567 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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