split+Array的应用

ningyong58

"aa|Mirr0|X600Y30ArrayX3Y4"主要是简化Array输入的一大堆数据.
采用split,将上面数据进行数组转换.程序如下.

2. Sub ls1()
3.   aa = "aa|Mirr0|X600Y30ArrayX3Y4"
4.   ss = Split(aa, "|")
5.   
6.   Dim xDist, yDist, numberOfRows, numberOfColumns
7.   Dim Pt1(2) As Double, Pt2(2) As Double
8.   Dim objLine As AcadLine, Ent As AcadEntity
9.   Pt1(0) = 0: Pt1(1) = 10
10.   Pt2(0) = 400: Pt2(1) = 10
11.   Set objLine = ThisDrawing.ModelSpace.AddLine(Pt1, Pt2)
12.   Dim xCopyPt(2) As Double, basePt(2) As Double
13.   For ii = 0 To UBound(ss)
14.     Debug.Print ss(ii)
15.     If InStr(ss(ii), "Array") > 0 Then
16.       bb = Split(ss(ii), "Array")
17.       
18.         bbb = Split(bb(0), "Y")
19.         xDist = Val(Mid(bbb(0), 2))
20.         yDist = Val(bbb(1))
21.         bbb = Split(bb(1), "Y")
22.         numberOfColumns = Val(Mid(bbb(0), 2))
23.         numberOfRows = Val(bbb(1))
24.     Dim retObj As Variant
25.       retObj = objLine.ArrayRectangular(numberOfRows, numberOfColumns, 1, yDist, xDist, 1)
26.         
27.         
28.       
29.     End If
30.   Next ii
31. End Sub

Sub ls1()   aa = "aa|Mirr0|X600Y30ArrayX3Y4"   ss = Split(aa, "|")      Dim xDist, yDist, numberOfRows, numberOfColumns   Dim Pt1(2) As Double, Pt2(2) As Double   Dim objLine As AcadLine, Ent As AcadEntity   Pt1(0) = 0: Pt1(1) = 10   Pt2(0) = 400: Pt2(1) = 10   Set objLine = ThisDrawing.ModelSpace.AddLine(Pt1, Pt2)   Dim xCopyPt(2) As Double, basePt(2) As Double   For ii = 0 To UBound(ss)     Debug.Print ss(ii)     If InStr(ss(ii), "Array") > 0 Then       bb = Split(ss(ii), "Array")                bbb = Split(bb(0), "Y")         xDist = Val(Mid(bbb(0), 2))         yDist = Val(bbb(1))         bbb = Split(bb(1), "Y")         numberOfColumns = Val(Mid(bbb(0), 2))         numberOfRows = Val(bbb(1))     Dim retObj As Variant       retObj = objLine.ArrayRectangular(numberOfRows, numberOfColumns, 1, yDist, xDist, 1)                              End If   Next ii End Sub

mccad

这种方法不错，主要是简化了人工输入的一些工作，以前经常用到。一般来说，象我们写的小程序，速度并不是我们首先考虑的东西，实际上split对于大数据来说会比较慢。