AutoCAD - Português

AutoCAD - Português

Responder
Active Contributor
KLUG-TICIANO
Envios: 29
Registrado: ‎11-04-2008
Mensagem 11 de 14 (183 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
VSCOUTINHO
Envios: 1
Registrado: ‎03-26-2012
Mensagem 12 de 14 (88 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
KLUG-TICIANO
Envios: 29
Registrado: ‎11-04-2008
Mensagem 13 de 14 (77 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
KLUG-TICIANO
Envios: 29
Registrado: ‎11-04-2008
Mensagem 14 de 14 (53 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

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Comunicados
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.