[原创]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

jxh2003zfr

呵呵，思路很不错，顶

不过HG20592_Table7_1AndTable8_0_1Array好像写得不完整啊，没有实现预期目标，新手可能看不懂啊。建议补完全.