Page 1 of 5 12345 LastLast
Results 1 to 10 of 47

Thread: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Member
    Join Date
    2008-05
    Posts
    9
    Login to Give a bone
    0

    Default lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    Le envió una rutina lisp para sumar multiples líneas, polilineas y arcos de un dibujo espero que le pueda servir.

    el lisp suma las siguientes entidades:

    Suma distancias consecutivamente entre puntos

    Suma distancias no necesariamente entre puntos consecutivos

    Suma las longitudes de un número indeterminado de arcos

    Suma las longitudes de un número indeterminado de líneas

    Suma las longitudes de un número indeterminado de líneas y/o polilineas

    Suma las áreas y perímetros/longitudes de un número indeterminado de polilineas

    Suma las longitudes de todas las líneas de una capa

    Cordialmente
    José Q.

  2. #2
    Member
    Join Date
    2008-05
    Posts
    9
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    Me disculpan me falto el lisp
    Attached Files Attached Files

  3. #3
    Member
    Join Date
    2008-03
    Posts
    7
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    Una rutina que sirve para seleccionar grupos de lineas, arcos y/o polilineas, obtiene
    longitudes y devuelve la suma total:
    Code:
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (defun c:sll () (sum-long-lin) (princ))
    (defun sum-long-lin (/ ss c i sl e vlae l)
      (vl-load-com)
      (setq	ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE")))
    	c  (sslength ss)
    	i  0
    	sl 0
      )
      (repeat c
        (setq e    (ssname ss i)
    	  vlae (vlax-ename->vla-object e)
    	  l    (vlax-get vlae 'length)
    	  sl   (+ l sl)
        )
      )
      (princ "\nsuma total de longitudes: ")
      (princ sl)
    )
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Last edited by prexem; 2008-10-16 at 03:36 AM. Reason: ..........

  4. #4
    Woo! Hoo! my 1st post
    Join Date
    2012-08
    Posts
    1
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    oye me podrias mandar el lisp lo quise descargar y no pude

  5. #5
    Woo! Hoo! my 1st post
    Join Date
    2013-11
    Posts
    1
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    ¡¡Mil gracias!!
    Este lisp es majestuoso.

  6. #6
    Woo! Hoo! my 1st post
    Join Date
    2015-04
    Posts
    1
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    Muchas gracias era algo que necesitaba

  7. #7
    Woo! Hoo! my 1st post
    Join Date
    2012-09
    Posts
    1
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    La rutina, tal como está, no suma correctamente. Lo que hace es sumar la longitud del primer objeto seleccionado tantas veces como objetos se han seleccionado. Para que funcione bien tiene ser.

    Code:
    (defun c:sll () (sum-long-lin) (princ))
    (defun sum-long-lin (/ ss c i sl e vlae l)
    (vl-load-com)
    (setq	ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE")))
    c (sslength ss)
    i 0
    sl 0
    )
    (repeat c
    (setq e (ssname ss i)
    vlae (vlax-ename->vla-object e)
    l (vlax-get vlae 'length)
    sl (+ l sl)
    i (+ i 1)      
    )
    )
    (princ "\nsuma total de longitudes: ")
    (princ sl)
    )
    Le faltaba i (+ i 1)

    Tampoco funciona si se selecciona un arco

  8. #8
    Woo! Hoo! my 1st post
    Join Date
    2014-04
    Posts
    1
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    Hola!!soy new en esto...tanto en usar los lisp como en foros... ...pero necesito con urgencia esa herramienta...ya que anteriormente con arkitool podia sumar polilineas, pero con la restriccion a 20 usos....para mi es inviable...he intentado utilizar el ultimo lisp q hay pero no me funciona bien, no las suma correctamente al no ser que tengan la misma longitud....me preguntaba si alguien consiguio alguna modificacion q funcione correctamente....y muxas gracias d antemano!!

  9. #9
    Woo! Hoo! my 1st post
    Join Date
    2011-08
    Posts
    1
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    GENIAAAAAAAAAAAAAAALLLLLLLLLLLLLLL

  10. #10
    Woo! Hoo! my 1st post
    Join Date
    2012-09
    Posts
    1
    Login to Give a bone
    0

    Default Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo

    Hola, perdón... pero no sé si hice mal o no me funciona...
    pongo SUMLP selecciono las polilíenas y me da error ¿?
    Estoy haciendo algo mal?
    GRACIAS.

Page 1 of 5 12345 LastLast

Similar Threads

  1. Lisp para Calculos (Duvida)
    By martins.aloizio in forum Português - Customização / Programação
    Replies: 6
    Last Post: 2017-07-26, 03:02 PM
  2. 2012: IMPORTAR PROGRESIVAS PARA LINEAS DE MUESTREO
    By wellch85263183 in forum Español - AutoCAD Civil 3D
    Replies: 2
    Last Post: 2013-05-13, 03:53 PM
  3. Variable a deshabilitar para desaparecer el centroide de un dibujo
    By Nasser in forum Español - AutoCAD Civil 3D
    Replies: 2
    Last Post: 2009-04-15, 04:03 AM
  4. Lisp para alteração de texto
    By batista in forum Português - Customização / Programação
    Replies: 5
    Last Post: 2008-08-22, 10:08 PM
  5. Lisp para imprimir dwg em lote
    By lucianno in forum Português - Customização / Programação
    Replies: 0
    Last Post: 2008-01-10, 03:30 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •