[求助]supermap添加对象

 
<P><FONT style="BACKGROUND-COLOR: #fffeff">利用Object时，我打开了一个scdRegion (面数据集)，但是发现只能向里面添加多边形数据，而无法添加其它面类的数据，如四边形时，却总添加不了，为什么？急!</FONT></P>
<P>另外，请问用Object编的窗口，能在里面自由的拖运面对象吗？(比如一个四边形)</P>
<P>我的程序(目前只能添加多边形)：</P>
<P>Dim objGeometry As soGeometry<BR>'要新增对象的矢量数据集，此处假设为地图窗口的第一个图<BR>Dim objDV As soDatasetVector<BR>Dim objRcd As soRecordset                '与上面数据集对应的记录集</P>
<P>Set objDV = SuperMap1.Layers(1).Dataset<BR>Set objRcd = objDV.Query("", True)     '获取记录集<BR>'获取跟踪图层上刚才绘制的几何对象<BR>Set objGeometry = SuperMap1.TrackedGeometry<BR>objRcd.AddNew objGeometry                       '增加新的记录<BR>objRcd.Update                                  '更新记录集<BR> <BR>Set objGeometry = Nothing</P>