[===AAA===]

Всем привет!

Понятно, что (setvar "osmode"), но как оказалось, этого недостаточно.

Нужно ещё "что-то", что делает F3 включая/отключая установленные
режимы привязки.

Для АК у меня (для включения режима) вполне работала конструкция

(setq p (getvar "osmode"))
(setq p1 (logand p 16383))
(setvar "osmode" p1)

а в НК она работать уже не хочет.

Куда они там бит управления привязкой спрятали?

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

Попробуй тупо сбрасывать в 0.

[===AAA===]

Так мне - наоборот - включить нужно...

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

(setq osmode (getvar "osmode"))
(setvar "osmode" 0)
; ....
(setvar "osmode" osmode)

----- добавлено через 24 сек. -----
И стесняюсь спросить - на фига вообще привязку скидывать?

[===AAA===]

Просто в процессе выполнения программы на одном из её участков,
мне нужно выставить для пользователя привязку "Ближайший".
Чтобы он мимо объекта не промахнулся. Куда попадёт - не особо
важно, но точка должна быть на объекте.

Поэтому в программе, написанной ещё ... ох, в 1991 году в этом
месте стояло (setvar "osmode" 512) и до сих пор всё работало.

Пока лучшее, что придумал, для НК, это связку:

(setvar "osmode" (logior 512 16384))
(command "ToggleOSnapNext")

Т.е. сперва выставляю в отключенное состояние нужную
мне привязку, потом включаю её командой.

Изврат, дебилизм, но работает...

