Autolisp cuente líneas en AutoCAD

[inmaculada.palomo]

Buenas, 

sabéis de algo que me pueda poner un texto con la suma de líneas?

mando ejemplo de lo que quiero, vamos me da igual que sea un texto o un bloque que contenga esa información.

subo ejemplo del resultado que quiero

@inmaculada.palomo para una mayor claridad @joaquim.moral ha editado el título original:

Autolisp cuente lineas. Recuerda consultar cómo escoger el mejor título para tu post. ¡Gracias por participar!

[pendean · Accepted solution]

https://knowledge.autodesk.com/support/autocad/learn-explore/caas/sfdcarticles/sfdcarticles/How-to-g...

[bc.chiquito · Accepted solution]

Hola, @inmaculada.palomo 

Prueba con la rutina lisp que adjunto (créditos a @Kent1Cooper), la cargas e introduces el comando TLENG, seleccionas la polilínea deseada y presionas enter, aparecerá un cuadro de diálogo con la longitud total.

Espero que te sea útil.

[inmaculada.palomo · Accepted solution]

@bc.chiquito no es eso lo que busco,

lo voy a explicar de otra manera a ver si se entiende mejor.

todas las líneas salen de los circulos y llegan al cuadrado algunas tienen caminos comunes, lo que necesito es que me ponga un texto con el numero de líneas en los tramos

[calderg1000 · Accepted solution]

Saludos @inmaculada.palomo 

Aqui algo rápido..., selecciona 2 puntos que corten a las lineas y mediante un text, te indicara el numero de lineas en ese tramo.

(defun c:NCab (/ p1 p2 h s i p)
  (setvar 'orthomode 1)
  (setq h (getreal "\nEnter Text heigth:"))
  (while t
    (setq p1 (getpoint "\nPick start point: ")
          p2 (getpoint p1 "\nPick start point: ")
          s  (ssget "_f" (list p1 p2) '((0 . "lwpolyline")))
          i  (sslength s)
          l  (entmakex (list '(0 . "line")
                             (cons 10 p1)
                             (cons 11 p2)
                       )
             )
          p  (vlax-invoke (vlax-ename->vla-object (entlast))
                          'IntersectWith
                          (vlax-ename->vla-object (ssname s 0))
                          acExtendNone
             )
    )
     (entdel l)
     (entmakex (list '(0 . "text")
                     (cons 10 (mapcar '+ p (list h h 0)))
                     (cons 40 h)
                     (cons 1 (itoa i))
               )
     )
  )
)

[inmaculada.palomo]

@calderg1000 buscaba algo que fuera automático, como que te pusiera un texto después de cada vértice que casi siempre después de un vértice habrá cambiado el numero de polilíneas.

Pero gracias por la dedicación.