[求助]MAPGIS二次开发

<P>在一个点工作区中添加一个点,怎样设置子图号等点参数</P>
<P>Dim xy As D_Dot<br>Dim PntInfo  As Pnt_Info<br>Dim szStr As String</P>
<P>Dim PntAi As PntArea<br>Set PntAi = New PntArea<br>'加载China.wt文件到工作区<br>bRes = PntAi.Load("China.wt")<br>If bRes = True Then<br>End If<br>MsgBox "China.wt点文件已成功加载！", vbInformation<br>' 添加一个二维点</P>
<P>pntinfo.type=1////////子图<br>lRes = PntAi.Append(xy, "", PntInfo)<br>Debug.Print "最后一个点实体号为:"; lRes</P>
<P>不知道Pntinfo对象中怎样设置子图号等点参数,还是用别的方法?高手帮帮忙!在下在此感谢了!!!!!</P>

自己先顶一下希望大虾给指教

<P>Set PntInfo = New Pnt_Info</P>
<P>With PntInfo<BR>                  .sub.subNo = 子图号</P>
<P>                  .sub.Height = 子图高</P>
<P>                  .sub.Width = 子图宽</P>
<P>                  .iclr = 子图颜色</P>
<P>                  .layer = 图层</P>
<P>bRes = Pntai.UpdateInfo(i, PntInfo)写入参数</P>