换热器布管的算法

兰州人

序号数量(nn)nn*22.62117362.04216339.41317362.04416339.41515316.78616339.41715316.78812248.9913271.531012248.91111226.271210203.65139181.0214467.88

这是换热器不管的排版数据，程序如下

2. Sub ls1()
3.   Dim App As AcadApplication
4.   Set App = ConnectCad
5.   Dim tempArr, tempArray()
6.   tempArr = Sheet1.Range("c2:c15")
7.   nn = UBound(tempArr)
8.   ReDim tempArray(nn)
9.   For ii = 0 To nn - 1
10.     tempArray(ii) = tempArr(ii + 1, 1)
11.   Next ii
12.   For ii = 0 To nn - 1
13.     If Abs(tempArray(ii) - tempArray(ii + 1)) = 1 Then
14.       Sheet1.Cells(ii + 2, 8) = (tempArray(ii) - 1) * 32 / Sqr(2)
15.     Else
16.       Sheet1.Cells(ii + 2, 8) = (tempArray(ii) - 1) * 32 / Sqr(2)
17.       Sheet1.Cells(ii + 2, 9) = (tempArray(ii + 1) - 1) * 32 / Sqr(2)
18.     End If
19.   Next ii
20. End Sub

Sub ls1()   Dim App As AcadApplication   Set App = ConnectCad   Dim tempArr, tempArray()   tempArr = Sheet1.Range("c2:c15")   nn = UBound(tempArr)   ReDim tempArray(nn)   For ii = 0 To nn - 1     tempArray(ii) = tempArr(ii + 1, 1)   Next ii   For ii = 0 To nn - 1     If Abs(tempArray(ii) - tempArray(ii + 1)) = 1 Then       Sheet1.Cells(ii + 2, 8) = (tempArray(ii) - 1) * 32 / Sqr(2)     Else       Sheet1.Cells(ii + 2, 8) = (tempArray(ii) - 1) * 32 / Sqr(2)       Sheet1.Cells(ii + 2, 9) = (tempArray(ii + 1) - 1) * 32 / Sqr(2)     End If   Next ii End Sub