奇葩的帖子（7樓：配置名稱分離宏）

傻呼呼分不清是求助还是原创，不能进入学习。

他以为他高明很多

https://www.icax.net/thread-1151903-1-1.html

请教下，此宏应该怎么使用呢

欣晨科技 发表于 2017-3-27 22:41
这是什么情况呢

一起建议版主取消这个帖子的限制吧：
https://www.icax.net/thread-1151816-1-5.html

这是什么情况呢

增加一个，分离当前配置名

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim Part As SldWorks.ModelDoc2
   
4. Dim ConfigName As String
   
5. Dim ConfigNameSplit As Variant
   
6. Dim PartCode As String
   
7. Dim PartName As String
   
8. Sub main()
   
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. ConfigName = Part.GetActiveConfiguration.Name
    
12. ConfigNameSplit = Split(ConfigName, " ")
    
13. PartCode = ConfigNameSplit(0)
    
14. PartName = ConfigNameSplit(UBound(ConfigNameSplit))
    
15. Part.DeleteCustomInfo2 ConfigName, "名称"
    
16. Part.DeleteCustomInfo2 ConfigName, "图号"
    
17. Part.AddCustomInfo3 ConfigName, "名称", 30, PartName
    
18. Part.AddCustomInfo3 ConfigName, "图号", 30, PartCode
    
19. End Sub
    

复制代码

可能該主題的發帖者不想讓太多人看到內容，因而設定到最高限制。
無論如何，各位都應該尊重發帖者的決定，沒必要深究了。

管理员检查吧