[讨论]如何为通过一点point创建的三个扇形进行标注？

<P>通过一个给定的经纬度（x，y），可以创建三个扇形区域，方位角分别相差120度，扇形角度60度。 我想为每一个扇形进行标注显示，请问如何显示呢？？？</P>
<P>比如显示：扇区1、扇区2、扇区3，分别在各自的扇形朝向显示。我现在的标注总是标注在圆心上面。</P>
<P>请坛子里的xd帮忙出招。谢谢了！最近坛子里的人气不旺啊。。。</P><img src="images/post/smile/dvbbs/em11.gif" /><img src="images/post/smile/dvbbs/em11.gif" /><img src="images/post/smile/dvbbs/em11.gif" /><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" />

你的扇区是线，还是区域，标注的位置是可以控制的

<P>根据一个点创建的三个扇形区域，扇形区域根据需要进行了颜色填充的。如何控制标注位置呢？？</P>
<P>比如说(x,y)一点，我创建了3个扇形区域对象，每个区域都想都有自己的field值。</P>

<P>请问你的扇形是怎么画出来的,能说说吗?</P>

<P>回楼上的xd，当然可以说说了，思路如下：</P>
<P>1、通过给定坐标(x,y)，首先创建一个圆形区域feature＝FeatureFactory.CreateCircularRegion 方法，圆形的半径你自己确定</P>
<P>2、在通过给定点，创建一个三角形区域（FeatureFactory.CreateRegion 方法）pt1(x,y),pt2(x,y),pt3(x,y)这个三角形大一点，扇形角度通过它控制，然后和圆形取交集就可以了。FeatureFactory.IntersectFeatures 方法。具体pt2/pt3你可以根据需要定位到指定位置，比如利用sin/cos函数等等计算出它的位置就行。</P>
<P>如有疑问，欢迎讨论交流！</P>

能把代码给出来吗?或发到我邮箱(<a href="mailthl130@163.com" target="_blank" >hl130@163.com</A>), 谢谢！！我画过，但是三扇区不是很一致。

<P>  On Error GoTo UpdateErr<BR>    <BR>  <BR>    Dim Daytem1 As String<BR>    Dim Monthtem1 As String<BR>    Dim Yeartem1 As String<BR>    Dim Time1 As String</P>
<P>    <BR>    Daytem1 = Day(DTPicker1.Value)<BR>    Monthtem1 = Month(DTPicker1.Value)<BR>    Yeartem1 = Year(DTPicker1.Value)</P>
<P>    <BR>    If Val(Daytem1) >= 0 And Val(Daytem1) <= 9 Then Daytem1 = "0" ; Daytem1<BR>    If Val(Monthtem1) >= 0 And Val(Monthtem1) <= 9 Then Monthtem1 = "0" ; Monthtem1<BR>    If Val(Yeartem1) >= 0 And Val(Yeartem1) <= 9 Then Yeartem1 = "0" ; Yeartem1<BR>    Time1 = Yeartem1 ; Monthtem1 ; Daytem1<BR>  <BR>  <BR>  faulty_reg.Recordset.Fields("设备编号").Value = datPrimaryRS.Recordset.Fields("设备编号").Value<BR>  faulty_reg.Recordset.Fields("直放站名").Value = datPrimaryRS.Recordset.Fields("直放站名").Value<BR>  faulty_reg.Recordset.Fields("类型").Value = datPrimaryRS.Recordset.Fields("类型").Value<BR>  faulty_reg.Recordset.Fields("设备厂商").Value = datPrimaryRS.Recordset.Fields("设备厂商").Value<BR>  faulty_reg.Recordset.Fields("设备型号").Value = datPrimaryRS.Recordset.Fields("设备型号").Value<BR>  faulty_reg.Recordset.Fields("覆盖场所").Value = datPrimaryRS.Recordset.Fields("覆盖场所").Value<BR>  faulty_reg.Recordset.Fields("主从类型").Value = datPrimaryRS.Recordset.Fields("主从类型").Value<BR>  faulty_reg.Recordset.Fields("故障次数").Value = 1<BR>  faulty_reg.Recordset.Fields("故障时间").Value = Val(Time1)<BR>  <BR>  faulty_reg.Recordset.UpdateBatch adAffectAll<BR>    cmdAdd.Enabled = True<BR>    cmdUpdate.Enabled = False<BR>    cmdRefresh.Enabled = False<BR>    cmdClose.Enabled = True<BR>  Exit Sub<BR>UpdateErr:<BR>  MsgBox Err.Description</P>

我是通过上面给图元属性值的。

<P>OK.回头我整理一下，给你贴代码出来。看来你是做直放站GIS维护管理软件？我是做网络规划优化数据分析软件。</P>
<P>以前用VB的，现在专用VC了。</P>

你图元的标注是如何控制位置的？