Add3DFace的问题？

topirol

Add3DFace(Point1, Point2, Point3[, Point4]) 说明第四点是可以忽略的，但例子出错？！何解？

2. Sub Example_Add3DFace()
   
3.     ' This example creates a 3D face in model space.
   
4. 
   
5.     Dim faceObj As Acad3DFace
   
6.     Dim point1(0 To 2) As Double
   
7.     Dim point2(0 To 2) As Double
   
8.     Dim point3(0 To 2) As Double
   
9.   '  Dim point4(0 To 2) As Double
   
10.    
    
11.     ' Define the four coordinates of the face
    
12.     point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
    
13.     point2(0) = 5#: point2(1) = 0#: point2(2) = 1#
    
14.     point3(0) = 1#: point3(1) = 10#: point3(2) = 0#
    
15. '   point4(0) = 5#: point4(1) = 5#: point4(2) = 1#
    
16.    
    
17.     ' Create the 3DFace object in model space
    
18.     Set faceObj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3) ', point4)
    
19.     ZoomAll
    
20.    
    
21. End Sub
    

Sub Example_Add3DFace()<br />     ' This example creates a 3D face in model space.<br /> <br />     Dim faceObj As Acad3DFace<br />     Dim point1(0 To 2) As Double<br />     Dim point2(0 To 2) As Double<br />     Dim point3(0 To 2) As Double<br />   '  Dim point4(0 To 2) As Double<br />     <br />     ' Define the four coordinates of the face<br />     point1(0) = 0#: point1(1) = 0#: point1(2) = 0#<br />     point2(0) = 5#: point2(1) = 0#: point2(2) = 1#<br />     point3(0) = 1#: point3(1) = 10#: point3(2) = 0#<br /> '   point4(0) = 5#: point4(1) = 5#: point4(2) = 1#<br />     <br />     ' Create the 3DFace object in model space<br />     Set faceObj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3) ', point4)<br />     ZoomAll<br />     <br /> End Sub<br />

efan2000

应该是帮助文件的错误。
在对象浏览器中是这样的：
Function Add3DFace(Point1, Point2, point3, Point4) As Acad3DFace