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

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

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

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

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

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

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

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

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

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


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

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

__________________
инженер проектировшик с опттом программа авто гад образование высшие
Просмотров: 16860
 
Непрочитано 21.11.2011, 16:07
#61
VVA

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


Astartes,
Добавь поле 41
типа такого
Код:
[Выделить все]
(setq txt (entmakex
      (list
        (cons 0 "TEXT")
        (cons 100 "AcDbEntity")
        (cons 100 "AcDbText")
        (cons 72 0)           ;_ выравнивание влево
        (cons 1 str)
       (cons 7 (getvar "TEXTSTYLE")) ;_Текущий стиль
        ;(cons 8 layer) ;_Текущий слой
        (cons 10 '(0 0 0))
        (cons 11 '(0 0 0))
        (cons 40 (getvar "TEXTSIZE")) ;_Текущей высотой текста (переменная TEXTSIZE)
        (cons 41 0.75);;_Степень сжатия
        ) ;_ list
      ) ;_ entmakex
          )
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.11.2011, 18:19
#62
shartal


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


NBOOK Отличная вещь, если бы она еще в мультивыноски могла вставлять текст.
shartal вне форума  
 
Непрочитано 21.11.2011, 19:24
#63
VVA

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


Цитата:
Сообщение от shartal Посмотреть сообщение
NBOOK Отличная вещь, если бы она еще в мультивыноски могла вставлять текст.
Теперь может. См #12
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 22.11.2011, 11:41
#64
shartal


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


Где-то что-то не так. В коде еще и атрибуты упоминаются. Однако при вставке он не видит не выноски, ни мтекста, ни атрибута и вставляет текст как однострочный прямо по верх объектов. С таблицей все хорошо. Я так понимаю, после вызова команды, и указания текста из словаря нужно указать объект? Какое то определенное место объекта? Подсветки то объекта не происходит.
И еще не аннотативный он, независимо от стиля

Последний раз редактировалось shartal, 22.11.2011 в 12:10.
shartal вне форума  
 
Непрочитано 23.11.2011, 05:25
#65
Astartes

Котло- и реакторостроение
 
Регистрация: 25.02.2010
Барнаул
Сообщений: 807


Такой вопрос. Мне еще надо что бы текст вставлялся с углом наклона 15. Нашел в хелпе по лиспу что нужно добавить. Добавил строку (cons 51 0.255);;_Угол наклона. Вроде все нормально. Правда величину 0.255, которая соответствует углу 345 я нашел методом подбора.Собственно вопрос, что это за единицы измерения в лиспе?

Последний раз редактировалось Astartes, 23.11.2011 в 05:30.
Astartes вне форума  
 
Непрочитано 23.11.2011, 08:46
#66
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 571


Цитата:
Сообщение от Astartes Посмотреть сообщение
Собственно вопрос, что это за единицы измерения в лиспе?
Радианы
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 23.11.2011, 10:10
#67
VVA

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


shartal, Проверил еще раз. У меня вставляет. Там используется nentsel, поэтому в блоках нужно указывать атрибут, а не блок. В остальном, в выноску, мультивыноску, текст, мтекст вставляет. Текст случаем не на блокированном слое?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.11.2011, 12:12
#68
shartal


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


Бред какой- то. У меня никуда, кроме таблицы не вставляется. Пробовал в 2008 и 2011. Слой естественно не блокирован.
Прикрепил файл, попробуйте пожалуйста в нем. Может какая- то переменная не позволяет.
Вложения
Тип файла: dwg
DWG 2010
выноска.dwg (181.2 Кб, 1274 просмотров)
shartal вне форума  
 
Непрочитано 23.11.2011, 13:38
#69
Astartes

Котло- и реакторостроение
 
Регистрация: 25.02.2010
Барнаул
Сообщений: 807


shartal, Попробывал у меня все вставляет. Какой командой пользуешся Nbook или Nbook1? Нужно просто Nbook.
У меня Акад 2011
Astartes вне форума  
 
Непрочитано 24.11.2011, 10:40
#70
shartal


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


Не той командой пользовался
Все работает, спасибо.
shartal вне форума  
 
Непрочитано 25.11.2011, 14:08
#71
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Глянул первое сообщение и скрин. Весь топик не читал, но думаю, что моё замечание будет актуальным: в таком окошке должна быть предусмотрена возможность группировки значений по тематике. Это можно реализовать несколькими способами:
1. В окне размещён раскрывающийся список, содержащий перечень тематик, а чуть ниже его - список значений, относящихся к выбранной теме.
2. Реализовать TreeView.

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

имхо.
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Непрочитано 11.08.2012, 14:22
#72
kpd_110

обыватель-конструктор
 
Регистрация: 17.05.2011
Сообщений: 120


Хоть тема и старая, но буду признателен если кто переделает код NUM_Y1 от VVA так что бы он нумеровал снизу вверх.
__________________
Не каждый лось рельсу перекусит
kpd_110 вне форума  
 
Непрочитано 12.08.2012, 12:27
#73
Modis


 
Регистрация: 12.06.2010
Липецк, Москва
Сообщений: 534


Modis вне форума  
 
Непрочитано 12.08.2012, 21:45
#74
Кулик Алексей aka kpblc
Moderator

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


Modis, это ты к чему?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 13.08.2012, 11:40
#75
Modis


 
Регистрация: 12.06.2010
Липецк, Москва
Сообщений: 534


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Modis, это ты к чему?
Это я привел пример (читай - вариант) к вопросу в топике. Вдруг кому-то пригодится - а-ля записная книжка
Modis вне форума  
 
Непрочитано 14.08.2012, 08:59
#76
VVA

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


Цитата:
Сообщение от kpd_110 Посмотреть сообщение
Хоть тема и старая, но буду признателен если кто переделает код NUM_Y1 от VVA так что бы он нумеровал снизу вверх.
Код:
[Выделить все]
(defun C:NUM_Y2 ( / 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 (itoa start))
			 (assoc 1 ed)
			 ed)
	       )
	 (entmod ed)
	 (setq start (1+ start))
	 )
       )
  (princ)
  )
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 15.08.2012, 17:12
#77
kpd_110

обыватель-конструктор
 
Регистрация: 17.05.2011
Сообщений: 120


Очень спасибо!!
__________________
Не каждый лось рельсу перекусит
kpd_110 вне форума  
Ответ
Вернуться   Форум 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