[lastloch]

Может кто подскажет, как получить Lisp-ом список включенных в данный момент объектных привязок?

[Лиспер]

osmode разбирать по составляющим.

[lastloch]

Сообщение от Лиспер osmode разбирать по составляющим.

Тогда уж подскажите, если не трудно, как ковыряться в энтой цифири?

[Лиспер]

osmode

[VVA]

Сообщение от lastloch Тогда уж подскажите, если не трудно, как ковыряться в энтой цифири?

Это степень двойки. Пока что задействовано 13 битов (2^13 степени)
Ковырять так
По ссылке выше смотрим, что конточка имеет значение 1

Код:

[Выделить все]

(if (= 1 (logand (getvar "OSMODE") 1))(alert "Конточка включена"))

По ссылке выше смотрим, что квадрант имеет значение 16

Код:

[Выделить все]

(if (= 16 (logand (getvar "OSMODE") 16))(alert "Квадрант включен"))

и т.д
Еще пример

Код:

[Выделить все]

(defun osmcheck ( / OsmList ret)
(setq OsmList (list
'("ENDPOINT" 1)
'("MIDPOINT" 2)
'("CENTER" 4)
'("NODE" 8)
'("QUADRANT" 16)
'("INTERSECTION" 32)
'("INSERTION" 64)
'("PERPENDICULAR" 128)
'("TANGENT" 256)
'("NEAREST" 512)
'("APPARENT" 2048)
'("EXTENSION" 4096)
'("PARALLEL" 8192)
)
)
  (foreach x OsmList
    (if (= (cadr x)(logand (getvar "OSMODE")(cadr x)))
      (setq ret (cons (car x) ret))
           )
    )
  ret
  )

Использование

Команда: (osmcheck) ("NEAREST" "NODE" "MIDPOINT" "ENDPOINT")

Теперь еще один пример: как добавить/удалить нужную привязку к уже включенным

Код:

[Выделить все]

;;;Программно включаем привязку NODE, не трогая остальные
  (setvar "OSMODE" (boole 7 (getvar "OSMODE") 8)) ;;_Код NODE=8
;;;Программно выключаем привязку NEAREST, не трогая остальные
  (setvar "OSMODE" (boole 2 (getvar "OSMODE") 512)) ;;_Код  NEAREST=512

[lastloch]

Спасибо VVA, увы, не знал о существовании logand. А если бы и знал, все равно не понял бы, что эта функция делает.

[Nike]

Сообщение от VVA (if (= 1 (logand (getvar "OSMODE") 1))(alert "Конточка включена"))

Сообщение от VVA (if (= 16 (logand (getvar "OSMODE") 16))(alert "Квадрант включен"))

Сообщение от VVA ;;;Программно включаем привязку NODE, не трогая остальные (setvar "OSMODE" (boole 7 (getvar "OSMODE") 8)) ;;_Код NODE=8 ;;;Программно выключаем привязку NEAREST, не трогая остальные (setvar "OSMODE" (boole 2 (getvar "OSMODE") 512)) ;;_Код NEAREST=512

Товарищи!!! Помогите с аналогичным кодом на VBA.

[gomer]

Сообщение от Nike Товарищи!!! Помогите с аналогичным кодом на VBA.

Код:

[Выделить все]

Sub test()
 If 16 And ThisDrawing.GetVariable("OSMODE") Then
   MsgBox "Квадрант включен"
 Else
   MsgBox "Квадрант не включен"
 End If
End Sub

[Nike]

gomer, спасибо, а

(setvar "OSMODE" (boole 7 (getvar "OSMODE") 8)) ;;_Код NODE=8

и

(setvar "OSMODE" (boole 2 (getvar "OSMODE") 512)) ;;_Код NEAREST=512

сляпать на VBA можно?

[VVA]

судя по описанию boole boole 7 = OR

[gomer]

Сообщение от VVA судя по описанию boole boole 7 = OR

XOR
http://visualbasic.about.com/od/usin...bitops01_3.htm
http://support.microsoft.com/kb/113476