[pobat]

Добрый день
Нашел на просторах нумератор, который прекрасно работал в autocad 2011
Там задавался префикс, индекс, начальный номер и поехали нумеровать простой текст по щелчку мыши.
С переходом на autocad 2017 LISP перестал загружаться.
Помогите адаптировать программу под новый автокад

Код:

[Выделить все]

 (defun c:renum (/ oldPref oldSuf oldStart curText curStr)
  (vl-load-com)
  (if(not rnm:Pref)(setq rnm:Pref ""))
  (if(not rnm:Suf)(setq rnm:Suf ""))
  (if(not rnm:Start)(setq rnm:Start 1))
  (setq oldPref rnm:Pref
        oldSuf rnm:Suf
        oldStart rnm:Start); end setq
  (setq rnm:Pref(getstring(strcat "\nEnter prefix <"rnm:Pref">: ")))
  (if(= "" rnm:Pref)(setq rnm:Pref oldPref))
  (if(= "#" rnm:Pref)(setq rnm:Pref ""))
  (setq rnm:Suf(getstring(strcat "\nEnter suffix <"rnm:Suf">: ")))
  (if(= "" rnm:Suf)(setq rnm:Suf oldSuf))
  (if(= "#" rnm:Suf)(setq rnm:Suf ""))
  (setq rnm:Start(getint(strcat "\nEnter start number <"(itoa rnm:Start)">: ")))
  (if(null rnm:Start)(setq rnm:Start oldStart))
(while T
  (setq curStr(strcat rnm:Pref(itoa rnm:Start)rnm:Suf))
    (while(vl-string-search "#" curStr)
      (setq curStr(vl-string-subst " " "#" curStr))
      ); end while
    (setq curText(car(entsel "\nSelect DText/MText to renumber or Esc to Quit ")))
  (if
    (and
      curText
      (member(cdr(assoc 0(entget curText))) '("TEXT" "MTEXT"))
      ); end and
    (progn
    (vla-put-TextString
      (vlax-ename->vla-object curText)curStr)
    (setq rnm:Start(1+ rnm:Start))
    ); end progn
    (princ "\nThis is not DText or MText! ")
    ); end if
  ); end while
  (princ)
  ); end of c:renum

[gomer]

какую ощибку пишет?

[VVA]

Сообщение от pobat С переходом на autocad 2017 LISP перестал загружаться

Скопировал из сообщения код в 2017. Отработал без ошибок.
Возможно, дело в SECURELOAD ?