المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : اريد ن كتب lable على سطرين



اشرف عزت
04-22-2010, 03:07 PM
اريد ن كتب lable على سطرين فى arc9.1
علماً بانى اعمل على shape وليس geodatabase
افيدونى افادكم الله وزادكم من علمة

علي طلبه
04-22-2010, 05:02 PM
يعني ايه علي سطرين
يا ريت توضح هل مطلوب تظر اتنين Lable
ام ماذ تريد

مختار الحسانين
04-22-2010, 05:38 PM
أضغط على enter

هذا ما فهمته

مهندس جيولوجي ابراهيم العمري
04-24-2010, 10:16 AM
اخي الكريم أنظر المشاركة التالية بها شرح لما تريد ولا اعتقد ان هناك اختلاف بين ArcGIS9.3 و ArcGIS9.1
درس كيفية إظهار Labels (http://www.gisclub.net/vb/showthread.php?t=5890)

--------------------------------------------------------------------------------
وتقبل خالص تحيتي

محمد حمود
04-26-2010, 11:27 AM
اضغط على expression ثم اكتب:
field1 & vbnewline & field2

بدل field1 و field2 اكتب اسماء الحقول التي تريد استخدامها.

سنان هادي
04-26-2010, 12:58 PM
بعد الدخول على نافذة Expression اكتب المعادلة التالية
[field] & chr(13) & [field]

حيث تضع بدل Field الحقول التي تريد ان تظهرها كل واحدة في سطر

بهجت يوسف الجعافرة
04-27-2010, 11:26 AM
السلام عليكم
اذا كنت تريد شئ خاص ب labeling
فعليك استخدام Extension Maplex


the Maplex Label Engine
يوجد له toturial
----------------------------------------

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