LISP para extraer longitud de polilínea y colocarlo en un texto en AutoCAD

[lbenavidesmDCQ4S]

Hola . Estoy empezando en el mundo de los lisp. Actualmente vengo realizando un trabajo de metrado. Tengo la siguiente inquietud, es saber si es posible con una rutina LISP extraer la longitud de una polilinea y al mismo tiempo colocarlo dentro de un texto.

@IbenavidesDCQ4S para una mayor claridad @joaquim.moral ha editado el título original: LISP para extraer longitud de polilínea y colocarlo en un texto. Consulta cómo escoger el mejor título para tu post. ¡Gracias por participar!

[Valentin-WSP]

@lbenavidesmDCQ4S ,

Puede utilizar el LSP adjunto (DimPoly.lsp) creado por Kent Cooper o utilizar DISPLAYLEN – Display Polyline Segment Lengths de la tienda de Autodesk App Store .

• DISPLAYLEN – Display Polyline Segment Lengths

[joaquim.moral]

Hola @lbenavidesmDCQ4S,
¡Gracias por participar en la Comunidad Autodesk!

¿Te ha ayudado la respuesta de @Valentin-WSP a solucionar tu duda?

Si es así, puedes hacer clic en el botón "Aceptar como solución". De esta manera ayudas a que otras personas usuarias puedan acceder y encontrar más fácilmente la información.

De lo contrario, coméntanos en este mismo hilo para que la comunidad pueda seguir ayudándote.

Gracias y esperamos tu respuesta,

[calderg1000 · Accepted solution]

Saludos @lbenavidesmDCQ4S 

Prueba este código que codifique para obtener lo que requieres. Espero te sea de ayuda. Cualquier consulta sobre el funcionamiento del código, con gusto estaré por aquí.

;;;Rutina auttolis creada por calderg1000@gmail.com para dar respuesta en el foro
;;;Acad en español; 01-05-24
;;;l_pol: Calcula la longitud de linea o polilinea y muestra su valor con un Mleader.
;;;Previamente configure las propiedades del estilo de Mleader actual.
;;;
(defun c:l_pol (/ s sn lpol pref sp ep mp)
  (princ "\nSeleccione Linea/Polilinea para calcular Longitud...:")
  (while
    (setq s (ssget "_+.:E:S" '((0 . "*line"))))
     (setq sn   (vlax-ename->vla-object (ssname s 0))
           lpol (vla-get-length sn)
     )
     (setq Pref (getstring "\nIngrese Prefijo:")
           sp   (vlax-curve-getstartpoint sn)
           ep   (vlax-curve-getendpoint sn)
           mp   (mapcar '(lambda (j k) (* (+ j k) 0.5)) sp ep)
     )
     (princ (strcat "\nLong.: " (rtos lpol 2 2) " m."))
     (vl-cmdf "mleader" mp pause (strcat Pref "=" (rtos lpol 2 2)" m"))
     (princ)
  )
)

[lbenavidesmDCQ4S]

Muya agradecido con tu aporte, la verdad es que es muy util. Si ****ple la funcion que necesito.

[joaquim.moral]

¡Hola @lbenavidesmDCQ4S!
Me alegro de que hayas podido encontrar una solución a tu duda con el soporte de @calderg1000.

También te agradezco que hayas marcado la respuesta adecuada como solución aceptada.
De esta manera, encontrarla será mucho más fácil, y ayudarás a futuros usuarios con dudas similares ‌‌

Te esperamos en la Comunidad para cualquier duda o pregunta que puedas tener en el futuro. No te olvides de compartir tu conocimiento con los demás, o asistir a los eventos para aprender más 🙂

¡Gracias y hasta pronto!

[DICSA]

Hola Calderg1000, saludos.

Un favor enorme... podría revisar la siguiente rutina lisp, estoy practicando, pero no domino mucho el lenguaje de programación; y no logro detectar los errores por los que no funciona correctamente. La rutina debe seleccionar una línea, calcular la longitud, para luego ubicarla adjunta a dicha línea.

De antemano muchas gracias por la atención.

(defun C:LongLin()
(setvar "cmdecho" 0)
(defun grados (rg)
(* (/ rg pi) 180.0)
)

(setq alt-text (getreal "\nIntroduce altura del texto : "))
(setq num-dec (getint "\nNumero de decimales : "))
(setq ent (car (entsel "\nSelecciona una línea: ")))
(if (and ent (= (cdr (assoc 0 (entget ent))) "LINE"))
(progn
(setq p1 (cdr (assoc 10 (entget ent))))
(setq p2 (cdr (assoc 11 (entget ent))))
(setq longitud (distance p1 p2))
(setq longitud (rtos longitud 2 num-dec))
(setq rg (angle p1 p2))
)
(command "_text" "_C" "_m2p" p1 p2 alt-text (grados rg) longitud)
)
(alert "Selecciona una línea válida.")
(princ)
)

[calderg1000]

Saludos @DICSA 

Aqui le hice unas leves modificaciones. Cualquier información adicional con mucho gusto restare atento.

(defun c:LongLinn( / alt-text num-dec ent p1 p2 longitud rg)
(setvar "cmdecho" 0)
(defun grados (rg)
(* (/ rg pi) 180.0)
)
(setq alt-text (getreal "\nIntroduce altura del texto : "))
(setq num-dec (getint "\nNumero de decimales : "))
(while
(setq ent (car (entsel "\nSelecciona una línea: ")))
(if (and ent (= (cdr (assoc 0 (entget ent))) "LINE"))
(progn
(setq p1 (cdr (assoc 10 (entget ent))))
(setq p2 (cdr (assoc 11 (entget ent))))
(setq longitud (distance p1 p2))
(setq longitud (rtos longitud 2 num-dec))
(setq rg (angle p1 p2))
;;;)
(command "_text" "_C" "_m2p" p1 p2 alt-text (grados rg) longitud)
)
(alert "Selecciona una línea válida.")
)
)
(princ)
)

[DICSA]

@calderg1000 Muchas gracias por la atención prestada...

como en este caso estoy aprendiendo, me sirve para ver como se estructura la codificación.