Add3DFace 变量类型问题

Flyingdancing

直接借用帮助里面的例子

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. 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 /> End Sub

这里point定义为Double型数组

我的问题如下：
在我把Double改为variant后，就会出错”无效的过程调用或参数“
显然就是因为变量类型不符合
帮助中对point 的说明是:
Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying a point on the 3DFace object

同样，做如下定义：
dim point as variant
point=array(1,2,3)
也出现同样的错误，显然，跟上面的错误是一样的

我想知道的是，这种改变为什么不行？VB/VBA/CAD对于这种定义的区别是什么

雪山飞狐_lzh

array(1,2,3)
=>变体的数组