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
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!!
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
Não encontrou o que está procurando? Pergunte à comunidade ou compartilhe seu conhecimento.