有会二次开发的进来看看

如图，如何把评估的值读取出来啊？

改用  get4
可以将代码贴出来，我帮你改

Sub 图纸根据配置特性名称命名()
Dim SheetName() As String
Dim ConfigName As String

Set swApp = Application.SldWorks
Set drawing = swApp.ActiveDoc
SheetName = drawing.GetSheetNames
SheetCount = drawing.GetSheetCount
f = InputBox("请填写配置特性的名称")

If drawing Is Nothing Then
    MsgBox "Drawing is empty！"
    Exit Sub
End If

For i = 0 To SheetCount - 1
    drawing.ActivateSheet SheetName(i)
    Set swView = drawing.GetFirstView.GetNextView
    Set swDrawModel = swView.ReferencedDocument
    ConfigName = swView.ReferencedConfiguration
    Set swSheet = drawing.GetCurrentSheet
   
    ThisSheetName = swDrawModel.CustomInfo2(ConfigName, f) '图号可以根据配置特性改
    swSheet.SetName ThisSheetName
Next

End Sub

2楼的朋友，帮我看看怎么改下啊

xiaoxifeng 发表于 2016-11-2 08:55
Sub 图纸根据配置特性名称命名()
Dim SheetName() As String
Dim ConfigName As String

替换之前代码，试试

1. Sub 图纸根据配置特性名称命名()
   
2. Dim SheetName() As String
   
3. Dim ConfigName As String
   
4. 
   
5. Set swApp = Application.SldWorks
   
6. Set drawing = swApp.ActiveDoc
   
7. SheetName = drawing.GetSheetNames
   
8. SheetCount = drawing.GetSheetCount
   
9. f = InputBox("请填写配置特性的名称")
   
10. 
    
11. If drawing Is Nothing Then
    
12.     MsgBox "Drawing is empty！"
    
13.     Exit Sub
    
14. End If
    
15. 
    
16. For i = 0 To SheetCount - 1
    
17.     drawing.ActivateSheet SheetName(i)
    
18.     Set swView = drawing.GetFirstView.GetNextView
    
19.     Set swDrawModel = swView.ReferencedDocument
    
20.     ConfigName = swView.ReferencedConfiguration
    
21.     Set swSheet = drawing.GetCurrentSheet
    
22.    
    
23. '    ThisSheetName = swDrawModel.CustomInfo2(ConfigName, f) '图号可以根据配置特性改
    
24.     Dim val                       As String
    
25.     Dim valout                    As String
    
26.     ThisSheetName = swDrawModel.Extension.CustomPropertyManager(ConfigName).Get4(f, False, val, valout)
    
27.     swSheet.SetName valout
    
28. Next
    
29. End Sub

复制代码

说明：

太好了啊。太感谢你了啊，楼上的朋友。想问你下，能不能把零件转换成SWB文件的宏有吗？

xiaoxifeng 发表于 2016-11-2 10:20
太好了啊。太感谢你了啊，楼上的朋友。想问你下，能不能把零件转换成SWB文件的宏有吗？

没这能力

如果要是能转换，那就多好啊