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

[altver]

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

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

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

[Алексей Кулик]

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

[altver]

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

[Алексей Кулик]

Примерно так:

Код - Auto/Visual Lisp [Выбрать]

1. (defun set-bg-color (color / disp)
2.   ;; Вызов : (set-bg-color 55)
3.   (vl-load-com)
4.   (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
5.  
6.   (vla-put-GraphicsWinModelBackgrndColor disp color)
7.   (command "-insert" "block-1" "_S" 1 pause 0)
8. )

[altver]

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

[Алексей Кулик]

https://adn-cis.org/forum/index.php?topic=11063.msg53154#msg53154 не помогло?

[altver]

Так я от туда и взял, если хотите помочь, то напишите свой вариант,
очень хочется сравнить, где же я ошибаюсь.
Ваш предыдущий вариант тоже не работает...

Заранее спасибо!

[Алексей Кулик]

Строка (vla-put-GraphicsWinModelBackgrndColor ACADPref (vlax-make-variant 127 19)) как бы намекает, что надо передавать не число, а безопасный массив, мне кажется

[altver]

я пробовал в безопасном режме, но ничего не получается

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:SetBGColor (Color /)  
2.  (vl-load-com)
3.  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
4.  
5.    (setq col (vlax-make-variant color vlax-vbdouble))
6.   (vla-put-GraphicsWinModelBackgrndColor disp Col)
7.  
8.   (command "-insert" "block-1" "_S" 1 pause 0)
9. )
10.  

[Александр Ривилис]

vlax-vbdouble

[altver]

что значит ответ "vlax-vbdouble"

[Александр Ривилис]

что значит ответ "vlax-vbdouble"

Это я поставил под сомнение тип данных. Судя по примеру из документации он должен быть равен 19. А color в твоем примере - это не индексный цвет, а RGB-цвет в виде целого числа (в примере в документации это было 127, т.е. 127,0,0)
У меня по умолчанию цвет экрана такой:

Т.е. RGB соответствует {33,40,48}. И программа из документации выдает значение 3156001, что соответствует 48*256*256+40*256+33

[altver]

Александр, извините, но не понял...
Можно, пожалуйса, получить пример кода,
задача следующая:
заменить цвет экрана на любой другой (black например)
и загрзить блок в чертеж с паузой в конце загрузки:
(command "-insert" "block" "_S" 1 pause 0)
Спасибо!

[Александр Ривилис]

Должно быть что-то такое:

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:SetBGColor ( / )  
2.  (vl-load-com)
3.  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
4.  
5.    (setq col (vlax-make-variant 0 19))
6.   (vla-put-GraphicsWinModelBackgrndColor disp col)
7.  
8.   (command "-insert" "block-1" "_S" 1 pause 0)
9. )

Но я думаю, что всё-равно код прервется - изменение цвета фона должно прерывать lisp-код. Точнее прерывать ввод от пользователя.

[altver]

Нет, к сожалению и Ваш код не рабтает...
Жаль...
Странно!
подождем, может у кого-то будет какая-то идея...
Спасибо!