[DANZZ]

есть блок с атрибутом ТЕКСТ и линеей под текстом, можно ли написать лисп чтоб при наборе текста линия под текстом изменялась в зависимости от длины текста!!!

[DANZZ]

глядел, но в лиспе не соображаю, пытался изменить, не получается, синтаксиса не знаю, так то вроде понятно че да как

[DEM]

ЖДУ ФУЛЕР
[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)))

[Кулик Алексей aka kpblc]

В первом лиспе, который с кубиками (какие кубики, я так и не понял) используется строка

Код:

[Выделить все]

(command "_.text" pt5 2.5 0 t)
(command "_.text" pt5 2.5 0 t)

Вызывает ошибку выполнения - зарезервированный символ t используется не по назначению
Кроме того, у меня полилинии постоянно нулевой ширины, а у тебя они меняются. Вернуть не помешало бы

[DEM]

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

[/code]
(princ "Введите текст кубика N ")
(princ (itoa step))
(princ ": ")
(setq T (getstring 4 5))
(command "_.text" pt5 2.5 0 T)

[DANZZ]

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

а так то что надо!!!
[ATTACH]1147247869.dwg[/ATTACH]

[DEM]

Ну уж в другую сторону мне если честно в ломы уже писать.
Так просто поставил для себя задачку, решил её и доволен.

[DANZZ]

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

как быть с этим, причем иногда выподает, а иногда нет, от чего это зависит?
и полки то не рисуются до конца текста!!!

[DEM]

Добавь в локальные переменные T.
Я по запарке забыл внести.
Чтобы увеличить длину выноски надо в строке
(setq L (* 2 (strlen P)))
Поменять 2 на другое значение
Все будет зависеть от шрифта.

[DEM]

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

Вот для этого и надо начинать изучать ЛИСП
Чтобы хотя бы чужие заготовки под себя переделывать.
Хотел еще DCL окно добавить но понял что это вам не пгодойдет.
Уж слишком тяжело будет написть окно для множества значений.
Только ограниченное кол-во строк и кубиков.
Можно будет только блдокировать значения которые вводить не надо.

[DANZZ]

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

[Кулик Алексей aka kpblc]

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

Файл 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 кб.

[DANZZ]

спасибо!!!

[Кулик Алексей aka kpblc]

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