[sathalex]

Есть лисп DIMRR. Его задача проставить по выбранным размерам размер в знаменатель с поправкой в указанном диапазоне. При его запуске предлагается выбрать диапазон, далее предлагает выбрать размер, жму интер в ком строке "no function definition: VK_RANDNUM". В чем может быть проблема? AutoCAD 2008 rus. Спасибо.

[Krieger]

В коде используется функция vk_RandNum, которой по факту нет. Видимо это какая-то библиотечная функция которая загружается отдельно у автора этого лиспа.

[sathalex]

Сообщение от Krieger В коде используется функция vk_RandNum, которой по факту нет. Видимо это какая-то библиотечная функция которая загружается отдельно у автора этого лиспа.

Дело в том, что некоторое время этот код у меня срабатывал как надо, а потом вот перестал.

[Krieger]

Значит некоторое время вместе с этим кодом подгружалась и vk_RandNum, а потом перестала.

[sathalex]

Сообщение от Krieger Значит некоторое время вместе с этим кодом подгружалась и vk_RandNum, а потом перестала.

А как мне ее подгрузить не подскажите?

[Krieger]

Сначала её найти нужно. Попробуй поискать у себя по названию такой файл.

Набрал в яндексе и тут же нашел:
http://www.caduser.ru/forum/index.ph...D=23&TID=37867

Я так понял, генерирует случайные числа.

Код:

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

(defun vk_RandNum (/ modulus multiplier increment random)
(if (not *seed*)
(setq *seed* (getvar "DATE"))
)
(setq modulus 65536
multiplier 25173
increment 13849
*seed* (rem (+ (* multiplier *seed*) increment) modulus)
random (/ *seed* modulus)
)
)

[sathalex]

Сообщение от Krieger Сначала её найти нужно. Попробуй поискать у себя по названию такой файл. Набрал в яндексе и тут же нашел: http://www.caduser.ru/forum/index.ph...D=23&TID=37867 Я так понял, генерирует случайные числа. Код: [Выделить все] (defun vk_RandNum (/ modulus multiplier increment random) (if (not *seed*) (setq *seed* (getvar "DATE")) ) (setq modulus 65536 multiplier 25173 increment 13849 *seed* (rem (+ (* multiplier *seed*) increment) modulus) random (/ *seed* modulus) ) )

А где должна находится эта функция? Где мне ее искать? И если не найду, мне скопировать данный код в файл лисп и закинуть в нужную папку?

[Krieger]

Сообщение от sathalex А где должна находится эта функция?

Да хоть где, главное загрузить.

[sathalex]

Сообщение от Krieger Да хоть где, главное загрузить.

А могу я этот код добавить в сам лисп DIMRR ?

----- добавлено через ~2 мин. -----
Не помогло.

[Krieger]

Сообщение от sathalex А могу я этот код добавить в сам лисп DIMRR ?

Можешь.

Не помогло.

У меня помогло. Значит что-то не так делаешь.

[sathalex]

Сообщение от Krieger Можешь. У меня помогло. Значит что-то не так делаешь.

Спасибо большое. Все работает. Что-то я не так делал.

[Бот]

sathalex, просьба изменить название темы "Прошу помощи. Не срабатывает Lisp" в соответствии с п.4.3. правил форума, в противном случае тема автоматически будет закрыта через 12 часов.

Как переименовать тему?

Сообщение сгенерировано автоматически, отвечать на него не нужно