iCAx开思网

标题: 有会二次开发的进来看看 [打印本页]

---

作者: xiaoxifeng    时间: 2016-11-1 17:21
标题: 有会二次开发的进来看看


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

---

作者: DaveChan    时间: 2016-11-1 19:48
改用  get4
可以将代码贴出来，我帮你改

---

作者: xiaoxifeng    时间: 2016-11-2 08:55
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

---

作者: xiaoxifeng    时间: 2016-11-2 08:55
2楼的朋友，帮我看看怎么改下啊

---

作者: DaveChan    时间: 2016-11-2 10:03

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

复制代码

说明：
[attach]1240828[/attach]

---

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

---

作者: DaveChan    时间: 2016-11-2 10:26

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

没这能力

---

作者: xiaoxifeng    时间: 2016-11-2 10:54
如果要是能转换，那就多好啊

---

欢迎光临 iCAx开思网 (https://www.icax.org/)

Powered by Discuz! X3.3