Get Z coordenate from a point or 3Dpolyline

[toxicsquall]

I'm having a problem getting a Z coordinate from a point or a object, like a 3dPolyline.

I need to put a text in front of it. I have this one, but it only gets the X and Y coordinates and I just need the Z coordinate.

 

 

Quote

 

(defun C:incoord (/ pc)
 (setq pc (getpoint "\nClick on the point: "))
 (while pc
    (##InsTextCoord pc)
    (setq pc (getpoint "\nNext Point [Or <Enter> to end]: "))
  )
  (princ)
)

(defun ##InsTextCoord (ponto / px py)
    (setq px (car ponto))
    (setq py (cadr ponto))
    (command ".text" ponto "" "" (strcat "X= " (rtos px) ", Y= " (rtos py)))
)

(princ "\n INCOORD to start")
(princ)

 

 

[Emmanuel Delay]

(defun C:incoord (/ pc)
  (setq pc (getpoint "\nClick on the point: "))
  (while pc
    (##InsTextCoord pc)
    (setq pc (getpoint "\nNext Point [Or <Enter> to end]: "))
  )
  (princ)
)

(defun ##InsTextCoord (ponto / px py pz)
    (setq px (car ponto))
    (setq py (cadr ponto))
    (setq pz (caddr ponto))
    (command ".text" ponto "" "" (strcat "X= " (rtos px) ", Y= " (rtos py) ", Z= " (rtos pz) ))
)

(princ "\n INCOORD to start")
(princ)

[dlanorh]

You could just

 

(defun c:incoord (/ pc)
  (while (setq pc (getpoint "\nClick on the point or Enter to End : "))
    (command ".text" pc "" "" (strcat "Z = " (rtos (caddr pc))))
    ;(command ".text" pc "" "" (strcat "X = " (rtos (car pc)) ",Y = " (rtos (cadr pc)) ",Z = " (rtos (caddr pc))))
  )
  (princ)
)
(princ "\nType incoord to start")
(princ)

 

If you want X,Y & Z comment out the first (command ".text" ....) and uncomment the second (command ".text" ....)

[toxicsquall]

THANK YOU SO MUCH!!!!

The last one worked exactly as i wish for.