(defun C:add_HEIGHT_ii_to_skv_by_surfese (/ ENT-OBJ INSERT-POINT LIST-ALL-ATTS POINT-OBJ ssnabor block-list x 3Dpline)
  (setq 3Dpline (car (entsel "\nВыберите поверхность: ")))
  (if (eq (cdr(assoc 0 (entget 3Dpline))) "AECC_TIN_SURFACE")
    (progn
      (setq 3Dpline (vlax-ename->vla-object 3Dpline))
      
      (setq ssnabor (ssget '((0 . "INSERT"))))
      (setq block-list (convert_ss_to_list ssnabor))
      (foreach x block-list
	(setq insert-point (cdr(assoc 10 (entget x))))
	(setq insert-point (get-elevation-by-XY-in-surfese_ 3Dpline insert-point))
	(edit-block-set-attributes-by-list x (list (cons "HEIGHT" (rtos (nth 2 insert-point)2 2))(cons "OTMETKA" (rtos (nth 2 insert-point)2 2))(cons "VALUE" (rtos (nth 2 insert-point)2 2))))
	)
      )
    )
  (princ)
  )