AutoCAD - Português

Responder
Active Contributor
Envios: 29
Registrado: ‎11-04-2008
Mensagem 11 de 14 (176 Exibições)

Aplicativo em anexo para contagem de textos

04-02-2010 04:16 PM em resposta a: rodrigoeleide
Em anexo, aplicativo para listagem em planilha Excel, de textos de doc. Auto-cad presentes em pasta definida. No anexo temos um texto em pdf para orientação de uso e um arquivo dvb para instalação.

Apesar da demora, penso que ainda pode ser útil a muitas pessoas. A totalização de textos semelhantes, através do próprio excel, não é difícel.

Atenciosamente.

Ticiano

Edited by: KLUG-VBA on Apr 2, 2010 11:41 PM Edited by: KLUG-VBA on Apr 2, 2010 11:45 PM
New Member
Envios: 1
Registrado: ‎03-26-2012
Mensagem 12 de 14 (81 Exibições)

Re: Aplicativo em anexo para contagem de textos

03-26-2012 08:12 AM em resposta a: KLUG-TICIANO

Prezado bom dia, 

 

Sou novo por aqui e aprendendo a usar o CAD.

Tal ferramenta seria muito útil para mim mas não consigo instalá-la em minha máquina.

Quando faço: Localizar a pasta de arquivos anterior e selecionar o arquivo FÓRUM_CAD_LISTAR_01.dvb me deparo com o erro "Unable to unload the file". independente do local que eu deixo esse arquivo. Preciso saber quantas palavras um CAD possui para que possamos fazer uma cotação de tradução.

Minha necessidade é somente saber quantas palavras o CAD possui, pode me ajudar?

 

Muito grato, 

 

Coutinho

Active Contributor
Envios: 29
Registrado: ‎11-04-2008
Mensagem 13 de 14 (70 Exibições)

Re: Aplicativo em anexo para contagem de textos

03-28-2012 04:05 PM em resposta a: VSCOUTINHO

Caros colegas

 

Abaixo aplicativo para contar objetos, entidades, no documento.

========================================================================

Sub CONTAR_OBJETOS()
Dim A(50, 2)
Dim OBJ As AcadObject
aux01 = 1
On Error Resume Next
For Each OBJ In ThisDrawing.Application.ActiveDocument.ModelSpace
        For I1 = 0 To aux01
        If A(I1, 0) = OBJ.ObjectName Then GoTo 100
        If A(I1, 0) <> "" Then GoTo 50
        A(I1, 0) = OBJ.ObjectName
        A(I1, 1) = A(I1, 1) + 1
        aux01 = aux01 + 1
        GoTo 200
50         Next I1
100 A(I1, 1) = A(I1, 1) + 1
200 Next
For i2 = 0 To aux01
    If Len(A(i2, 0)) <= 8 Then GoTo 300
    S1 = S1 & Chr(10) & A(i2, 0) & Chr(9) & A(i2, 1)
    GoTo 400
300      S1 = S1 & Chr(10) & A(i2, 0) & Chr(9) & Chr(9) & A(i2, 1)
400 Next
MsgBox S1
End Sub

========================================================================

VSCoutinho, Solicito-lhe relatar melhor a "dificuldade" que teve ao carregar o aplicativo "FORUM........dvb".

 

No momento faço dicionário de frases presentes em pastas de arquivo com 1000, 5000, 10000 documentos, e em quais documentos a mesma frase aparece, em bloco.

Na mesma planilha excel faço um dicionário de palavras retiradas das frases anteriores e em quais documentos a mesma palavra aparece, em bloco.

Após verificação destas palavras, palavras erradas são marcadas de "amarelo" - análise pessoal (interativo). Em seguida gera-se uma coluna com os documentos que possuem palavras amareladas e na coluna ao lado o grupo de palavras "erradas", de tal forma que ao abrir cada documento por "hyperlink" podemos corrigir os erros mais facilmente,, abrindo cada documento uma única vez.

Dependendo pode-se fazer a correção automaticamente, através do "handle" de cada palavra, de cada documento, o que já utilizao.

 

Talvez apenas a sub-rotina acima já atenda suas necessidades.

 

Sucesso!!

Active Contributor
Envios: 29
Registrado: ‎11-04-2008
Mensagem 14 de 14 (46 Exibições)

Re: Aplicativo para contagem de entidades no doc

03-30-2012 09:56 PM em resposta a: KLUG-TICIANO

Caros colegas

Abaixo aplicativo com melhoria na caixa de mensagem, em relação ao enviado dia 28-03-12, para contar objetos, entidades, no documento.

==================================================​======================

Sub CONTAR_OBJETOS()

Dim A(50, 2)

Dim obj As AcadObject

AUX01 = 1

On Error Resume Next

For Each obj In ThisDrawing.Application.ActiveDocument.ModelSpace

        For I1 = 0 To AUX01

        If A(I1, 0) = obj.ObjectName Then GoTo 100

        If A(I1, 0) <> "" Then GoTo 50

        A(I1, 0) = obj.ObjectName

        A(I1, 1) = A(I1, 1) + 1

        AUX01 = AUX01 + 1

        GoTo 200

50         Next I1

100 A(I1, 1) = A(I1, 1) + 1

200 Next

S1 = "QUANT" & Chr(9) & "OBJETOS" & Chr(10)

For I2 = 0 To AUX01

    TOT = TOT + 1

    S1 = S1 & Chr(10) & A(I2, 1) & Chr(9) & A(I2, 0)

If TOT < 10 Then GoTo 400

MsgBox S1

S1 = "QUANT" & Chr(9) & "OBJETOS" & Chr(10)

TOT = 0

400 Next

MsgBox S1

1000 End Sub==================================================​======================

 

Com pequenas melhorias esta rotina pode ser útil para transferir as informações para planilha excel. Mas este não é o caso no momento.

 

No momento faço dicionário de frases presentes em pastas de arquivo com 1000, 5000, 10000 documentos, e em quais documentos a mesma frase aparece, em bloco, e quantas vezes aparece.

Na mesma planilha excel faço um dicionário de palavras retiradas das frases anteriores e em quais documentos a mesma palavra aparece em bloco, e quantas vezes aparece.

Após verificação destas palavras, palavras erradas são marcadas de "amarelo" - análise pessoal (interativo). Em seguida gera-se uma coluna com os documentos que possuem palavras amareladas, um doc em cada linha, e na coluna ao lado o grupo de palavras "erradas", de tal forma que ao abrir cada documento por "hyperlink" , que também é inserido em uma coluna, podemos corrigir os erros mais facilmente, abrindo cada documento uma única vez.

Dependendo pode-se fazer a correção automaticamente, através do "handle" de cada palavra, de cada documento, o que já utilizo. 

Talvez apenas a sub-rotina acima já atenda as necessidades de muitos usuários.

Sucesso!!

Klug@uai.com.br

You are not logged in.

Faça login no seu perfil de acesso para perguntar e responder questões, compartilhar ideias e muito mais. Não se inscreveu ainda? Registrar

Comunicados
Welcome to the new Autodesk Community!
If this is your first visit, click here to get started and make the most of the Community. Let us know what you think of the new experience in the Community Feedback Forum.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Pergunte a Comunidade