Каталог программ для проектирования
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Перестал работать нумератор в autocad 2017. Помогите найти ошибку.

LISP. Перестал работать нумератор в autocad 2017. Помогите найти ошибку.

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 19.07.2017, 09:26 #1
LISP. Перестал работать нумератор в autocad 2017. Помогите найти ошибку.
pobat
 
инжинириг
 
Регистрация: 26.01.2012
Сообщений: 16

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
Просмотров: 506
 
Непрочитано 19.07.2017, 10:11
#2
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,552
Отправить сообщение для gomer с помощью ICQ Отправить сообщение для gomer с помощью Skype™


какую ощибку пишет?
gomer вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 19.07.2017, 10:27
#3
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,509
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от pobat Посмотреть сообщение
С переходом на autocad 2017 LISP перестал загружаться
Скопировал из сообщения код в 2017. Отработал без ошибок.
Возможно, дело в SECURELOAD ?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Перестал работать нумератор в autocad 2017. Помогите найти ошибку.

Инженерные консультации
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите найти ошибку с Lisp "автонумерацией листов" tujn08 LISP 14 12.05.2015 17:20
Усилия в стержняк. Помогите найти ошибку 1969 Металлические конструкции 17 07.04.2015 20:58
Помогите найти ошибку и доделать расчет. keyboard89 Конструкции зданий и сооружений 1 27.01.2015 17:15
В плите перекрытия очень большие напряжения, помогите найти ошибку Olto SCAD 8 22.05.2014 22:09
Помогите найти библиотеки мебели (кухни, спальни) для нанесения на планы в AutoCad denn Поиск литературы, чертежей, моделей и прочих материалов 5 07.01.2009 22:45

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы