求助方法AddPolyfaceMesh得用法？

ZHAOXGOK

不明白后面点和面是怎么组合的？

王咣生

<RE class=Code>这是AutoCAD帮助中的例子:</PRE><RE class=Code>

2. <PRE class=Code>Sub Example_AddPolyfaceMesh()
3.    
4.     Dim vertexList(0 To 17) As Double
6.     'Data
7.     vertexList(0) = 4: vertexList(1) = 7: vertexList(2) = 0
8.     vertexList(3) = 5: vertexList(4) = 7: vertexList(5) = 0
9.     vertexList(6) = 6: vertexList(7) = 7: vertexList(8) = 0
10.     vertexList(9) = 4: vertexList(10) = 6: vertexList(11) = 0
11.     vertexList(12) = 5: vertexList(13) = 6: vertexList(14) = 0
12.     vertexList(15) = 6: vertexList(16) = 6: vertexList(17) = 1
13.    
15.     Dim FaceList(0 To 7) As Integer
17.     FaceList(0) = 1
18.     FaceList(1) = 2
19.     FaceList(2) = 5
20.     FaceList(3) = 4
21.     FaceList(4) = 2
22.     FaceList(5) = 3
23.     FaceList(6) = 6
24.     FaceList(7) = 5
26.     Dim obj As AcadPolyfaceMesh
27.     Set obj = ModelSpace.AddPolyfaceMesh(vertexList, FaceList)
28.     obj.Update
30.     ' Change the viewing direction of the viewport to
31.     ' better see the polyface mesh
32.     Dim NewDirection(0 To 2) As Double
33.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
34.     ThisDrawing.ActiveViewport.direction = NewDirection
35.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
36.     ZoomAll
37. End Sub</PRE>

<PRE class=Code>Sub Example_AddPolyfaceMesh()         Dim vertexList(0 To 17) As Double     'Data     vertexList(0) = 4: vertexList(1) = 7: vertexList(2) = 0     vertexList(3) = 5: vertexList(4) = 7: vertexList(5) = 0     vertexList(6) = 6: vertexList(7) = 7: vertexList(8) = 0     vertexList(9) = 4: vertexList(10) = 6: vertexList(11) = 0     vertexList(12) = 5: vertexList(13) = 6: vertexList(14) = 0     vertexList(15) = 6: vertexList(16) = 6: vertexList(17) = 1         Dim FaceList(0 To 7) As Integer     FaceList(0) = 1     FaceList(1) = 2     FaceList(2) = 5     FaceList(3) = 4     FaceList(4) = 2     FaceList(5) = 3     FaceList(6) = 6     FaceList(7) = 5     Dim obj As AcadPolyfaceMesh     Set obj = ModelSpace.AddPolyfaceMesh(vertexList, FaceList)     obj.Update     ' Change the viewing direction of the viewport to     ' better see the polyface mesh     Dim NewDirection(0 To 2) As Double     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1     ThisDrawing.ActiveViewport.direction = NewDirection     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport     ZoomAll End Sub</PRE>

</PRE>

ZHAOXGOK

谢谢帮忙，看懂了！