|
Dim params As Variant
params = swModel.GetConfigurationNames
Dim vName As Variant
Dim Name As String
Dim thisConfig As Configuration
swModel.DeleteCustomInfo2 "", "外形尺寸" '删除自定义中"外形尺寸"属性
For Each vName In params
Name = vName
Set thisConfig = swModel.GetConfigurationByName(Name)
swModel.DeleteCustomInfo2 thisConfig.Name, "外形尺寸" '删除配置中"外形尺寸"属性
swModel.AddCustomInfo3 thisConfig.Name, "外形尺寸", swCustomInfoText, _
Format(chang, "0") & "x" & Format(kuan, "0") & "x" & Format(gao, "0") '将外形尺寸"属性添加到配置
Next vName |
|