ADN Club > AutoLisp / VisualLISP и DCL
проблема при смене цвта экрана
Алексей Кулик:
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 [Выбрать] ---(defun c:SetBGColor (Color /) (vl-load-com) (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object)))) (setq col (vlax-make-variant color vlax-vbdouble)) (vla-put-GraphicsWinModelBackgrndColor disp Col) (command "-insert" "block-1" "_S" 1 pause 0))
Александр Ривилис:
--- Цитата: altver от 14-05-2024, 19:19:17 ---vlax-vbdouble
--- Конец цитаты ---
???
Навигация
Перейти к полной версии