10-fraction annotation of ArcGIS

ArcGIS was installed a few days ago. 10The trial version is very good. In the 9 series ArcGIS, the topic of fractional annotation has always plagued me. If the topic of fractional annotation is not subfraction, the effect is good, but if it is subfraction, the numerator has been unable to adjust the midpoint of the score line one by one. I wonder if you have encountered this problem. ArcGIS was installed a few days ago. 10After the trial version, I tried it and solved the problem all at once. I was pleasantly surprised and could not help but share it with you.
The following is the fraction code I wrote. The molecular field is [sz1c], the integer field is [xbh], and the denominator field is [MJ]:
Function findlabel ([xbh], [MJ], [sz1c])
Dim
A = Len ([xbh])
Findlabel = space () & "<fnt name = 'body_gb2312 '>" & [sz1c] & "</fnt>" & vbnewline & [xbh] & "--" & vbnewline & Space () & [MJ]
End Function
Download(17 KB)

Download(52.43 KB)

4

Rating times

• Money + 2

  Cxli068

• Thanks for sharingMoney + 10

  Tj051181

• I agree.Money + 5

  Surveyboy

• Hard workMoney + 4

  Lang in the north

• Thanks to myfwhy and lucy1114, we have finally solved the problem. "<CHR spacing =''> "& string (a," ") &" </CHR> "you can adjust the position of the numerator on the score line when marking, space (a) cannot. Both of them can be used to adjust the position of the denominator under the score line. But when the split line width is double, no matter how you adjust the value of A in the labeling status, "<CHR spacing =''> "& string (,"") & "</CHR>" neither can enable the numerator to be positive to the midpoint of the score line, nor can it be converted to a note. While space (a) cannot enable the numerator to be positive to the midpoint of the score line, however, after being converted to a note, the split line can be aligned with the midpoint of the split line no matter how wide the split line is. Therefore, I chose annotations to mark elements. The Code is as follows:
  Function findlabel ([xbh], [MJ], [sz1c])
  Dim a, B, c, d
  A = Len ([xbh])
  B = Len ([MJ])
  C = Len ([sz1c])
  If (B> C) then
  D = B
  Else
  D = C
  End if
  Findlabel = space () & "<fnt name = 'body_gb2312 '>" & [sz1c] & "</fnt>" & vbnewline & [xbh] & string (D * 0.6, "-") & vbnewline & Space (a) & [MJ]
  End Function
  As follows:
  

  Download(22.62 KB)
  Download(27.32 KB)

  This code was tried in 9.2 last night.10.

From http://bbs.esrichina-bj.cn/ESRI/viewthread.php? Tid = 76195 & Highlight = ArcGIS % 2b10