SolidWorks图号名称分离宏--不依赖空格或特殊符号

joybestone · 发表于 2018-10-12 17:46:46

经典图书

看论坛的分离宏都是以零件名中的空格或者斜杠为准进行分割，如果零件名不包含这些就无法分离，现在我自己琢磨了一个方法，不需要这些特殊符号，经测试可以准确识别分离以下几种情况：
1图号+名称的情况，例如：ABC123固定板，分离成图号：ABC123，名称：固定板
2名称+图号的情况，例如：固定板ABC123，分离成图号：ABC123，名称：固定板
3纯名称，不包含图号的情况，例如：固定板，将全部写入“名称”属性
4纯图号，不包含名称的情况，例如：ABC123，将全部写入“图号”属性
以下为代码，写的不规范美观，但是能用
本帖隐藏的内容

本帖隐藏的内容

Sub MAIN()

Set swApp = CreateObject("sldworks.application")
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1

Set CurCFG = Part.GetActiveConfiguration()
ConfName = CurCFG.Name
Name = swApp.ActiveDoc.GetTitle()

C = Replace(Name, " ", "") '去除名称中的空格
B = Len(C)
G = Left(C, B - 7) '去除后缀名

For I = 1 To Len(G)
If Asc(Mid$(G, I, 1)) < 0 Then
W = I '确定第一个汉字的位置
Exit For
End If
Next

For I = 0 To Len(G) - 1
If Asc(Mid$(G, Len(G) - I, 1)) < 0 Then
X = Len(G) - I '确定最后一个汉字的位置
Exit For
End If
Next

If W > 0 Then
If W = 1 Then
s = Left(G, X) '汉字在前数字在后的情况 & 纯汉字的情况
t = Right(G, Len(G) - X)
Else
t = Left(G, W - 1) '数字在前汉字在后的情况
s = Right(G, Len(G) - W + 1)
End If
Else
s = "" '纯数字的情况
t = G
End If

blnretval = Part.AddCustomInfo3(ConfName, "图号", swCustomInfoText, frmPartID)
blnretval = Part.AddCustomInfo3(ConfName, "名称", swCustomInfoText, frmPartID)
dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("图号", t)
dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("名称", s)

End Sub

复制代码

changechen · 发表于 2018-10-12 19:47:50

谢谢分享

yb1027 · 发表于 2018-10-12 20:02:19

经典图书

下载来试试

ftz_twp · 发表于 2018-10-12 22:38:45

@Francis，版大，我有一个问题，我把分离宏加入遍历宏，可以实现分离图号名称，但是我装配体有一些标准件，GB开头的，这些零件我不需要遍历进行分离图号名称写入属性，我想知道如何把GB开头的不包含在遍历清单中，自己捣鼓没结果，望指教，谢谢！

xiaolanjun · 发表于 2018-10-12 23:29:18

经典案例图书

22222222222222222222222222222222

dandido · 发表于 2018-10-12 23:35:34

社么好东西，我喜欢

zhangyongtao · 发表于 2018-10-12 23:45:57

经典案例图书

谢谢楼主分享！

cczg2006 · 发表于 2018-10-13 00:57:41

有一种特例，有时名称中会包含有字母或数字，如何处理?

bmw0555 · 发表于 2018-10-13 01:33:33

看得出樓主有點焦急（應該是焦躁吧），還是過多幾天，待樓主冷靜一點，再來討論，應該可以水到渠成的。

chenong · 发表于 2018-10-13 01:42:37

经典图书

謝謝分享學習了!

caefea · 发表于 2018-10-13 01:47:48

学习学习谢谢谢谢

thexlent · 发表于 2018-10-13 02:09:38

感謝分享

spring_yin · 发表于 2018-10-13 02:46:08

谢谢楼主分享！

lijch2006 · 发表于 2018-10-13 03:05:22

进来学习

lyr8888 · 发表于 2018-10-13 03:12:56

加入QQ群
参与讨论和学习

或扫描二维码加入

过来学习学习

hudongfeng · 发表于 2018-10-13 04:37:12

经典案例图书

好东西，大家分享

xuer1414 · 发表于 2018-10-13 04:56:52

加入QQ群
参与讨论和学习

或扫描二维码加入

谢谢能分享一下

noidle · 发表于 2018-10-13 05:39:00

经典案例图书

这是什么宏

wtxiong2006 · 发表于 2018-10-13 06:03:12

谢谢分享

gxqlxwl · 发表于 2018-10-13 06:21:08

猜想你的实现方式是自动区分字母数字和汉字

		自动登录	找回密码
密码			立即注册

SolidWorks图号名称分离宏--不依赖空格或特殊符号

浏览过的版块