Не, тоже не годится :-(

Эта конструкция работает только с командной строки.

А из-под ЛИСПа

(command "ToggleOSnapNext")

диалоговое окно вызывает, даже если CDMDIA=0

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

Ну поменяй в моем варианте 0 на 512 и не парься. В чем проблема?
Ну или (как вариант, написано насухую и без проверок):

Код:

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

 (defun fun-get-closest-point (/ sysvar res) 
  (setq sysvar (mapcar 
                 (function 
                   (lambda (x / temp) 
                     (if (setq temp (getvar (car x))) 
                       (progn 
                         (setvar (car x) (cdr x))
                         (cons (car x) temp)
                       )
                     )
                   )
                 )
                 '(("osmode" . 512))
               )
  )
  (setq res (vl-catch-all-apply 
              (function 
                (lambda () 
                  (getpoint "\nSelect closest point <Cancel> : ")
                )
              )
            )
  )
  (foreach item sysvar 
    (setvar (car item) (cdr item))
  )
  (if (= (type res) 'list) 
    res
  )
)

[===AAA===]

Ну поменяй в моем варианте 0 на 512 и не парься. В чем проблема?

Проблема в НК. Как выяснилось, даже такой вот участок кода

(setvar "osmode" 512)
(setq p (getpoint "Для ... кабеля укажите ее точку: "))

не гарантирует, что р будет получена с привязкой к объекту.

в АК - гарантировалось, в НК - нет.

Для НК нужен ещё какой-то "пинок", чтобы он принял к сведению,
что режим привязки включён. Возможно, это глюк только моей
версии 23.1. А возможно - и дальше всё то же самое.

[doctorraz]

конечно это все видели


както так

Код:

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

 
(defun C:ё ()
  ;;перекл орто привязка шаг вкл/выкл все
  ;;(command nil)
  (if (= (getvar "SNAPMODE") 0)
    ;;привязка к сетке
    (progn (setvar "SNAPMODE" 1)
	   (setvar "ORTHOMODE" 0)
	   (if (< (getvar 'OSMODE) 16384)
	     (setvar "OSMODE" (+ (getvar 'OSMODE) 16384))
	   ) ;_endif
	   (prompt "\\nШагаем ")
    ) ;_endprogn
    ;;_endprogn
    (progn (setvar "SNAPMODE" 0)
	   (setvar "ORTHOMODE" 1)
	   (if (> (getvar 'OSMODE) 16383)
	     (setvar "OSMODE" (- (getvar 'OSMODE) 16384))
	   ) ;_endif
	   (prompt "\\nЧертим ")
    ) ;_endprogn
    ;;_endprogn
  ) ;_endif
  ;;_ end if
  (princ)
) ;_enddefun

[===AAA===]

Да видели, конечно... Всё это работает в АК.

Требует проверки, но пока у меня сложилось впечатление, что НК
внутри ЛИСП-программы вообще игнорирует назначения
(setvar "osmode" ...), кроме (setvar "osmode" 0)

Т.е., какие привязки были до вызова своей функции, с теми
она и работает. Проверьте, плиз, кому не лень. Именно связку:

(setvar "osmode" 512)
(setq p (getpoint "Для ... кабеля укажите ее точку: "))

Только не с клавиатуры, а из ЛИСП-программы.
Всегда ли удаётся получить точку p с привязкой к объекту?

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

В телеге подсказали - оказывается, надо еще и AppOptions.xml проверять. Там тоже подобные настройки хранятся. И, похоже, конфликтуют.
На хрена одно и то же было разбрасывать в несколько мест - тайна.

[doctorraz]

Сообщение от ===AAA=== Только не с клавиатуры, а из ЛИСП-программы.

в нк 24.1
(setvar "osmode" 512)
неважно как дальше я буду пытаться получить точку, ближайшаЯ не срабатывает (срабатывают привязки которые были назначены до этого)
пока не зайдешь в настройки привязки, увидишь одинокую ближайшую и не тыкнешь ей Ок.
Очевидно один из "немногих" нанобагов.
надо в сапорт тикет писать, нана сам себя чинить не будет.
----------
нанобетатестерам кейс со ссылкой сюда скинул

[===AAA===]

нанобетатестерам кейс со ссылкой сюда скинул

Спасиб! У меня этих "нанобагов" уже набралось...
Из последнего - игнор установки BLIPMODE.

[doctorraz]

пробуй так
(setvar "osmode" 16384)
(setvar "osmode" 512)
(setq p (getpoint "Для ... кабеля укажите ее точку: "))
у меня получилось
-
уже нет , колдунство какое то(((

[===AAA===]

Попробую, но пока копаю в сторону (vla-SetVariable ...)
Похоже, работает, но уже завтра буду плотно это тестировать.

[===AAA===]

Первое впечатление - (vla-SetVariable ...) в НК нифига не панацея.

Тоже тот ещё глюкодром.

Например, с переменной "cecolor" она справиться не может.
Т.е. связка:

(setq p (vla-getVariable acddoc "cecolor"))
;,,, меняем цвет ...
;снова восстанавливаем его
(vla-SetVariable acddoc "cecolor" p)

в АвтоКаде работает на ура, а в НК - нет.

А вот

(setq p (getvar "cecolor"))
;,,, меняем цвет ...
;снова восстанавливаем его
(setvar "cecolor" p)

Работает и там и там.

Но!

В НК она "тупит", т.е. после изменения цвета через
(setvar "cecolor" p), текущий установленный цвет
в индикаторе на панели инструментов (цветной такой
квадратик - красный там или синий или ещё какой)
не меняется.

Создаётся впечатление, что (setvar "cecolor" p) не отработала,
но стоит начать рисовать (скажем, отрезок), НК получает
"волшебный пендель" и меняет цвет индикатора.

Кстати, этот "волшебный пендель" в НК пора выносить в отдельный
вид глюков, т.к. он проявляется во многих местах.

[doctorraz]

Сообщение от ===AAA=== волшебный пендель

В телеге пришли к выводу, что волшебный пендель это command
Тогда переключает

[===AAA===]

В телеге пришли к выводу, что волшебный пендель это command

Да, я примерно так и делаю

(command "_.line" '(0 0) '(1 0) "")

и тут же его стираю.

Изврат, но работает. :-)

И да - (vla-SetVariable ...) проблему с привязкой решает.

[doctorraz]

Сообщение от ===AAA=== (setvar "osmode" ...),

нанодиалект лиспа , как выяснилось регистрозависим(((
надо капсом OSMODE, тогда все Ок)))

[===AAA===]

Фигасе! Кто бы мог подумать.

Ладно бы для всех системных переменных,
а то ведь выборочно...

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

Offtop:

Сообщение от doctorraz нанодиалект лиспа , как выяснилось регистрозависим((( надо капсом OSMODE, тогда все Ок)))

Дер брэд оф сивый мэрин