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

z644458890

   经典图书

看看，，学习学习

wangzan1977

这个代码在各大论坛发扬光大了。

非常机械SW

   经典图书

不需要特殊符号的挺好

非常机械SW

请问你那里有在装配体的状态下，运用装配体的宏文件来实现装配体下面所有的零件图号和名称分离

liyuyin007

   经典案例图书

楼主辛苦了！

yni621

楼主辛苦了！

非常机械SW

   经典案例图书

请问有没有宏文件直接在装配体里面使用的，在装配体条件下，点击宏文件，整个装配体里面的文件图号和名称就实现了分离

nmimi

1. Sub MAIN()
   
2. Set swApp = CreateObject("sldworks.application")
   
3. Set Part = swApp.ActiveDoc
   
4. swApp.ActiveDoc.ActiveView.FrameState = 1
   
5. Set CurCFG = Part.GetActiveConfiguration()
   
6. ConfName = CurCFG.Name
   
7. Name = swApp.ActiveDoc.GetTitle()
   
8.   c = Replace(Name, " ", "")
   
9. blnretval = Part.AddCustomInfo3(ConfName, "代号", swCustomInfoText, frmPartID)
   
10. blnretval = Part.AddCustomInfo3(ConfName, "名称", swCustomInfoText, frmPartID)
    
11.    b = Len(c)
    
12.    e = Right(c, 7)
    
13. If e = ".SLDPRT" Or e = ".SLDASM" Or e = ".sldprt" Or e = ".sldasm" Then
    
14.    f = Left(c, b - 7)
    
15. Else
    
16.    f = c
    
17. End If
    
18. k = Len(f)
    
19. kk = LenB(StrConv(f, vbFromUnicode))   
    
20. If k = kk Then '纯数字的情况
    
21.     s = ""
    
22.     t = f
    
23.     Response = MsgBox("文件名不包含零件名称，已整体写入“代号”属性栏", vbOKOnly, "未读取到零件名称") '窗口提示,不需要提示可以删除本行
    
24. Else
    
25.     If kk / k = 2 Then  '纯汉字的情况
    
26.         t = ""
    
27.         s = f
    
28.         Response = MsgBox("文件名不包含代号，已整体写入“名称”属性栏", vbOKOnly, "未读取到零件代号") '窗口提示,不需要提示可以删除本行
    
29.     Else
    
30.         For i = 1 To k
    
31.             If Asc(Mid$(f, i, 1)) < 0 Then
    
32.                 w = i '确定第一个汉字的位置
    
33.         Exit For
    
34.             End If
    
35.         Next
    
36.         If w = 1 Then                '名称+代号的情况
    
37.             s = Left(f, kk - k)
    
38.             t = Right(f, k - (kk - k))
    
39.         Else                         '代号+名称的情况
    
40.             s = Right(f, k - w + 1)
    
41.             t = Left(f, w - 1)
    
42.         End If
    
43.     End If
    
44. End If
    
45. dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("代号", t)
    
46. dummy = Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("名称", s)
    
47. End Sub

复制代码

最新亲测可用.

hongyunfei

   经典案例图书

谢谢分享

张小五

   经典图书

游览观光学习

onboy9

这种写方法挺不错的，支持楼主

hz880410

楼主辛苦了！

刘茂机械

SW机械工程师网，找到组织了！

254712477

多谢大神分享 感谢分享，Solidworks机械工程师论坛，找到组织了！感谢分享，Solidworks机械工程师论坛，找到组织了！11

鸣沙山

加入QQ群
参与讨论和学习

或扫描二维码加入

学习了，实用，谢谢分享

狂吼当歌

   经典案例图书

楼主辛苦了！

晴天大圣

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢大佬

wwwsdd

   经典案例图书

看看 感谢分享

yangbosnihc

请教，如何写到自定义里面去

看不见的妳

感谢楼主无私奉献，之前的宏是用空格识别的，代号跟名称还得按顺序写。