[原创]VB的function功能在标准零件绘图中的应用。
以下数据是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
呵呵，思路很不错，顶
不过HG20592_Table7_1AndTable8_0_1Array好像写得不完整啊，没有实现预期目标，新手可能看不懂啊。建议补完全.
页:
[1]