找極點

wuxin20642

根據選擇的List得到所選圖形中的最高點和最低點，返回一條線段

1. Private Function GetMaxAndMinPoint(List As VISIList, Blist As VISIList) As VISISegment
   
2. Dim el As New VISIElement
   
3. Dim el1 As New VISIElement
   
4. Dim geo As New VISIGeo
   
5. Dim db As New VISIDatabase
   
6. Dim Elist As New VISIList
   
7. Dim Segm  As New VISISegment
   
8. Dim count As Long
   
9. 
   
10.     count = List.count
    
11.    
    
12.     Elist.Init 10, LTYPE_ELEM
    
13.    
    
14.     For i = 1 To count
    
15.         db.WorkDBKey = List.Item(i)
    
16.         db.GetElement
    
17.         Elist.AddItem db.WorkElement
    
18.     Next i
    
19.    
    
20.     el.Type = DB_POINT
    
21.     el1.Type = DB_POINT
    
22.    
    
23.     geo.OperationCode = VGEO_BOUNDINGBOX
    
24.    
    
25.     geo.elementlist = Elist
    
26.     geo.BodyList = Blist
    
27.     geo.Execute
    
28.    
    
29.     If (geo.LastError = V_NOERROR) Then
    
30.         Set el = geo.result.Item(1)
    
31.         Segm.P1.Put el.Data.x, el.Data.y, el.Data.z
    
32.         
    
33.         Set el1 = geo.result.Item(2)
    
34.         Segm.P2.Put el1.Data.x, el1.Data.y, el1.Data.z
    
35.         
    
36.     End If
    
37.     Set GetMaxAndMinPoint = Segm
    
38. End Function
    

Private Function GetMaxAndMinPoint(List As VISIList, Blist As VISIList) As VISISegment<br /> Dim el As New VISIElement<br /> Dim el1 As New VISIElement<br /> Dim geo As New VISIGeo<br /> Dim db As New VISIDatabase<br /> Dim Elist As New VISIList<br /> Dim Segm  As New VISISegment<br /> Dim count As Long<br /> <br />     count = List.count<br />     <br />     Elist.Init 10, LTYPE_ELEM<br />     <br />     For i = 1 To count<br />         db.WorkDBKey = List.Item(i)<br />         db.GetElement<br />         Elist.AddItem db.WorkElement<br />     Next i<br />     <br />     el.Type = DB_POINT<br />     el1.Type = DB_POINT<br />     <br />     geo.OperationCode = VGEO_BOUNDINGBOX<br />     <br />     geo.elementlist = Elist<br />     geo.BodyList = Blist<br />     geo.Execute<br />     <br />     If (geo.LastError = V_NOERROR) Then<br />         Set el = geo.result.Item(1)<br />         Segm.P1.Put el.Data.x, el.Data.y, el.Data.z<br />         <br />         Set el1 = geo.result.Item(2)<br />         Segm.P2.Put el1.Data.x, el1.Data.y, el1.Data.z<br />         <br />     End If<br />     Set GetMaxAndMinPoint = Segm<br /> End Function<br />

zzyong00

VISIElement,VISIList是什么？