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

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

Напишите Лисп

Ответ
Поиск в этой теме
Непрочитано 05.05.2006, 14:31
Напишите Лисп
DANZZ
 
Проектировщик
 
Омск
Регистрация: 05.05.2006
Сообщений: 91

есть блок с атрибутом ТЕКСТ и линеей под текстом, можно ли написать лисп чтоб при наборе текста линия под текстом изменялась в зависимости от длины текста!!!
Просмотров: 5545
 
Автор темы   Непрочитано 10.05.2006, 09:41
#21
DANZZ

Проектировщик
 
Регистрация: 05.05.2006
Омск
Сообщений: 91


глядел, но в лиспе не соображаю, пытался изменить, не получается, синтаксиса не знаю, так то вроде понятно че да как
DANZZ вне форума  
 
Непрочитано 10.05.2006, 09:55 Привет
#22
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,783


ЖДУ ФУЛЕР
[ATTACH]1147241792.rar[/ATTACH]
Я там кой чего подправил.
Если захочешь увеличить кубики или уменьшить
по работай со стрками
Код:
[Выделить все]
  (setq pt6 (list  (- (nth 0 pt5) 1) (- (nth 1 pt5) 1) (nth 2 pt5)))
  (setq pt7 (list  (+ (nth 0 pt5) 9) (+ (nth 1 pt5) 4) (nth 2 pt5)))
  (command "_.rectang" pt6 pt7)
 (setq pt5 (list  (+ (nth 0 pt5) 10) (nth 1 pt5) (nth 2 pt5)))
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Непрочитано 10.05.2006, 11:01
#23
Кулик Алексей aka kpblc
Moderator

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


В первом лиспе, который с кубиками (какие кубики, я так и не понял) используется строка
Код:
[Выделить все]
(command "_.text" pt5 2.5 0 t)
(command "_.text" pt5 2.5 0 t)
Вызывает ошибку выполнения - зарезервированный символ t используется не по назначению
Кроме того, у меня полилинии постоянно нулевой ширины, а у тебя они меняются. Вернуть не помешало бы
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 10.05.2006, 11:38 Привет
#24
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,783


Гы крЫс
А у меня все работает
И полилинии по слою выходят
Причем символ t вводится строкой

[/code]
(princ "Введите текст кубика N ")
(princ (itoa step))
(princ ": ")
(setq T (getstring 4 5))
(command "_.text" pt5 2.5 0 T)
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Автор темы   Непрочитано 10.05.2006, 11:57
#25
DANZZ

Проектировщик
 
Регистрация: 05.05.2006
Омск
Сообщений: 91


А если выноска в другую сторону, то получается не то!!!
и полки как то странно относительно текста рисуются,

а так то что надо!!!
[ATTACH]1147247869.dwg[/ATTACH]
DANZZ вне форума  
 
Непрочитано 10.05.2006, 12:03 Привет
#26
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,783


Ну уж в другую сторону мне если честно в ломы уже писать.
Так просто поставил для себя задачку, решил её и доволен.
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Автор темы   Непрочитано 10.05.2006, 13:16
#27
DANZZ

Проектировщик
 
Регистрация: 05.05.2006
Омск
Сообщений: 91


а как же выпадающее предупреждение: "Присвоение защищенному символу: Т. Войти в цикл останова?"

как быть с этим, причем иногда выподает, а иногда нет, от чего это зависит?
и полки то не рисуются до конца текста!!!
DANZZ вне форума  
 
Непрочитано 10.05.2006, 13:20 Привет
#28
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,783


Добавь в локальные переменные T.
Я по запарке забыл внести.
Чтобы увеличить длину выноски надо в строке
(setq L (* 2 (strlen P)))
Поменять 2 на другое значение
Все будет зависеть от шрифта.
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Непрочитано 10.05.2006, 13:24 Привет
#29
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,783


Цитата:
Сообщение от DANZZ
а как же выпадающее предупреждение: "Присвоение защищенному символу: Т. Войти в цикл останова?"

как быть с этим, причем иногда выподает, а иногда нет, от чего это зависит?
и полки то не рисуются до конца текста!!!
Вот для этого и надо начинать изучать ЛИСП
Чтобы хотя бы чужие заготовки под себя переделывать.
Хотел еще DCL окно добавить но понял что это вам не пгодойдет.
Уж слишком тяжело будет написть окно для множества значений.
Только ограниченное кол-во строк и кубиков.
Можно будет только блдокировать значения которые вводить не надо.
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Автор темы   Непрочитано 10.05.2006, 13:48
#30
DANZZ

Проектировщик
 
Регистрация: 05.05.2006
Омск
Сообщений: 91


А где можно литературу найти , желательно бесплатную.
действительно пора начинать изучать!!!
DANZZ вне форума  
 
Непрочитано 10.05.2006, 13:52
#31
Кулик Алексей aka kpblc
Moderator

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


Для начала можно и это (поскольку действительно бесплатно)

Файл vlisptut_rus.pdf (учебное пособие по Visual LISP 2000, сентябрь 1999) доступен по адресам:
http://rapidshare.de/files/19738006/...t_rus.pdf.html
http://webfile.ru/936881 (будет доступен до 13.05.2006 10:1Cool
Объем : 2,2 Мб (на всякий случай повторюсь)

Учебное руководство по VLISP (садовая дорожка) (на русском, из поставки AutoCAD 2006) доступно по адресам:
http://rapidshare.de/files/19738079/acad_alt.chm.html
http://webfile.ru/936884 (будет доступен до 13.05.2006 10:20)
Объем (опять же на всякий случай) : 457 кб.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 10.05.2006, 14:04
#32
DANZZ

Проектировщик
 
Регистрация: 05.05.2006
Омск
Сообщений: 91


спасибо!!!
DANZZ вне форума  
 
Непрочитано 10.05.2006, 14:07
#33
Кулик Алексей aka kpblc
Moderator

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


Текст взят отсюда
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Напишите Лисп

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

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