设为首页收藏本站

开启辅助访问切换到宽版

好品数字

好品数字

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › W版遍历图号分离宏可不可以改为：图号+零件名+版本

发新帖

查看: 2591|回复: 13

上一主题

下一主题

W版遍历图号分离宏可不可以改为：图号+零件名+版本

7 主题	358 帖子	690 金币

Rank: 8 Rank: 8

积分: 3678

电梯直达

跳转到指定楼层

楼主

楼主| 发表于 2022-6-27 11:35:06 | 只看该作者 |只看大图回帖奖励

回帖奖励

|倒序浏览 |阅读模式

好品数字

比如说我的文件名是这样的：HY2-2-DWG-MA-2001-02-01(2-3) 混凝罐壳体 0
图号分离，顺便把版本号也分离。求高手指导

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 转播 教程|习题|模型|技巧0 点赞0 拍砖0

SolidWorks机械工程师网

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

回复

使用道具举报

0 主题	54 帖子	60 金币

Rank: 2 Rank: 2

积分: 186

沙发

发表于 2022-6-27 17:35:03 | 只看该作者

远东卓越

楼主最好发张图片！

SolidWorks机械工程师网

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

回复支持反对

使用道具举报

7 主题	358 帖子	690 金币

Rank: 8 Rank: 8

积分: 3678

板凳

楼主| 发表于 2022-6-28 08:25:26 | 只看该作者

好品数字

比如说这是我的文件名
我需要图号分离，在工程图直接能分离出文件名图号版本号

: 下载附件保存到相册

2022-6-28 08:24 上传

: 下载附件保存到相册

2022-6-28 08:25 上传

SolidWorks机械工程师网

回复支持反对

使用道具举报

1 主题	49 帖子	109 金币

Rank: 3 Rank: 3 Rank: 3

积分: 264

地板

发表于 2022-6-28 12:31:01 | 只看该作者

顶一下，坐等高手！

SolidWorks机械工程师网

回复支持反对

使用道具举报

2 主题	24 帖子	189 金币

Rank: 3 Rank: 3 Rank: 3

积分: 323

5^#

发表于 2022-6-28 12:33:45 | 只看该作者

经典案例图书

如果是文件名，都差不多格式的话，肯定是可以分离出来的

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	4 帖子	140 金币

Rank: 3 Rank: 3 Rank: 3

积分: 400

6^#

发表于 2022-6-28 14:54:14 | 只看该作者

Dim fileName As String
Dim tuHao As String
Dim partName As String
Dim versionNumber As String
Sub main()
fileName = "HY2-2-DWG-MA-2001-02-01(2-3) 混凝罐壳体 0.sldprt"
Debug.Print "文件名是："; fileName
fileName = Left(fileName, Len(fileName) - 7)
tuHao = Left(fileName, InStr(fileName, " ") - 1)
Debug.Print "图号："; tuHao
fileName = Replace(fileName, tuHao + " ", "")
partName = Left(fileName, InStr(fileName, " ") - 1)
Debug.Print "零件名："; partName
versionNumber = Replace(fileName, partName + " ", "")
Debug.Print "版本号："; versionNumber
End Sub

复制代码

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	4 帖子	140 金币

Rank: 3 Rank: 3 Rank: 3

积分: 400

7^#

发表于 2022-6-28 16:14:23 | 只看该作者

经典案例图书

刚才回复了一次，刷新没出来。如果有重复请楼主删除

Dim fileName As String
Dim tuHao As String
Dim partName As String
Dim versionNumber As String
Sub main()
fileName = "HY2-2-DWG-MA-2001-02-01(2-3) 混凝罐壳体 0.sldprt"
Debug.Print "文件名是："; fileName
fileName = Left(fileName, Len(fileName) - 7)
tuHao = Left(fileName, InStr(fileName, " ") - 1)
Debug.Print "图号："; tuHao
fileName = Replace(fileName, tuHao + " ", "")
partName = Left(fileName, InStr(fileName, " ") - 1)
Debug.Print "零件名："; partName
versionNumber = Replace(fileName, partName + " ", "")
Debug.Print "版本号："; versionNumber
End Sub

复制代码

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	269 帖子	30 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1517

8^#

发表于 2022-7-2 17:49:53 | 只看该作者

楼主太有才了，膜拜中……

SolidWorks机械工程师网

回复支持反对

使用道具举报

7 主题	358 帖子	690 金币

Rank: 8 Rank: 8

积分: 3678

9^#

楼主| 发表于 2022-7-5 10:25:24 | 只看该作者

好像不行

可能是我水平有限
运行宏后，属性里没有变化

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	32 帖子	177 金币

Rank: 4

积分: 661

10^#

发表于 2022-9-5 18:49:51 | 只看该作者

好品数字

感谢楼主分享，很不错！

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	37 帖子	20 金币

Rank: 2 Rank: 2

积分: 103

11^#

发表于 2022-10-16 11:08:35 | 只看该作者

远东卓越

顶一下，坐等高手,好了我也下载

SolidWorks机械工程师网

回复支持反对

使用道具举报

3 主题	471 帖子	449 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1619

12^#

发表于 2023-3-8 11:39:02 | 只看该作者

楼主辛苦了！

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	26 帖子	6 金币

Rank: 2 Rank: 2

积分: 100

13^#

发表于 2023-3-10 09:40:48 | 只看该作者

把代码中的未知数，X Y Z 代替
完美的代码可以适应所有的文件

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	31 帖子	18 金币

Rank: 2 Rank: 2

积分: 158

14^#

发表于 2023-4-21 20:34:03 | 只看该作者

好高级看不懂

SolidWorks机械工程师网

回复支持反对

使用道具举报

发新帖

关闭卷起

关闭卷起

手机版|小黑屋| GMT+8, 2024-5-8 13:32 , Processed in 0.170333 second(s), 36 queries .

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

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

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