(defun C:exp_cogo_points (/ block-list ssnabor ssnabor_cogo)
  (vla-StartUndoMark active_document)
  (setq ssnabor_cogo (ssget "_X" (list (cons 0 "AECC_COGO_POINT"))))
;;;  (setq block-list (convert_ss_to_list ssnabor_cogo))
;;;  (setq n 0)
;;;  (foreach x block-list
;;;    (setq n (1+ n))
;;;    (grtext -1 (strcat (itoa(length block-list))"/"(itoa n)))
;;;      (command "_explode" x)
;;;      )
  (command "_explode" ssnabor_cogo "")
  (setq n 0)
  (while(setq ssnabor (ssget "_X" (list (cons 0 "INSERT")(cons 2 "`**"))))
    (setq n (1+ n))
    (setq block-list (convert_ss_to_list ssnabor))
    (foreach x block-list
      (command "_explode" x)
      (grtext -1 (strcat (itoa(length block-list))"/"(itoa n)))
      )
    )
  (vla-EndUndoMark active_document)
  (princ)
  )

(defun C:exp_*_bloks (/ block-list ssnabor)
  (vla-StartUndoMark active_document)
  (setq n 0)
  (while(setq ssnabor (ssget "_X" (list (cons 0 "INSERT")(cons 2 "`**"))))
    (setq n (1+ n))
    (setq block-list (convert_ss_to_list ssnabor))
    (foreach x block-list
      (command "_explode" x)
      (grtext -1 (strcat (itoa(length block-list))"/"(itoa n)))
      )
    )
  (vla-EndUndoMark active_document)
  (princ)
  )