Somar comprimento de várias linhas - Autocad 2015

[Anonymous]

Bom dia,

Gostaria de saber se existe alguma maneira de somar automaticamente comprimentos de várias linhas.

Até ao AutoCad 2014, usava uma rotina LISP que fazia o pretendido (SOMAPER), mas no AutoCad 2015 não funciona.

O programa devolve-me a seguinte mensagem de erro: 

Requires numeric distance, two points, or option keyword.
; error: Function cancelled

Desde já agradeço a ajuda

[rpscmail]

Tenho o Autocad 2014 para Mac e quero a medida total de várias linhas do desenho sem ter que medir uma a uma como estou a fazer agora, obrigado.

[hmsilva]

Olá rpscmail, tenta a rotina que eu postei na mensagem 7 (penso que é a 7).
Comando APPLOAD para carregar a rotina.
Espero que ajude.
Henrique

[Anonymous]

Bom dia,

Me passa seu email, que te envio uma lisp pra soma de polilinhas.

[rpscmail]

rpscolx@gmail.com

[rpscmail]

Perfeito, muito obrigado, acho que vou conseguir recuperar a minha cor de cabelo original, obrigado.

[Anonymous]

 Como faço para poder selecionar mais de uma vez uma mesma linha sem dar (duplicate), se puder me ajudar ficaria muito grato!!

[Anonymous]

Como selecionar mais de uma vez uma mesma linha sem dar (duplicate), poderia me ajudar, ficaria muito grato!

[rpscmail]

- Penso que o que pretende fazer não será o que eu tinha em dúvida.
O que postei foi como somar o comprimento de várias linhas, é isso que pretende?

[Anonymous]

@Anonymous Como sua dúvida é diferente do post feito anteriormente você pode e deve iniciar uma nova discussão, isso te ajudará a encontrar uma resposta mais rápido e também ajudará outros usuários com a mesma duvida.

[Anonymous]

Olá Henrique,

utilizo o Autocad 2017 e usava o "somaper" que começou a dar-me alguns problemas então criei esse comando lisp "Compt" que você indicou.

Acontece que quando seleciono as linhas me dá este erro:

; error: no function definition: VLAX-CURVE-GETENDPARAM

Alguma sugestão?

Obrigado

[f_santana]

você tentou informar no começo da sua rotina que estaria utilizando funções VL?
em algumas versões isso era necessário colocando a linha (vl-load-com)

[Anonymous]

Esse é o file que tenho

(defun c:compt (/ comp compt ent i ss)
  (vl-load-com)
  (if (setq ss (ssget '((0 . "ELLIPSE,LWPOLYLINE,POLYLINE,SPLINE,LINE,ARC,CIRCLE"))))
    (progn
        (setq compt 0.0)
    (repeat (setq i (sslength ss))
            (setq ent (ssname ss (setq i (1- i)))
    comp (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent))
    compt (+ comp compt)
            )
      )
    (princ (strcat "\nComprimento total: " (rtos compt)))
    )
    )
  (princ)
  )

[hmsilva]

Olá Duarte,

infelizmente não consigo reproduzir o erro que te dá, não tenho o 2017, mas testei no 2018...

Tenta num dwg novo fazer uma linha, faz o load do *.lsp e testa.

Funcionou?

Espero que ajude
Henrique

[Anonymous]

Não tá funcionando.

Acha que tem alguma coisa com o Autocad?

testei agora outra rotina lsp que sempre uso sem qualquer problema e também ta dando erro...

[f_santana]

da uma olhada neste trecho de uma rotina que eu desenvolvi

(setq _name (cdr (assoc -1 cris))
   cris (vlax-ename->vla-object _name)
   ccris (vlax-curve-getDistAtParam cris (vlax-curve-getEndParam cris))
)

eu peguei o nome do objeto utilizando um comando VL também.

[Anonymous]

me da esse erro aqui Fábio

; error: no function definition: VLAX-ENAME->VLA-OBJECT

[hmsilva]

---

@Anonymous  escreveu:

Não tá funcionando.

Acha que tem alguma coisa com o Autocad?

testei agora outra rotina lsp que sempre uso sem qualquer problema e também ta dando erro...

---

Tenta reiniciar o AutoCAD, pode ter existido algum erro no arranque.

Depois de arrancar abre um dwg novo, faz o load do ficheiro de lsp e testa...

Espero que ajude
Henrique

[Anonymous]

Já reiniciei o autocad,

Já reiniciei o laptop,

Já fiz Reset Settings to default no Autocad,

e continua sem funcionar.

Tou vendo que vou ter de desinstalar e instalar de novo

[hmsilva]

Antes de reinstalar, tenta apenas a solução apresentada aqui,
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/error-no-function-definition-vlax-en...
alterando para o AutoCAD 2017

Henrique

[Anonymous]

Já testei Henrique,

Não tinha a linha criada, então eu criei e indiquei o caminho do ficheiro na pasta Autocad 2017, mas não deu certo.

Vou re-instalar de novo, não tem outro jeito,

Valeu Henrique e Fábio pelo apoio.