[原创]VB的function功能在标准零件绘图中的应用。
<p>以下数据是HG20592法兰的标准数据 </p><p> HG20592_25_25 = Array(25, 0.25, 100, 75, 11, 4, 33.7, 32, 58, 2, "M10")<br/> HG20592_15_25 = Array(15, 0.25, 80, 55, 11, 4, 21.3, 18, 38, 2, "M10")<br/> HG20592_10_25 = Array(10, 0.25, 75, 50, 11, 4, 17.2, 14, 33, 2, "M10")<br/>采用VBA/VB自定义数据类型工作效率比较高。</p><p>In module Model</p><p>Type HG20592_Table7_1AndTable8_0_1<br/> 公称通径 As Double<br/> 压力等级 As Double<br/> 法兰外径D As Double<br/> 螺栓孔中心圆直径 As Double<br/> 螺栓孔直径 As Double<br/> 螺栓数量 As Double<br/> 钢管外径A As Double<br/> 钢管外径B As Double<br/> 突台外径d As Double<br/> 突台高f1 As Double<br/> 螺纹规格 As String<br/>End Type</p><p>' //In Class Model</p><p>Private Function HG20592_Table7_1AndTable8_0_1Array() As HG20592_Table7_1AndTable8_0_1<br/> HG20592_25_25 = Array(25, 0.25, 100, 75, 11, 4, 33.7, 32, 58, 2, "M10")<br/> HG20592_15_25 = Array(15, 0.25, 80, 55, 11, 4, 21.3, 18, 38, 2, "M10")<br/> HG20592_10_25 = Array(10, 0.25, 75, 50, 11, 4, 17.2, 14, 33, 2, "M10")<br/> HG20592_20_25 = Array(20, 0.25, 90, 65, 11, 4, 26.9, 25, 48, 2, "M10")<br/> HG20592_20_60 = Array(20, 0.6, 90, 65, 11, 4, 26.9, 25, 48, 2, "M10")<br/> HG20592_10_60 = Array(10, 0.6, 75, 50, 11, 4, 17.2, 14, 33, 2, "M10")<br/> HG20592_25_60 = Array(25, 0.6, 100, 75, 11, 4, 33.7, 32, 58, 2, "M10")<br/> <br/> HG20592_Table7_1AndTable8_0_1Array.公称通径 = HG20592_2000_160(2)<br/> <br/>End Function</p><p>Function ll()<br/> Dim gg As HG20592_Table7_1AndTable8_0_1<br/> gg.公称通径 = HG20592_Table7_1AndTable8_0_1Array.公称通径<br/> Debug.Print gg.公称通径<br/>End Function</p><p>'end Class model</p><p>In form Model</p><p>Dim aa As New class1</p><p>Private Sub Form_Load()<br/> aa.ll<br/>End Sub<br/></p> <p>呵呵，思路很不错，顶</p><p>不过HG20592_Table7_1AndTable8_0_1Array好像写得不完整啊，没有实现预期目标，新手可能看不懂啊。建议补完全.</p>
页:
[1]