Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Кто знает лисп!!! который бы отключал НЕАРЕСТ!!!

Кто знает лисп!!! который бы отключал НЕАРЕСТ!!!

Ответ
Поиск в этой теме
Непрочитано 28.02.2005, 11:46 #1
Кто знает лисп!!! который бы отключал НЕАРЕСТ!!!
Колян
 
Самозанятый КМ+КМД
 
Раменское
Регистрация: 09.09.2004
Сообщений: 1,852

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

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


СПДС: есть адрес, откуда можно скачать последние разработки. 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)
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.

Последний раз редактировалось Кулик Алексей aka kpblc, 17.09.2015 в 12:14.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 28.02.2005, 13:13
#3
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


Типа:
Код:
[Выделить все]
(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
Чтобы отслеживать автоматически, немного сложнее. Нужен реактор на исполнение команд.
{Smirnoff} вне форума  
 
Непрочитано 28.02.2005, 16:32
#4
svg


 
Регистрация: 15.01.2005
Сообщений: 396


Чем Вам так мешает Nearest?
svg вне форума  
 
Непрочитано 28.02.2005, 16:37
#5
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


При образмеривании пролететь как нефиг делать. Нужна 1 раз из 100 (если не реже), и в таком случае проще жать правую кнопку с нажатым Ctrl. И потом, мешает не всем
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 28.02.2005, 22:06
#6
Chief Justice


 
Регистрация: 29.01.2004
Сообщений: 494


Я чувствую, что где-то здесь конец моеим бедам...
Но, всегда игнорировал лисп, о чем сильно жалею...
Мужики, скажите в двух словах, что с кодом-то делать, а?...
Chief Justice вне форума  
 
Непрочитано 28.02.2005, 23:24
#7
vk

сисадмин
 
Регистрация: 26.08.2003
Самара
Сообщений: 1,022
<phrase 1=


Цитата:
отслеживать автоматически, немного сложнее. Нужен реактор на исполнение команд.
Можно попробовать что то вроде этого:
Код:
[Выделить все]
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 неизвестно как поведет это в связке с другими приложениями
vk вне форума  
 
Непрочитано 01.03.2005, 02:41
#8
Startrek

AutoCAD/AutoLISP
 
Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133


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

Код:
[Выделить все]
(setvar "osmode" 15359)
Засунуть на кнопку этот код или в acad.lsp или еще куда удобно и всех дел
Startrek вне форума  
 
Непрочитано 01.03.2005, 09:20
#9
Chief Justice


 
Регистрация: 29.01.2004
Сообщений: 494


Ура!...
Это работает!...
Прощай nea...
Chief Justice вне форума  
 
Непрочитано 01.03.2005, 15:48
#10
tokhot

Проектирование
 
Регистрация: 17.11.2004
г. Москва
Сообщений: 328


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

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

или на линию

^C^C_osmode;4207;autosnap;63;_pLine
tokhot вне форума  
 
Автор темы   Непрочитано 03.03.2005, 05:24
#11
Колян

Самозанятый КМ+КМД
 
Регистрация: 09.09.2004
Раменское
Сообщений: 1,852


Что такое 63????.. А так все СУПЕР!!!! Спасибо!!!
Колян вне форума  
 
Непрочитано 03.03.2005, 09:21
#12
tokhot

Проектирование
 
Регистрация: 17.11.2004
г. Москва
Сообщений: 328


Цитата:
Сообщение от Колян
Что такое 63????.. А так все СУПЕР!!!! Спасибо!!!
Это режим привязок. Поперебирай значения сам поймеш.
поставь к примеру 50 - Очь наглядно.
tokhot вне форума  
 
Непрочитано 03.03.2005, 09:32
#13
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


А можно и хелп посмотреть по слову autosnap
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 03.03.2005, 15:37
#14
compositum


 
Регистрация: 03.03.2005
Сообщений: 3


:twisted: если кому-то станет интересно - могу скинуть руссифицированную часть справки по AutoCAD (содрана с лицензионного). В ней же есть все системные переменные и как с ними работать.
__________________
С уважением Андрей.
compositum вне форума  
 
Непрочитано 03.03.2005, 16:27
#15
Tech


 
Регистрация: 18.10.2004
Odessa
Сообщений: 226
<phrase 1=


Цитата:
compositum
если кому-то станет интересно - могу скинуть руссифицированную часть справки по AutoCAD
Очень даже интересно, я думаю, если модераторы согласятся, можно было бы выложить на сервер для всеобщего пользования.
Tech вне форума  
 
Непрочитано 03.03.2005, 16:30
#16
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Скоко весит? Если скушает ящик, то на [email protected], завтра-то можно будет увеличить.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 03.03.2005, 17:32
#17
MIP

инженер
 
Регистрация: 13.12.2004
Минск
Сообщений: 496


>kpblc
В сумме метров двенадцать, руский хэлп и еже с ним от локализованного Автокада, пойдет?
MIP вне форума  
 
Непрочитано 03.03.2005, 19:52
#18
Tech


 
Регистрация: 18.10.2004
Odessa
Сообщений: 226
<phrase 1=


Диалапом почту тянуть напряжно, вот если бы с какого сервака, то в несколько приемов можно.
Могу по этому вопросу (правда немного не в тему топика) порекомендовать http://dwg.ru/dwl/77 два в одном и Help и инструмент управления.
Tech вне форума  
 
Непрочитано 03.03.2005, 23:24 Пропало окно
#19
DDlis


 
Регистрация: 03.02.2005
Сообщений: 583


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


 
Регистрация: 03.02.2005
Сообщений: 583


Кто-нибудь знает, где можно скачать Кряк для СПДС GraphiCS 2.5(39)
DDlis вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Кто знает лисп!!! который бы отключал НЕАРЕСТ!!!

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск