Ricardo A. : Sei não cara...

(Eu sei que a resposta não foi muito útil. Ela foi só pra quebrar o "silêncio"...)  16:17

Marcelus Giovanni Zalotti: Tom-B continua fora do ar. Alguém sabe mais alguma coisa a respeito disso, como por exemplo quando ele vai voltar com o blog? Tentei enviar um e-mail para ele nesses dias, só que o próprio endereço não está funcionando…  06:41

Marcelus Giovanni Zalotti: Desenvolvendo plugins?  06:27

Alexandre B A V: {*******}
Procedure ContadorDeObjetos;
{*******}
VAR
Resultado : INTEGER;
objectName,objectClass : STRING;
ALHand : HANDLE;
objectHand, recordHand, wallHand: HANDLE;
{-------}
Procedure ContaObjeto (H:HANDLE);
{-------}
VAR
Flag1, Flag2 : BOOLEAN;
BEGIN
Flag1:=TRUE;
IF pNestaCamada AND (GetLayer(H)<>GetLayer(objectHand)) THEN Flag1:=FALSE;
Flag2:=TRUE;
IF pDestaClasse AND (GetClass(H)<>objectClass) THEN Flag2:=FALSE;
IF Flag1 AND Flag2 THEN Resultado:=Resultado+1;
{--------}
END;
{--------}
BEGIN
ALHand:=ActLayer; {Guarda Layer ativa}
IF GetCustomObjectInfo(objectName, objectHand, recordHand, wallHand) THEN BEGIN
IF GetLayer(objectHand)<>NIL THEN BEGIN {Se descobrir em que Layer está o objeto: }
Layer(GetLName(GetLayer(objectHand))); {Torne ativa a Layer deste objeto }
END;
END;
Symbol(pNomeDoSimbolo,0,0,0); {desenha exemplar do símbolo a ser contado}
Resultado:=0; {inicializa variável de contagem}
ForEachObject ( ContaObjeto, ((S= pNomeDoSimbolo) & (NOT (R IN [objectName]))) ); {testa com a função ContaObjeto (à qual é passado um "handle") cada objeto do desenho satisfazendo os critérios S e R }
BeginText;
Concat(Resultado)
EndText;
Layer(GetLName(ALHAnd));
{*******}
END;
{*******}
Run(ContadorDeObjetos);  23:29

Ricardo A. : Tá uma coisa de louco... todo mundo lê mas ninguém tem tempo pra escrever...  12:06