(defun c:getname (/ str cmd)

  (if (= (vla-get-localeid (vlax-get-acad-object)) 1049)
    (if (and (= (type
                  (setq
                    str
                     (vl-catch-all-apply
                       (function
                         (lambda ()
                           (getstring "\nВведите имя команды <Отмена> : ")
                           ) ;_ end of lambda
                         ) ;_ end of function
                       ) ;_ end of vl-catch-all-apply
                    ) ;_ end of setq
                  ) ;_ end of type
                'str
                ) ;_ end of =
             (= (type (setq cmd (vl-catch-all-apply
                                  (function
                                    (lambda ()
                                      (getcname str)
                                      ) ;_ end of lambda
                                    ) ;_ end of function
                                  ) ;_ end of vl-catch-all-apply
                            ) ;_ end of setq
                      ) ;_ end of type
                'str
                ) ;_ end of =
             ) ;_ end of and
      (princ (strcat "\nВведенное имя команды : "
                     str
                     "\nОригинальное имя команды : "
                     cmd
                     ) ;_ end of strcat
             ) ;_ end of princ
      (princ "\nУказанное имя команды не найдено")
      ) ;_ end of if
    (princ
      "\nYou can't get original command name within not Russian version!"
      ) ;_ end of princ
    ) ;_ end of if
  (princ)
  ) ;_ end of defun