Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Muchiísima gracias por su aporte
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Gracias!!! Me viene perfectos
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Aqui un codigo para sumar Lineas, Polilineas, Arcos, Circulos, Elipses, Spline, 3dpoly
https://i11.servimg.com/u/f11/19/74/94/95/sumall10.gif
Code:
(defun c:SUMALL(/ fList firSet entSet filOut entList totLen)
(vl-load-com)
(setq fList '((-4 . "<OR")(0 . "*LINE")(0 . "CIRCLE")
(0 . "ARC")(0 . "ELLIPSE")(-4 . "OR>")
(-4 . "<NOT")(0 . "MLINE")(-4 . "NOT>"))
filOut 0
); end setq
(if
(not
(and
(setq firSet(ssget "_I")
entSet(ssget "_I" fList)
); end setq
); end and
); end not
(progn
(princ "\n<<< Seleccione entidades para calcular la longitud Total: >>> ")
(setq entSet(ssget fList))
); end progn
(setq filOut(-(sslength firSet)(sslength entset)))
); end if
(if entSet
(progn
(setq entList(mapcar 'vlax-ename->vla-object
(vl-remove-if 'listp
(mapcar 'cadr(ssnamex entSet))))
totLen(apply '+
(mapcar '(lambda (x)
(vlax-curve-getDistAtParam x
(vlax-curve-getEndParam x)))entList))
); end setq
(if(/= 0 filOut)
(princ(strcat "\n<!> " (itoa filout)
" were filtered out (unsupported type)! <!>"))
); end if
(princ(strcat "\n<<< Total de Entidades: "(itoa(length entList))
", Longitud total: "(rtos totLen) " >>> "))
); end progn
(princ "\n<!> No has seleccionado Nada! <!>")
); end if
(princ)
); end of c:SUMALL
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Funciona perfecto, gracias
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
De Nada,me alegra poder Ayudar.
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Muchas gracias sos un crack
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
SALUDOS AMIGO NO ME FUNCIONA LA RUTINAO ESTE CODIGO ME CARGA EL LISP SUMALL PERO CUANDO SELECCIONO ME DA ERROR NIL
1 Attachment(s)
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Quote:
Originally Posted by
eprocad2000799275
SALUDOS AMIGO NO ME FUNCIONA LA RUTINAO ESTE CODIGO ME CARGA EL LISP SUMALL PERO CUANDO SELECCIONO ME DA ERROR NIL
Funciona para mí. Tal vez escribiste algo mal. Adjunto el código como un archivo lsp. Para cargarlo, puede arrastrar el archivo a AutoCAD o escribir (load "sumall") en la línea de comandos.
Nota: solo puede seleccionar los tipos de entidad que se muestran en el video anterior.