Autolisp para somar linhas

[Silaspr]

Olá pessoal, estou precisando de uma Ajuda.
Preciso de uma Autolisp que some a distancia de um ponto a outro e que vá acumulando a somatoria dos pontos Clicados.

Eu consegui a Lisp - DISTAC, mas ela quando clica num ponto vc não pode clicar em pontos distintos pois ela funciona como uma polyline.

A lisp q eu preciso por exemplo se eu tiver 10 linhas em paralelo clico no ponto inicial da primeira linha e no fim da mesma ele acumula uma distância na segunda a mesma coisa e no fim dou enter e ela da a distância total das linhas.

[CarlosAbreu]

bom... tem esse lisp q soma as distancias das linhas selecionando elas

(defun c:ctotal (/ n ss soma ent)

(tbn:error-init nil)
(setq ss (ssget '((0 . "LINE,SPLINE,ARC,LWPOLYLINE,POLYLINE,ELLIPSE")))
n 0
soma 0.0)
(repeat (sslength ss)
(setq ent (ssname ss n)
n (1+ n)
soma (+ soma (vlax-curve-getdistatparam ent
(vlax-curve-getendparam ent)) ))
)
(prompt (fnum soma 3))
(tbn:error-restore))

;;;;;;;;;;;;;;;;;;;;;;;

(defun tbn:error-init (sys / tmp ss cmd)
(defun-q-list-set 'tbn:error_exe (list nil (cadr sys)))
(setq tbn:olderr *error*
*error* (lambda (s)
(setq yy s)
(if (/= s "Function cancelled")
(prompt (strcat "\nError: " s)))
(if (/= (getvar "cmdnames") "")
(command))
(tbn:error_exe)
(tbn:error-restore))
sys (car sys)
tbn:sysvars nil
tbn:error-undo (getvar "undoctl")
ss (ssgetfirst)
cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)
(cond ((= 2 (logand tbn:error-undo 2))
(command "_.undo" "_control" "_all"
"_.undo" "_auto" "_off"))
((/= 1 (logand tbn:error-undo 1))
(command "_.undo" "_all"
"_.undo" "_auto" "_off")))
(command "_.UNDO" "_group")
(setvar "cmdecho" cmd)

(repeat (/ (length sys) 2)
(setq tmp (car sys)
tbn:sysvars (cons (list tmp (getvar tmp))
tbn:sysvars)
tmp (setvar tmp (cadr sys))
sys (cddr sys)))
(sssetfirst (car ss) (cadr ss)))


(defun tbn:error-restore (/ cmd)
(setq *error* tbn:olderr)
(foreach x tbn:sysvars (setvar (car x) (cadr x)))
(redraw)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.UNDO" "_e")
(cond ((/= 1 (logand tbn:error-undo 1))
(command "_.undo" "_control" "_none"))
((= 2 (logand tbn:error-undo 2))
(command "_.undo" "_control" "_one")))
(setvar "cmdecho" cmd)
(princ))

;|formata um numero real em uma string com f casas decimais
e com separador de milhar, exemplo:
(fnum 123456789.123456789 3)|;
(defun fnum (num f / int pos fp)
(setq int (rtos num 2 f)
pos (vl-string-search "." int)
pos (if pos pos (strlen int))
fp (substr int (+ pos 2) (strlen int))
int (substr int 1 pos))
(while (< (strlen fp) f) (setq fp (strcat fp "0")))
(repeat (/ pos 3)
(setq int (strcat (substr int 1 (- pos 3))
"."
(substr int (- pos 2) (strlen int)))
pos (- pos 3)))
(vl-string-left-trim "."
(if (zerop f) int (strcat int "," fp))))

(defun tbn:error-init (sys / tmp ss cmd)
(defun-q-list-set 'tbn:error_exe (list nil (cadr sys)))
(setq tbn:olderr *error*
*error* (lambda (s)
(setq yy s)
(if (/= s "Function cancelled")
(prompt (strcat "\nError: " s)))
(if (/= (getvar "cmdnames") "")
(command))
(tbn:error_exe)
(tbn:error-restore))
sys (car sys)
tbn:sysvars nil
tbn:error-undo (getvar "undoctl")
ss (ssgetfirst)
cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)
(cond ((= 2 (logand tbn:error-undo 2))
(command "_.undo" "_control" "_all"
"_.undo" "_auto" "_off"))
((/= 1 (logand tbn:error-undo 1))
(command "_.undo" "_all"
"_.undo" "_auto" "_off")))
(command "_.UNDO" "_group")
(setvar "cmdecho" cmd)

(repeat (/ (length sys) 2)
(setq tmp (car sys)
tbn:sysvars (cons (list tmp (getvar tmp))
tbn:sysvars)
tmp (setvar tmp (cadr sys))
sys (cddr sys)))
(sssetfirst (car ss) (cadr ss)))


(defun tbn:error-restore (/ cmd)
(setq *error* tbn:olderr)
(foreach x tbn:sysvars (setvar (car x) (cadr x)))
(redraw)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.UNDO" "_e")
(cond ((/= 1 (logand tbn:error-undo 1))
(command "_.undo" "_control" "_none"))
((= 2 (logand tbn:error-undo 2))
(command "_.undo" "_control" "_one")))
(setvar "cmdecho" cmd)
;;;;;;;;;;;;;;;;;;

(princ))

[Silaspr]

Sim essa eu tenho, mas qual eu quero é um pouco diferente dessa. Obrigado

[luislhss]

Bom dia,

Não seria mais interessante que você pudesse selecionar as linhas distintas e já acumulasse as distâncias?

No fórum da Grapho tem algo similar:

http://www.grapho.com.br/forum/show.asp?Grupo=4&MsgID=GM 12312

[luislhss]

Eu achei essa aqui, veja se lhe serve:

Rotina para calcular a distância acumulada entre vários pontos. Pede o clique acumulando o valor a cada clique.
Origem: AditivoCAD - www.aditivocad.com
Arquivo: distac.zip
Tamanho: 2 KB
http://www.aditivocad.com/arquivos/rotinas/distac.zip

Faz a soma dos comprimentos de linhas, arcos, Plines, Splines, seleccionados.
Origem: CADblocos - www.cadblocos.arq.br
Arquivo: totlen.zip
Tamanho: 2 KB
http://www.cadblocos.com.br/downloads/lisp/totlen.zip

[Silaspr]

Luislhss o DISTAC é um lisp que fica proximo do que eu preciso, mas ao invés dele funcionar como se fosse uma polyline pra acumular, a lisp que eu busco tem que somar dois pontos distintos e ir acumulando de dois em dois pontos.

Alguém consegue editar a Lisp Distac?

[LuKlein]

Eu fiz essa há alguns anos quando comecei a brincar com lisp:

[LuKlein]

Eu fiz essa há alguns anos quando comecei a brincar com lisp:

[Silaspr]

Obrigado Lú

É dessa que estava precisando, só que preciso que se repita mais vezes.

Mas mesmo assim obrigado.

[neyton]

hehehe, legal ver a minha rotina por aqui!!!

[CarlosAbreu]

ohh neyton... desculpa.... esqueci mesmo de botar os creditos
foi mal