有会二次开发的进来看看

ljx908912126 · 发表于 2016-11-1 17:21:09

经典图书

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

lb128 · 发表于 2016-11-1 19:30:52

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

hac945 · 发表于 2016-11-1 19:44:10

经典图书

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

919910863 · 发表于 2016-11-2 18:17:05

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

solitarysoulxu · 发表于 2016-11-2 21:27:18

经典案例图书

替换之前代码，试试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) '图号可以根据配置特性改
Dim val As String
Dim valout As String
ThisSheetName = swDrawModel.Extension.CustomPropertyManager(ConfigName).Get4(f, False, val, valout)
swSheet.SetName valout
Next
End Sub
复制代码
说明：

承九 · 发表于 2016-11-3 22:51:16

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

lw698 · 发表于 2016-11-5 16:01:46

经典案例图书

没这能力

tchandsome · 发表于 2016-11-5 19:27:15

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

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