Elevación de Polilíneas 3D

Buen día foro.

Una vez que agoté "mi biblioteca" y busqué aquí y allá, no me queda mas remedio que solicitar su ayuda.

Resulta que tengo algunos planos que tienen polilíneas 3d y necesito obtener su elevación y colocarla en un texto por ahí cerca.

Alguien tendrá algo que me ayude a hacer esto? se aceptan cualquier ayuda.

Saludos y gracias

Prueba esto , para una 3dpoly cuyos vértices están en un mismo z.

Gracias maestro, para mi caso, los vértices están en diferente caso. Ya te envié un ejemplo.

Saludos y gracias

estoy trabajando en tu ejemplo

Hola,

Con la rutina que te adjunto tienes las coordenadas x, y, z de todos los puntos de la polilinea (2d o 3d).

Después de obtener cada "pto", puedes escribir con el comando "_text" la z del vértice en las coordenadas x,y o donde tú quieras.

Saludos,

Código:

;rutina para obtener las coordenadas de cualquier tipo de polilinea (2d o 3d)
;programación realizada por el nick "rkmcswain" y mejorada por "bieres"

(defun coordenadas (ent / obj lis n tipo lis_ptos cada)
  (vl-load-com)
  (setq obj (vlax-ename->vla-object ent))
  (setq   lis
    (vlax-safearray->list
      (vlax-variant-value
        (vlax-get-property
          obj
          "Coordinates"
        )
      )
    )
  )
  (setq n 0)
  (setq lis_ptos nil)
  (setq tipo (vlax-get obj 'ObjectName))
  (if (= tipo "AcDbPolyline")
    (setq cada 2)
    (setq cada 3)
  )
  (repeat (/ (length lis) cada)

    (setq pto (list (nth (* n cada) lis)
          (nth (+ (* n cada) 1) lis)
          (if   (= tipo "AcDbPolyline")
            (vlax-get obj 'Elevation)
            (nth (+ (* n cada) 2) lis)
          )
         )
    )
    (setq n (+ n 1))
    (setq lis_ptos (cons pto lis_ptos))
  )
  (setq lista_ptos (reverse lis_ptos))
)





(defun c:getcoords ()
  (setq ent (car(entsel)))
  (setq lista (coordenadas ent))
)