цвет объектной привязки

[altver]

добрый день
Как лиспом изменить цвет объектной привязки?
заранее благодарен!

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

altver,
Что подразумевается под "цветом объектной привязки"? Давай в виде картинке, на которой отмечено, что именно должно поменять цвет.

[altver]

Чтобы все "снэпы" были желтые например, как на картинке

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

Попробуй так:

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

1. (setenv "Model AutoSnap Color" "65535")
2. (setenv "Model 3d AutoSnap Color" "65535")

"65535" - это для желтого цвета. Если нужен другой цвет, то через команду _OPTIONS настраиваешь цвета, а при помощи

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

1. (setq color1 (getenv "Model AutoSnap Color"))
2. (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

[altver]

Спасибо большое!