|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
05.05.2006, 14:31 | #1 | |
Напишите Лисп
Проектировщик
Омск
Регистрация: 05.05.2006
Сообщений: 91
|
||
Просмотров: 6683
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Цитата:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
Странно начали называться темы.
НУ ВОТ Б___Я НАПИШИТЕ МНЕ ЛИСП. И все тут А самим слабо, если просите о помощи то это одно, а вот таким категоричным тоном Я бы не советовал писать тем. Могу лишь подсказать что это вполне выполнимо, вариантов с которыми знаком Я 2 1. Это при вводе выполнить подсчет символов текста и в зависимости от этого назначить длину выноски. 2. Это при вводе в уже существующий текст удлинять линию, но тут уже потребуются реакторы, или просто лисп который будет считывать длину текста и ставить под текстом линию.
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Если под многострочной выноской подразумевается 1 или 2 строки, то тогда см. реакторы на это дело. Получение строк и междумордие - это уж самостоятельно. Без динамического блока, между прочим
Если под многострочной выноской подразумевается выноска для многослойных конструкций, то это отдельная песня. DEM тут больше подскажет, ЯТД.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Engineer Регистрация: 05.09.2003
New-York
Сообщений: 10,288
|
У нас на работе есть кнопочка: жмешь на текст, и он подчеркивается. Очень удобно. Вот этот лисп, правда защищен от чтения, но работающий. Запуск словом UT.
Код:
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
> Vova : Таким образом зашифрованные лиспы публиковать не стоит - он грузиться отказался. Лучше запаковать и приложить архив - тогда и поковырять можно будет
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
инженер-конструктор Регистрация: 23.09.2004
Москва
Сообщений: 184
|
Помоему есть в даунлоде здесь Работа с текстом называется .
Код:
Ну это тем кому не надо чтоб текст и линия были примитивами разными)) |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Ну раз пошла такая пьянка...
Код:
--- Добавлено: Если надо "переподчеркивать" размеры, то потребуется переделка
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Проектировщик Регистрация: 05.05.2006
Омск
Сообщений: 91
|
Вообщем дело вот в чем: я создал блок каторый выступает в качестве выноски (нигде ничего подобного не нашел), и хотелось бы чтобы когда вбиваешь текст полка тоже удлинялась автоматически, а не вручную
[ATTACH]1147061992.dwg[/ATTACH] |
|||
|
||||
Проектировщик Регистрация: 05.05.2006
Омск
Сообщений: 91
|
а можно чтоб дина палки под каждым текстом была разная, т.е в зависимости от длины текста!!!
и кубики можно чтоб были всегда одинаковыми 5х10, текст посередине кубиков и кубики отступали от последней поки на 3мм. заранее спасибо!!! |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
Блина специально придумывал чтобы длины были одинаковые, а размеры купиков соответствовали длине текста.
Да ты сам бы глянул ЛИСП простенький.
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
ЖДУ ФУЛЕР
[ATTACH]1147241792.rar[/ATTACH] Я там кой чего подправил. Если захочешь увеличить кубики или уменьшить по работай со стрками Код:
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
В первом лиспе, который с кубиками (какие кубики, я так и не понял) используется строка
Код:
Кроме того, у меня полилинии постоянно нулевой ширины, а у тебя они меняются. Вернуть не помешало бы
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
Гы крЫс
А у меня все работает И полилинии по слою выходят Причем символ t вводится строкой [/code] (princ "Введите текст кубика N ") (princ (itoa step)) (princ ": ") (setq T (getstring 4 5)) (command "_.text" pt5 2.5 0 T)
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
Ну уж в другую сторону мне если честно в ломы уже писать.
Так просто поставил для себя задачку, решил её и доволен.
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
Добавь в локальные переменные T.
Я по запарке забыл внести. Чтобы увеличить длину выноски надо в строке (setq L (* 2 (strlen P))) Поменять 2 на другое значение Все будет зависеть от шрифта.
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
YngIngKllr Регистрация: 29.03.2005
СПб
Сообщений: 12,968
|
Цитата:
Чтобы хотя бы чужие заготовки под себя переделывать. Хотел еще DCL окно добавить но понял что это вам не пгодойдет. Уж слишком тяжело будет написть окно для множества значений. Только ограниченное кол-во строк и кубиков. Можно будет только блдокировать значения которые вводить не надо.
__________________
Работаю за еду. Working for food. Für Essen arbeiten. العمل من أجل الغذاء Працую за їжу. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Для начала можно и это (поскольку действительно бесплатно)
Файл 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 кб.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Текст взят отсюда
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||