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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Лисп автозаписная книжка

Лисп автозаписная книжка

Ответ
Поиск в этой теме
Непрочитано 08.09.2008, 21:47
Лисп автозаписная книжка
dextron3
 
Фотограф
 
Алматы
Регистрация: 01.01.2007
Сообщений: 5,049

Хотел посоветоваться

Можно ли сделать лисп в котором бы хранились часто используемые слова и фразы в автокаде... (сами слова пополнялись в текстовом файле из которого бы читала их программа)

сам лисп имелбы интерфейс как на скриншоте...

Принцип действия:

1. Нажал на кнопку вышло окошко
2. Щелкунл двойгым щелчком
3. Затем выбрал текст или м-текст (и он заменился бы на выбранный)

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


Надеюсь на помощь VVA... (у Вас был похожий вариант со вставкой букв в алфавитном порядке)

Миниатюры
Нажмите на изображение для увеличения
Название: Snap1.jpg
Просмотров: 487
Размер:	23.8 Кб
ID:	9895  

__________________
инженер проектировшик с опттом программа авто гад образование высшие
Просмотров: 14326
 
Автор темы   Непрочитано 11.09.2008, 13:36
#21
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


gipro, попробуй словарь англицкими буквами написать в названии
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 11.09.2008, 13:39
#22
gipro

лайсенсед инжиниа
 
Регистрация: 15.04.2006
город-герой Волгоград (Сталинград)
Сообщений: 1,166


думаю, что запомнит словарь, когда хоть раз успешно завершит команду. У меня чего-то не выходит...
gipro вне форума  
 
Непрочитано 11.09.2008, 15:45
#23
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,834
<phrase 1= Отправить сообщение для VVA с помощью Skype™


>gipro Исправил #12. Ошибка вылетала, когда был пустой выбор рамкой. У тебя там не было текстов. Словарь пишется в эту ветку реестра (см. выделение красным). Соответственно нужны права. Если их нет, тио можно путь изменить, например, на HKEY_CURRENT_USER
Код:
[Выделить все]
 
(defun mip-reg-get-path ()"HKEY_LOCAL_MACHINE\\Software\\MIP")
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 11.09.2008, 15:55
#24
gipro

лайсенсед инжиниа
 
Регистрация: 15.04.2006
город-герой Волгоград (Сталинград)
Сообщений: 1,166


А, понял... Нужно предварительно вставить любой другой текст. Просто я думал он будет вставляться прямо из окошка. Разобрался. Спасибо.
За подсказку с реестром - тоже спасибо. Теперь все работает!!
gipro вне форума  
 
Непрочитано 11.09.2008, 16:27
#25
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,834
<phrase 1= Отправить сообщение для VVA с помощью Skype™


gipro, Добавил в #12 Команду NBOOK1. Вставляет новый текст текущим стилем, текущей высотой. Если укажешь ячейку таблицы, то вставит в таблицу, иначе вставит как текст
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 11.09.2008, 18:57
#26
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, NBOOK1 некорректно работает чтото у меня стоит стиль GOST 2.3.04, а вставляет все в стандартном почему то что только не делал
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 11.09.2008, 20:32
#27
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Днепройт
Сообщений: 4,018


Кулик Алексей aka kpblc, код может и старый, но мне подошел. Премного благодарен!
kp+ вне форума  
 
