|
|
以下数据是HG20592法兰的标准数据
HG20592_25_25 = Array(25, 0.25, 100, 75, 11, 4, 33.7, 32, 58, 2, "M10")
HG20592_15_25 = Array(15, 0.25, 80, 55, 11, 4, 21.3, 18, 38, 2, "M10")
HG20592_10_25 = Array(10, 0.25, 75, 50, 11, 4, 17.2, 14, 33, 2, "M10")
采用VBA/VB自定义数据类型工作效率比较高。
In module Model
Type HG20592_Table7_1AndTable8_0_1
公称通径 As Double
压力等级 As Double
法兰外径D As Double
螺栓孔中心圆直径 As Double
螺栓孔直径 As Double
螺栓数量 As Double
钢管外径A As Double
钢管外径B As Double
突台外径d As Double
突台高f1 As Double
螺纹规格 As String
End Type
' //In Class Model
Private Function HG20592_Table7_1AndTable8_0_1Array() As HG20592_Table7_1AndTable8_0_1
HG20592_25_25 = Array(25, 0.25, 100, 75, 11, 4, 33.7, 32, 58, 2, "M10")
HG20592_15_25 = Array(15, 0.25, 80, 55, 11, 4, 21.3, 18, 38, 2, "M10")
HG20592_10_25 = Array(10, 0.25, 75, 50, 11, 4, 17.2, 14, 33, 2, "M10")
HG20592_20_25 = Array(20, 0.25, 90, 65, 11, 4, 26.9, 25, 48, 2, "M10")
HG20592_20_60 = Array(20, 0.6, 90, 65, 11, 4, 26.9, 25, 48, 2, "M10")
HG20592_10_60 = Array(10, 0.6, 75, 50, 11, 4, 17.2, 14, 33, 2, "M10")
HG20592_25_60 = Array(25, 0.6, 100, 75, 11, 4, 33.7, 32, 58, 2, "M10")
HG20592_Table7_1AndTable8_0_1Array.公称通径 = HG20592_2000_160(2)
End Function
Function ll()
Dim gg As HG20592_Table7_1AndTable8_0_1
gg.公称通径 = HG20592_Table7_1AndTable8_0_1Array.公称通径
Debug.Print gg.公称通径
End Function
'end Class model
In form Model
Dim aa As New class1
Private Sub Form_Load()
aa.ll
End Sub
|
|
置顶卡
