Mais

O que há de errado com a formatação da minha etiqueta?


Tenho alguns problemas de formatação com minhas etiquetas. Estou usando uma expressão bastante direta (veja abaixo). Funciona bem, mas alguma formatação está sendo ignorada, nomeadamente as tags ALL CAPS ACP. Todos os nomes de proprietários estão em minúsculas com a primeira letra em maiúscula. Quero exibi-los em maiúsculas e apenas ALGUMAS etiquetas saem com os proprietários em maiúsculas. Também estou usando tags de itálico quando existe um valor de número de declaração e isso funciona bem.

Outro problema é que embora eu seja NÃO espalhando personagens em Maplex, alguns rótulos, mas nem todos, têm nomes de proprietários espalhados, mas estranhamente não os números PIN e números de declaração, todos parte de uma única variável de string.

Existem outros problemas com Stacking Labels no Maplex que não parecem empilhar corretamente ao usar o Stacking Separator, mas vamos ignorar isso para esta questão.

Existe uma maneira de corrigir isso ou preciso exportar para anotações e corrigir manualmente?

Função FindLabel ([Proprietário], [MNDMF_Active_Mining_Claims_CLAIM_NUM], [PIN], [PIN_Surface], [PIN_Mining]) FindLabel = "" se não for nulo ([Proprietário]), se trim ([Proprietário]) <> "" então FindLabel = FindLabel & trim ("" & [Proprietário] & "") end if end if not isnull ([MNDMF_Active_Mining_Claims_CLAIM_NUM]) then if trim ([MNDMF_Active_Mining_Claims_CLAIM_NUM]) <>" "then if len (FindLabel)> 0 then FindLabel = FindLabel & vbnewline end if FindLabel =""&" Reivindicação: "& [MNDMF_Active_Mining_Claims_CLAIM_NUM] &""end if end if if not isnull ([PIN]) then if trim ([PIN]) <>" "then if len (FindLabel)> 0 then FindLabel = FindLabel & vbnewline end if FindLabel = FindLabel & trim ([PIN] ) end if end if if not isnull ([PIN_Surface]) then if trim ([PIN_Surface]) <> "" then if len (FindLabel)> 0 then FindLabel = FindLabel & vbnewline end if FindLabel = FindLabel & trim ([PIN_Surface] ) & "S" end if end if if not isnull ([PIN_Mining]) then if trim ([PIN_Mining]) <> "" then if len (FindLabel)> 0 then FindLabel = FindLabel & vbnewline end if FindLabel = FindLabel & trim ([PIN_Mining]) e "M" terminam se terminam se End Function

Ambos "<" e "&" são caracteres especiais que fazem com que a formatação falhe se estiverem em suas cadeias de texto. Você deve substituí-los em seu código desta forma:

Função FindLabel ([LABELFIELD]) NewString = Replace ([LABELFIELD], "&", "&") FindLabel = ""& NewString &""Função final

Há mais informações sobre formatação na documentação de ajuda


Assista o vídeo: Etykiety (Outubro 2021).