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

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

  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
    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

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

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

    Muchas gracias j, me cae como del cielo...

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

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

    Gracias! funciona perfecto!!

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

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

    muchas gracias

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

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

    BUEN..POST....APLICADO EN AUTOCAD 2010..SI CORRE...GRXS....

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

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

    gracias por el aporte esta muy bueno

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

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

    Hola a todos! Oye super bueno este LISP, Nunca antes habia usado uno y corrio perfectamente bien en cad 2007. Oye ahora lo que necesito es un LISP que me cuente las intersecciones que se generaron entre 2 o mas polilineas. Donde puedo encontrarlo, o si es algun comando que probablemente desconozca. Gracias a todos!

Page 1 of 5 12345 LastLast

Similar Threads

  1. Lisp para Calculos (Duvida)
    By martins.aloizio in forum AutoLISP
    Replies: 6
    Last Post: 2017-07-26, 03:02 PM
  2. 2012: IMPORTAR PROGRESIVAS PARA LINEAS DE MUESTREO
    By wellch85263183 in forum AutoCAD Civil 3D - General
    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 AutoCAD Civil 3D - General
    Replies: 2
    Last Post: 2009-04-15, 04:03 AM
  4. Lisp para alteração de texto
    By batista in forum AutoLISP
    Replies: 5
    Last Post: 2008-08-22, 10:08 PM
  5. Lisp para imprimir dwg em lote
    By lucianno in forum AutoLISP
    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
  •