Автор темы   Непрочитано 11.09.2008, 20:49
#28
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, вот видеоролик с недоработкой лиспа
Вложения
Тип файла: rar Untitled.rar (202.7 Кб, 96 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 12.09.2008, 11:08
#29
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,834
<phrase 1= Отправить сообщение для VVA с помощью Skype™


исправил #12
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 12.09.2008, 18:56
#30
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, зароботоло! спасибо

А можно сделать ввиде вкладок чтобы считывало с нескольких текстовых документов,

тоесть вкладка к примеру КЖ, или КМ, тоесть как называется блокнотик так и вкладка называлась, потому что охото группировать свои примечания а не в разброс в хаотическом порядке...

буду ждать ответа...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 12.09.2008, 19:56
#31
gipro

лайсенсед инжиниа
 
Регистрация: 15.04.2006
город-герой Волгоград (Сталинград)
Сообщений: 1,166


VVA, Работает отлично!! Именно то, что я хотел - если не лучше!!!
dextron3, умеешь ты озадачить людей Молодец!!!
gipro вне форума  
 
Непрочитано 12.09.2008, 20:49
#32
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,834
<phrase 1= Отправить сообщение для VVA с помощью Skype™


dextron3, DCL не позволяет делать вкладки.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 13.09.2008, 06:44
#33
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, а можно создать кнопку макрос под данный лисп, чтобы автоматом загружала выбранный в макросе текстовый документ?, тогда можно и без вкладок обойтись
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 15.09.2008, 09:21
#34
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, а можно ли этот лисп использовать, из нескольких копий, тоесть скопировать к примру три раза и каждый и на каждый прописать отдельный текстовый файл, тоесть каждый лисп отвечает за свой собственный файл, и тогда получается на каждую кнопку прописать независимый лисп, не будет глючить реестр где хранятся настройки файла с текстом?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 15.09.2008, 10:43
#35
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,834
<phrase 1= Отправить сообщение для VVA с помощью Skype™


dextron3, Можно. Данные о последнем файле хранятся в реестре
в ключах: "LASTDIR" и "LASTFILE". Сделай копию и поиском и заменой заменяй на "LASTDIR1", "LASTFILE1"; "LASTDIR2" и "LASTFILE2" и т.д.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 15.09.2008, 12:35
#36
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, спасибо, вкладки отпали сами собой

можно небольшой вопрос нужен придаток еще в виде лиспа для записной книжки:

Исользую нумератор от Дениса, но очень сложный в настройках

Навтыкал примечаний, нужно их пронумеровать в порядке возрастания, по оси Y,

Было:

Смотри на лист 2
Консультации проектировщика по номеру...
Для отверстий ищи файлы раздела АР

Стало:

1. Смотри на лист 2
2. Консультации проектировщика по номеру...
3. Для отверстий ищи файлы раздела АР

Тоесть префик 1. пробел

Чтобы выделялось рамочкой автокада, и все тексты нумеровались

помню у вас был лисп автонумератор, может над ним поколдовать?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 15.09.2008, 14:34
#37
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,834
<phrase 1= Отправить сообщение для VVA с помощью Skype™


dextron3,
Код:
[Выделить все]
(defun C:NUM_Y ( / ss start i lst ed str )
  (vl-load-com)
  (and (setq start (getint "\nНачальный номер <выход>: "))
       (setq ss (ssget "_:L" '((0 . "*TEXT"))))
       (setq lst nil i '-1)
       (repeat (sslength ss)
	 (setq lst (cons (ssname ss (setq i (1+ i))) lst))
	 )
       (setq lst (vl-sort lst '(lambda (e1 e2)
				 (> (caddr(assoc 10 (entget e1)))(caddr(assoc 10 (entget e2))))
				 )
			  )
	     )
       (foreach e1 lst
	 (setq ed (entget e1))
	 (setq str (cdr(assoc 1 ed)))
	 (setq ed (subst (cons 1 (strcat (itoa start) ". " str))
			 (assoc 1 ed)
			 ed)
	       )
	 (entmod ed)
	 (setq start (1+ start))
	 )
       )
  (princ)
  )
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 18.09.2008 в 09:49. Причина: Добавлена обработка МТЕКСТа
VVA вне форума  
 
Автор темы   Непрочитано 15.09.2008, 15:41
#38
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, спасибо!

теперь реально ускоряет работу, производительность 200% при заполнении примечаниями листы....

теперь запросто в проекте могу снипы обзацами цитировать, по моим проектам обычно обычные люди строят, как бы частный сектор, которым не по карману нанять прораба
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 17.09.2008, 18:22
#39
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,049


VVA, а можно еще вариацию лиспа NUM_Y, чтобы он просто цыфры по порядку выставлял, без пробела и точки (т.е. любой текст заменял на цыфры по оси Y) нужно для спецификации, потомучто иногда бывает что цыфр не хватает я копирую и использую програмку от Дениса на VBA, но она очень навороченная, а хочется простого...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 17.09.2008, 19:12
#40
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,974
Отправить сообщение для Red Nova с помощью Skype™


VVA,
kpblc
Я пользуюсь мтекстом. Так что использую лисп personal mtext simbols для добавки своих символов, (наверное аналогично лиспу от крыса). Огорчает то, что там лимит в 25 строк. Нет варианта лимит увеличить, или сделать лисп работающий в мтекст эдиторе для добавки своих символов?
dextron3,
Цитата:
использую програмку от Дениса на VBA, но она очень навороченная, а хочется простого
Присоеденяюсь. Только наверное стоит оставить запрос первого номера.
__________________
Блог
Red Nova вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Лисп автозаписная книжка

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Интересно где работают ЛИСП программисты? dextron3 LISP 114 17.12.2017 13:53
Лисп для копирования данных нескольких мтекстов по принципу расположения. Red Nova LISP 14 18.06.2008 22:08
Нужен лисп (пронизыватель лайаутов) dextron3 LISP 91 25.07.2007 07:37
Нужен лисп (super offset) dextron3 LISP 23 25.06.2007 12:51
Нужен лисп (детектор прямоугольников) dextron3 LISP 3 25.06.2007 09:42