VB连CAD创建面域后,VB对面域面积的查询
在VB里面我用Dim orthodromesplineObj(0 To 3) As AcadEntity
绘制了四条样条线,该四条曲线,只在端点有交点,形状相当于一个矩形,然后用
Dim regionObj As AcadRegion
Set regionObj = acadDoc.ModelSpace.AddRegion(orthodromesplineObj)
对四条样条线,创建了面域,
此时,在里面,我可以查询到该面域的面积(用“list”命令)
但是,在VB里我用下面的命令,却查询不到该面域的面积,Debug.Print regionObj.Area
并且用了监视窗口,增加断点,得到的信息为:
regionObj.Area=
研究了一个星期,还是搞定不了,请高手赐教啊
谢谢 AddRegion 的返回值是面域数组而不是面域
页:
[1]