-
Notifications
You must be signed in to change notification settings - Fork 0
/
pid-num.lxp
57 lines (57 loc) · 2.99 KB
/
pid-num.lxp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
F U N C T I O N F I N D L A B E L ( [ A c c t N m b ] , [ p r o p _ i d ] , [ s h a p e _ a r e a ] )
' R E P L A C E S P E C I A L C H A R A C T E R S
P N A M E M O D = R E P L A C E ( [ p r o p _ i d ] , " > " , " & g t ; " )
P N A M E M O D = R E P L A C E ( [ p r o p _ i d ] , " < " , " & l t ; " )
' A C R E A G E O F P O L Y G O N
A C = [ s h a p e _ a r e a ] / 4 3 5 6 0
R N D _ N U M = 4
I F [ p r o p _ i d ] > 0 T H E N
L A B E L = P N A M E M O D
E N D I F
S E L E C T C A S E S I Z E
C A S E [ s h a p e _ a r e a ] > = 1 5 0
F I N D L A B E L = " < C L R B L U E = ' 6 4 ' G R E E N = ' 6 4 ' > " & " < F N T S C A L E = ' 1 0 0 ' > " & L A B E L & " < / F N T > " & " < / C L R > "
C A S E [ s h a p e _ a r e a ] > = 1 5 0 0
F I N D L A B E L = " < F N T S C A L E = ' 5 0 ' > " & L A B E L & " < / F N T > "
C A S E [ s h a p e _ a r e a ] > = 3 0 0 0
F I N D L A B E L = " < F N T S C A L E = ' 7 5 ' > " & L A B E L & " < / F N T > "
C A S E [ s h a p e _ a r e a ] < = 4 3 5 6 0 0
F I N D L A B E L = " < F N T S C A L E = ' 2 0 0 ' > " & L A B E L & " < / F N T > "
C A S E [ s h a p e _ a r e a ] < = 5 8 0 8 0 0
F I N D L A B E L = " < F N T S C A L E = ' 4 0 0 ' > " & L A B E L & " < / F N T > "
C A S E [ s h a p e _ a r e a ] < = 2 1 7 8 0
F I N D L A B E L = " < F N T S C A L E = ' 1 5 0 ' > " & L A B E L & " < / F N T > "
C A S E E L S E
F I N D L A B E L = " < F N T S C A L E = ' 1 0 0 ' > " & L A B E L & " < / F N T > "
E N D S E L E C T
E N D F U N C T I O N