|
提供一个解决办法 把
'------外形尺寸
If swModel.GetType = 1 Then
Corners = swModel.GetPartBox(True)
Y = Abs(Corners(4) - Corners(1)) * 1000 'Y
Z = Abs(Corners(5) - Corners(2)) * 1000 'Z
X = Abs(Corners(3) - Corners(0)) * 1000 'X
blnretval = swModel.DeleteCustomInfo2("", "外形尺寸") '删除旧数值
blnretval = swModel.AddCustomInfo3("", "外形尺寸", swCustomInfoText, Format(X, "0.0") & "*" & Format(Y, "0.0") & "*" & Format(Z, "0.0")) '添加新数值
Else
blnretval = swModel.DeleteCustomInfo2("", "外形尺寸") '删除旧数值
blnretval = swModel.AddCustomInfo3("", "外形尺寸", swCustomInfoText, "装配体") '添加新数值
End If
'------外形尺寸
代码替换成这个看一下,只对零件起做用,装配体的写为装配体,装配体写尺寸还没弄懂 |
|