(defun C:elevation-cogo-point-by-text ( / )
  (while t
  (vla-put-Elevation (vlax-ename->vla-object(car(entsel "\nВыбери cogo-точку: "))) (atof (vla-get-TextString (vlax-ename->vla-object(car(entsel "\nВыбери Текст: "))))))
    )
  (princ)
  )