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:
¡Resuelto! Ir a solución.
Resuelto por calderg1000. Ir a solución.
Resuelto por inmaculada.palomo. Ir a solución.
Resuelto por bc.chiquito. Ir a solución.
Resuelto por pendean. Ir a solución.
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.
@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
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))
)
)
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@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.
¿No encontraste lo que buscabas? Pregúntale a la comunidad o comparte tus conocimientos.