[Колян]

Проблема с СПДС!! постоянно включается неарест!! Знаю, что В Лиспе можно сделать программу, которая бы считывала текущие настройки привязки, убирала из них НЕАРЕСТ(если он включен)... и включала их опять.... и еще как это все прописать в кнопки СПДС..
Лисп учил, но больно давно, это было.... И еще может кто-нибудь знает как кнопку ESC... переопределить на другую клавишу... а то я левша.. и с мыши руку надо убирать постоянно...

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

СПДС: есть адрес, откуда можно скачать последние разработки. Nearest - позволю себе процитировать help:

Тип: целый Запись в: реестр Начальное значение: 4133 Битовый код текущих режимов объектной привязки. Представляет собой сумму следующих значений: 0 Ничего 1 Конточка 2 Середина 4 Центр 8 Узел 16 Квадрант 32 Пересечение 64 Твставки 128 Нормаль 256 Касательная 512 Ближайшая 1024 Быстрая 2048 Кажущееся пересечение 4096 Продолжение 8192 Параллельно

Т.е. если, например, нормальным вариантом является 503 (т.е. 1+2+4+16+32+64+128+256), то и пиши нечто вида

Код:

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

(setvar "osmode" 503)

[{Smirnoff}]

Типа:

Код:

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

(defun c:neaoff()
  (if
    (= 512(logand 512(getvar "OSMODE")))
    (progn
      (setvar "OSMODE"(-(getvar "OSMODE")512))
      (princ "\n*** Nearest OFF *** ")
      ); end progn
    (princ "\nAlready OFF ")
    ); end if
  (princ)
  ); end of c:neaoff


(defun c:neaon()
  (if
    (= 0(logand 512(getvar "OSMODE")))
    (progn
      (setvar "OSMODE"(+(getvar "OSMODE")512))
      (princ "\n*** Nearest ON *** ")
      ); end progn
     (princ "\nAlready ON ")
    ); end if
  (princ)
  ); end of c:neaon

Чтобы отслеживать автоматически, немного сложнее. Нужен реактор на исполнение команд.

[svg]

Чем Вам так мешает Nearest?

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

При образмеривании пролететь как нефиг делать. Нужна 1 раз из 100 (если не реже), и в таком случае проще жать правую кнопку с нажатым Ctrl. И потом, мешает не всем

[Chief Justice]

Я чувствую, что где-то здесь конец моеим бедам...
Но, всегда игнорировал лисп, о чем сильно жалею...
Мужики, скажите в двух словах, что с кодом-то делать, а?...

[vk]

отслеживать автоматически, немного сложнее. Нужен реактор на исполнение команд.

Можно попробовать что то вроде этого:

Код:

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

Public WithEvents ACADApp As AcadApplication

Sub NoNea()
    Set ACADApp = ThisDrawing.Application
End Sub

Sub GoNea()
    Set ACADApp = Nothing
End Sub

Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
  If SysvarName = "OSMODE" And  (newVal And 512) Then
    ThisDrawing.SetVariable("OSMODE"), newVal - 512
  End If
End Sub

(не проверял, может чуток поправить придется)

PS при всем моем уважении к Лиспу, реакторы все же стабильнее на VBA

PPS неизвестно как поведет это в связке с другими приложениями

[Startrek]

Ну незнаю зачем надо, но если так уж нужно вот простенький способ:
Сначала установи все оснапы которые устраивают.
На коммандной строке OSMODE и запомни номер, к примеру 15359
код:

Код:

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

(setvar "osmode" 15359)

Засунуть на кнопку этот код или в acad.lsp или еще куда удобно и всех дел

[Chief Justice]

Ура!...
Это работает!...
Прощай nea...

[tokhot]

Проще не создавать кнопку с лиспом (setvar "osmode" 15359) , а
т.к. НЕАРЕСТ не нужно при образмеривании , то на кнопку размер поставить макрос типа

^C^C_osmode;4207;autosnap;63;_dimlinear

или на линию

^C^C_osmode;4207;autosnap;63;_pLine

[Колян]

Что такое 63????.. А так все СУПЕР!!!! Спасибо!!!

[tokhot]

Сообщение от Колян Что такое 63????.. А так все СУПЕР!!!! Спасибо!!!

Это режим привязок. Поперебирай значения сам поймеш.
поставь к примеру 50 - Очь наглядно.

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

А можно и хелп посмотреть по слову autosnap

[compositum]

:twisted: если кому-то станет интересно - могу скинуть руссифицированную часть справки по AutoCAD (содрана с лицензионного). В ней же есть все системные переменные и как с ними работать.

[Tech]

compositum если кому-то станет интересно - могу скинуть руссифицированную часть справки по AutoCAD

Очень даже интересно, я думаю, если модераторы согласятся, можно было бы выложить на сервер для всеобщего пользования.

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

Скоко весит? Если скушает ящик, то на [email protected], завтра-то можно будет увеличить.

[MIP]

>kpblc
В сумме метров двенадцать, руский хэлп и еже с ним от локализованного Автокада, пойдет?

[Tech]

Диалапом почту тянуть напряжно, вот если бы с какого сервака, то в несколько приемов можно.
Могу по этому вопросу (правда немного не в тему топика) порекомендовать http://dwg.ru/dwl/77 два в одном и Help и инструмент управления.

[DDlis]

Здравствуйте. Подскажите пожалуйста, что делать, когда я хочу подгрузить mnu или mns AutoCAD мне вместо привычного окна выдает в командной строке:Enter name of menu file to load: и при сохранении чертежа он выдает путь сохранения в командной стоке, как сделать так , чтобы все окна опять появлялись, потому что это у меня уже не в первый раз он вытворяет такую штуку.

[DDlis]

Кто-нибудь знает, где можно скачать Кряк для СПДС GraphiCS 2.5(39)

[vk]

Сообщение от DDlis Здравствуйте. Подскажите пожалуйста, что делать, когда я хочу подгрузить mnu или mns AutoCAD мне вместо привычного окна выдает в командной строке:Enter name of menu file to load: и при сохранении чертежа он выдает путь сохранения в командной стоке, как сделать так , чтобы все окна опять появлялись, потому что это у меня уже не в первый раз он вытворяет такую штуку.

мож оно?

FILEDIA controls the display of dialog boxes used with commands that read and write files. For example, if FILEDIA is set to 1, SAVEAS displays the Save Drawing As dialog box. If FILEDIA is set to 0, SAVEAS displays prompts on the command line.

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

>> MIP: закинь на [email protected], должно скушать.
>> DDlis: вообще-то разговор не об этом, но тем не менее: пригли мне свой адресок.

[MIP]

>>kpblc Залил, часть уже дошла, будем ждать остального!

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

>> MIP: так можно и самостоятельно проверить. Пароль help

[MIP]

Так я и проверил, дошло 2 из 3!

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

Токо что оттуда - 3 письма, в каждом по несколько архивов. Кстати, может, их перекинуть в ACAD (common)?

[MIP]

Можно попробовать, сам не делал изначально было практически все на русском!