tema Re: Autolisp cuente lineas en AutoCAD - Todos los productos - Foro en Español

Autolisp cuente líneas en AutoCAD

inmaculada.palomo — Tue, 07 Mar 2023 18:49:27 GMT

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!

Re: Autolisp cuente lineas

pendean — Thu, 23 Feb 2023 13:30:56 GMT

https://knowledge.autodesk.com/support/autocad/learn-explore/caas/sfdcarticles/sfdcarticles/How-to-get-the-total-length-of-Polylines.html

Re: Autolisp cuente lineas

bc.chiquito — Thu, 23 Feb 2023 18:17:51 GMT

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.

Re: Autolisp cuente lineas

inmaculada.palomo — Fri, 24 Feb 2023 07:00:51 GMT

@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

Re: Autolisp cuente lineas

calderg1000 — Sun, 26 Feb 2023 19:35:41 GMT

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

Re: Autolisp cuente lineas

inmaculada.palomo — Wed, 01 Mar 2023 14:14:49 GMT

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