[发明专利]一种航空器零件重量的计算方法

权利要求书

1.一种航空器零件重量的计算方法，其特征在于：按以下公式计算：

W＝(V×ρ)×f+S×ρ_S；其中，

W为零件重量；

V零件体积；

ρ为零件材料密度；

f为公差修正系数；

S为零件表面积；

ρ_S为零件面密度。

2.根据权利要求1所述的航空器零件重量的计算方法，其特征在于，所述的公差修正系数f的计算步骤如下：

(1)查材料规范，根据原材料规格确定公差带；

(2)计算材料的标准重量和基于公差带的重量平均值；

(3)计算公差修正系数：

公差修正系数＝重量平均值/标准重量。

3.根据权利要求1所述的航空器零件重量的计算方法，其特征在于，所述的零件面密度ρ_S的计算步骤如下：

(1)查表面处理规范，确定密度及公差带；

(2)取公差带中间值作为零件面密度；

(3)当ρ_S＝0时为零件裸重。

4.根据权利要求1-3任一项所述的航空器零件重量的计算方法，其特征在于，将所述公式通过参数化功能或二次开发功能嵌入到建模系统；在建模系统中通过修改公式中的参数ρ、f和/或ρ_S实时计算零件重量。

5.根据权利要求4所述的航空器零件重量的计算方法，其特征在于，所述的建模系统包括CAD、CATIA、Solidworks、Proe或UG。

6.根据权利要求4所述的航空器零件重量的计算方法，其特征在于，所述的建模系统能通过二次开发功能将计算结果导出到excel。

7.根据权利要求4所述的航空器零件重量的计算方法，其特征在于，所述公式通过参数化功能嵌入到建模系统的步骤如下：

(1)创建参数：

将W创建为零件重量；

将V创建为零件体积；

将ρ创建为零件材料密度；

将f创建为公差修正系数；

将S创建为零件表面积；

将ρ_S创建为零件面密度；

(2)在建模系统的参数化建模环境下创建公式：W＝(V×ρ)×f+S×ρ_S。

8.根据权利要求4所述的航空器零件重量的计算方法，其特征在于，所述的公式通过二次开发功能嵌入到建模系统时，通过VAB语言嵌入，步骤如下：

(1)创建参数：

Set ρ＝oParameters.CreateDimension(零件材料密度,DENSITY,2800#)

Set ρ_S＝oParameters.CreateDimension(面密度,SURFACICMASS,0.095)

Set f＝oParameters.CreateReal(公差修正系数,1#)

Set W＝oParameters.CreateDimension(零件重量,MASS,0#)

(2)测量体积和表面积：

V＝NewMeasurable.Volume

ρ_S＝NewMeasurable.WetArea

(3)创建公式：

Set Formula＝oRrelations.CreateFormula(公式1,,W,V×`零件材料密度`×`公差修正系数`+ρ_S×`面密度`)。

9.根据权利要求6所述的航空器零件重量的计算方法，其特征在于，所述的计算结果导出到excel的步骤如下：

(1)提取参数

Set ρ＝oParameters.Item(零件材料密度)

Set ρ_S＝oParameters.Item(面密度)

Set f＝oParameters.Item(公差修正系数)

Set E＝oParameters.Item(零件重量)

(2)将参数导入到excel

Set objGEXCELapp＝GetObject(,EXCEL.Application)

oBjExcelApp.Application.Visible＝True

Set oBjExcelwkBks＝oBjExcelApp.Application.Workbooks

Set oBjExcelwkBk＝oBjExcelwkBks.Add

Set oBjExcelwkShs＝oBjExcelwkBk.Worksheets(1)

Set oBjExcelSh＝oBjExcelwkBk.Sheets(1)

oBjExcelSh.cells(1,A)＝序号

oBjExcelSh.cells(1,B)＝图号

oBjExcelSh.cells(1,C)＝零件材料密度

oBjExcelSh.cells(1,D)＝面密度

oBjExcelSh.cells(1,E)＝公差修正系数

oBjExcelSh.cells(1,F)＝零件重量

oBjExcelSh.cells(i+1,A)＝i

oBjExcelSh.cells(i+1,B)＝oPartNumber

oBjExcelSh.cells(i+1,C)＝ρ.Value

oBjExcelSh.cells(i+1,D)＝ρ_S.Value

oBjExcelSh.cells(i+1,E)＝f.Value

oBjExcelSh.cells(i+1,F)＝W.Value。