ADN Club > AutoLisp / VisualLISP и DCL

проблема при смене цвта экрана

(1/3) > >>

altver:
Добрый день, господа!
прилагаю лисп и блок.
задача:
 поменять цвет экрана и вставить блок в чертеж.
вопрос:
почему с первого раза меняется цвет экрана и лисп снимается и начинает все работать только со второго раза?

для проверки необходимо открыть новый чертеж, экран сделать любым цветом кроме 55 и прописать путь к блоку.

заранее благодарен!

Алексей Кулик:
А кто мешает все внутрь одной функции засунуть?

altver:
а можо показать пример, как Вы имеете ввиду это сделать?

Алексей Кулик:
Примерно так:

--- Код - Auto/Visual Lisp [Выбрать] ---(defun set-bg-color (color / disp)   ;; Вызов : (set-bg-color 55)  (vl-load-com)  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))   (vla-put-GraphicsWinModelBackgrndColor disp color)  (command "-insert" "block-1" "_S" 1 pause 0))

altver:
Спасибо, Алексей, однако результат тот же: меняется цвет и - сбой,
со вторго раза начинает корректно вставлятсья блок,
когда цвет уже поменян...

Навигация

[0] Главная страница сообщений

[#] Следующая страница