[semvb]

Многие утилиты переключают режим рисования в ортогональный "orthomode", по завершении функций утилиты приходится вручную включать полярное слежение (кнопкой или F10) - надоело, в литературе не нашел имени переменной, отвечающей за включение этого режима. Существует ли возможность включения режима полярного слежения через LISP?

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

polarmode

[semvb]

Это я знаю, - не то, слежение не включается!
Из справочника переменных:

POLARMODE Управляет установками для полярного и объектно-шагового слежения. Значение bitcodes (байт коды) переменной: Измерение угла в полярных координатах: 0 - Измерение углов в полярных координатах текущей пользовательской системы координат (абсолютных); 1 - Измерение углов в полярных координатах от выбранных объектов (относительных). Объектно-шаговое слежение: 0 - Только ортогональная трасса; 2 - Использовать полярные установки слежения в объектно-шаговом слежении. Использование дополнительных полярных отслеживаемых углов: 0 - Нет; 4 - Да. Приобретение точек объектно-шагового слежения: 0 - Приобрести автоматически; 8 - Нажать SHIFT, чтобы приобрести.

[ытя]

AUTOSNAP

[Sad Dog]

ORTHOMODE

[semvb]

ытя AUTOSNAP Управляет показом маркера автопривязки и подсказок

Sad Dog ORTHOMODE

Это как раз то, что надо поменять на полярное слежение (см.#1)

[ытя]

AUTOSNAP

Сообщение от Help 0 Turns off the AutoSnap marker, tooltips, and magnet. Also turns off polar tracking, object snap tracking, and tooltips for polar tracking, object snap tracking, and Ortho mode 1 Turns on the AutoSnap marker 2 Turns on the AutoSnap tooltips 4 Turns on the AutoSnap magnet 8 Turns on polar tracking 16 Turns on object snap tracking 32 Turns on tooltips for polar tracking, object snap tracking, and Ortho mode

[semvb]

Спасибо! Был неполный справочник по переменным от старой версии autocad!

AUTOSNAP Тип: Целый Сохранен в: Реестр Начальное значение: 63 Управление отображением маркера, всплывающей подсказки и магнита автопривязки. Включает также полярное и объектное отслеживания и управляет всплывающими на дисплей подсказками в этих режимах и режиме "Орто" Параметр хранится в виде битового кода, использующего сумму следующих значений. 0- Отключение маркера, подсказки и магнита автопривязки. Отключает также полярное и объектное отслеживания, а также подсказки этих средств и режима "Орто" 1- Включение маркера автопривязки 2- Включение подсказки автопривязки 4- Включение магнита автопривязки 8- Включение полярного отслеживания 16- Включение отслеживания объектной привязки 32- Включение отображения подсказок для полярного отслеживания, объектного отслеживания и режима "Орто"

[Sad Dog]

Это как раз то, что надо поменять на полярное слежение

Так я не понял, это то... или это надо поменять?

[semvb]

То что надо! В конце кода LISP - восстановление переменных.

(setvar "autosnap" 63);;включение полярного слежения

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

На форуме несколько раз мелькали коды, нормально восстанавливающие системные переменные в тот вид, который был у пользователя, а не который понравился программисту....

[semvb]

Я видел, но именно этого почему-то не нашел.

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

Примерно так:

Код:

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

 (defun c:mycmd (/ fun_save-sysvars fun_restore-sysvars sysvars *error*)

  (defun fun_save-sysvars (lst /)
    (mapcar
      (function
        (lambda (x / tmp)
          (if (setq tmp (getvar (car x)))
            (setvar (car x) (cdr x))
            ) ;_ end of if
          (cons (car x) tmp)
          ) ;_ end of lambda
        ) ;_ end of function
      lst
      ) ;_ end of mapcar
    ) ;_ end of defun

  (defun fun_restore-sysvars (lst)
    (foreach item lst
      (setvar (car item) (cdr item))
      ) ;_ end of foreach
    ) ;_ end of defun

  (defun *error* (msg)
    (fun_restore-sysvars sysvars)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (command "_.undo" "_begin")
  (setq sysvars (fun_save-sysvars '(("osmode" . 0) ("nomutt" . 1) ("cecolor" . 1) ("celtscale" . 1) ("ltscale" . 1))
                                  ) ;_ end of fun_save-sysvars
        ) ;_ end of setq
  ;; Чего-то делаем

  (fun_restore-sysvars sysvars)
  (command "_.undo" "_end")
  (princ)
  ) ;_ end of defun

[semvb]

Вот в этом коде и нет "autosnap". При использовании перед этим кодом утилиты, которая переключает режим в "орто" и не восстанавливает, как раз и придется опять вручную включать полярное слежение. Теперь по ходу дела вставляю во все недоделанные утилиты строку "(setvar "autosnap" 63)" а уж потом сохранение настроек.

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

Е-мое...

Код:

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

(defun c:mycmd (/ fun_save-sysvars fun_restore-sysvars sysvars *error*)

 (defun fun_save-sysvars (lst /)
   (mapcar
     (function
       (lambda (x / tmp)
         (if (setq tmp (getvar (car x)))
           (setvar (car x) (cdr x))
           ) ;_ end of if
         (cons (car x) tmp)
         ) ;_ end of lambda
       ) ;_ end of function
     lst
     ) ;_ end of mapcar
   ) ;_ end of defun

 (defun fun_restore-sysvars (lst)
   (foreach item lst
     (setvar (car item) (cdr item))
     ) ;_ end of foreach
   ) ;_ end of defun

 (defun *error* (msg)
   (fun_restore-sysvars sysvars)
   (princ msg)
   (princ)
   ) ;_ end of defun

 (command "_.undo" "_begin")
 (setq sysvars (fun_save-sysvars '(("osmode" . 0) ("nomutt" . 1) ("cecolor" . 1) ("celtscale" . 1) ("ltscale" . 1))
                                 ) ;_ end of fun_save-sysvars
       ) ;_ end of setq
 ;; Чего-то делаем
  (mapcar '(lambda(x)(setvar (car x) (cdr x))) '(("autosnap" . 63) ("osmode" . 0) ("gridmode" . 0) ("blipmode" . 0) ("cmdecho" . 0)))

 (fun_restore-sysvars sysvars)
 (command "_.undo" "_end")
 (princ)
 ) ;_ end of defun

Обрати внимание на строку, выделенную красным.

[gomer]

сначала сохранить переменные (+ cmdecho=>0) потом undo, чтоб глаза не мозолило... по выходу наоборот undo потом восстанавливаем переменные, потому же

[semvb]

Спасибо, аналогично (хотя видимо не очень грамотно) я и подправляю некорректно написанные коды.

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

Сообщение от gomer сначала сохранить переменные (+ cmdecho=>0) потом undo, чтоб глаза не мозолило... по выходу наоборот undo потом восстанавливаем переменные, потому же

То есть ты предлагаешь нечто типа
(setvar ...
(command "_.undo" ...
...
(command "_.undo" ...
(setvar ...
Так? Если да, то попробуй запустить такой код и после его завершения попробуй отменить все выполненные им действия.

[gomer]

Сообщение от Кулик Алексей aka kpblc Так?

нет не так, каюсь, был не прав, но тогда лучше через ActiveX маркировать точки начала и конца отмены

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

Как ставить точки отмены - дело "шышнаццатое" Главное - то, как они сработают.
Кстати, я сам так несколько раз "накалывался". Бывают и пострашнее шутки - когда маркеры отмены оказываются вложенными друг в друга. В таком случае AutoCAD очень быстро начинает сходить с ума.