السلام عليكم
اذا كنت تريد شئ خاص ب labeling
فعليك استخدام Extension Maplex
the Maplex Label Engine
يوجد له toturial
----------------------------------------
[align=left]Expression examples
"Parcel no: " & [PARCELNO]
- To field called Area rounded to one decimal place:
Round ([AREA], 1)
- To convert your text labels to all uppercase or lowercase, use the VBScript UCase and LCase functions. For example, this expression makes a Name field all lower case:
LCase ([NAME])
- To convert your text labels to proper case use a combination of the VBScripts UCase and LCase. For example, this expression takes a Name field that is in all capitals and makes it proper case. It will handle multiple words in the field.
Function FindLabel([Name])
var = [Name]
splitStr = Split(var, chr(32))
for i = 0 to UBound(splitStr)
tmpStr = Trim(splitStr(i))
if len(tmpStr) > 0 then tmpStr = UCase(Left(tmpStr,1)) & LCase(Right(tmpStr, Len(tmpStr) -1))
splitStr(i) = tmpStr
next
ProperCase = join(splitStr, " ")
FindLabel = ProperCase
End Function
- To create stacked text, use the VBScript vbNewLine or vbCrLf constants between the field names:
"Name: " & [NAME] & vbNewLine & [ADDRESS_1] & vbNewLine & [ADDRESS_2]
- Use the VBScript format functions to format your labels. For example, this expression displays the label as currency:
"Occupancy Revenue: " & FormatCurrency ([MAXIMUM_OC] * [RATE])
- This VBScript function finds labels cities with their name if their population exceeds 250,000:
Function FindLabel ([NAME], [POPULATION])
if ([POPULATION] > 250000) then
FindLabel = [NAME]
end if
End Function[/align]
رد مع اقتباس