ADN Club > AutoLisp / VisualLISP и DCL
цвет объектной привязки
altver:
добрый день
Как лиспом изменить цвет объектной привязки?
заранее благодарен!
Александр Ривилис:
altver,
Что подразумевается под "цветом объектной привязки"? Давай в виде картинке, на которой отмечено, что именно должно поменять цвет.
altver:
Чтобы все "снэпы" были желтые например, как на картинке
Александр Ривилис:
Попробуй так:
--- Код - Auto/Visual Lisp [Выбрать] ---(setenv "Model AutoSnap Color" "65535")(setenv "Model 3d AutoSnap Color" "65535")"65535" - это для желтого цвета. Если нужен другой цвет, то через команду _OPTIONS настраиваешь цвета, а при помощи
--- Код - Auto/Visual Lisp [Выбрать] ---(setq color1 (getenv "Model AutoSnap Color"))(setq color2 (getenv "Model 3d AutoSnap Color"))получаешь строки для нужного тебе цвета.
Александр Ривилис:
Названия, которые следует применять можно посмотреть здесь:
--- Код: ---HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RXX.X\ACAD-XXXX:XXX\FixedProfile\Editor Configuration
--- Конец кода ---
Где X зависит от версии и языка AutoCAD:
--- Код: ---
"Model AutoSnap Color"=dword:00007fff
"Layout AutoSnap Color"=dword:0001cc01
"Parallel AutoSnap Color"=dword:0000ffff
"Perspective AutoSnap Color"=dword:00019801
"BEdit AutoSnap Color"=dword:0001cc01
"Model 3d AutoSnap Color"=dword:0000ffff
"Layout 3d AutoSnap Color"=dword:00ff7f00
"Parallel 3d AutoSnap Color"=dword:0000ffff
"Perspective 3d AutoSnap Color"=dword:00ff7f00
"BEdit 3d AutoSnap Color"=dword:00ff7f00
--- Конец кода ---
Навигация
Перейти к полной версии