VB连CAD创建面域后，VB对面域面积的查询

rgbjjj265

在VB里面我用
 Dim orthodromesplineObj(0 To 3) As AcadEntity
绘制了四条样条线，该四条曲线，只在端点有交点，形状相当于一个矩形，然后用
Dim regionObj As AcadRegion
Set regionObj = acadDoc.ModelSpace.AddRegion(orthodromesplineObj)
对四条样条线，创建了面域，
此时，在AutoCAD里面，我可以查询到该面域的面积(用“list”命令）
但是，在VB里我用下面的命令，却查询不到该面域的面积，Debug.Print regionObj.Area
并且用了监视窗口，增加断点，得到的信息为：
regionObj.Area=<对象变量或with块变量未设置>
研究了一个星期，还是搞定不了，请高手赐教啊
谢谢

雪山飞狐_lzh

AddRegion 的返回值是面域数组而不是面域