[Dies77_66]

Вопрос банальный где ето скачать можно!!!
надо чтоб создавались вот такие выноски и их модификации
[ATTACH]1146637262.dwg[/ATTACH]

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

ИМХО: проще (если надо именно такое) написать самостоятельно

[Dies77_66]

ИМХО: проще (если надо именно такое) написать самостоятельно

Ну если бы моглось и зналось то написалось А так вот никак! [sm907]

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

Ну можно вообще свой блок создать (с атрибутами) и его испльзовать в качестве аннотации. Один из самых дешевых по трудозатратам вариант будет, ЯТД,

[vk]

Ежели без претензий на рамку в последней строке - тады вот это
А ежели с претензиями, тады не годится... Не предусмотрено

[AY]

Ну можно вообще свой блок создать (с атрибутами) и его испльзовать в качестве аннотации. Один из самых дешевых по трудозатратам вариант будет, ЯТД,

Это точно я тоже некоторое время назад к этому пришел. Кстати, крыс, помнится, ты пытался сделать редактирование такого блока по двойному клику. Получилось?

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

Не-а. Если там использовать атрибуты (что напрашивается), то в любом варианте для ком.реактора вываливается стандартное окно редактирования атрибутов. Вариантов несколько ИМХО:
- сделать дин.блок с [фиксированной] шириной полки и некоторым количеством атрибутов, дальше играться режимом видимости.
- делать временный блок, в него засовывать тексты и отрезки, применять этот блок как аннотацию к выноске, потом можно блок разбивать и уничтожать (можно и оставить, на всякий случай)
- использовать ObjectARX и пытаться написать собственный примитив.
Первые два варианта я прошел, третий - я пас.

[ki]

Попробовал написать програмку. Вот смотрите, подходит? Сильно не бейте - это мой дебют. Прогу делал по образцу, да простят меня авторы образца (если узнают в моей проге остатки своего творения ). Но надо же было от чего-то отталкиваться чайнику.
[ATTACH]1146826767.rar[/ATTACH]

Если нужны модификации, то напишите какие именно.

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

Чуть-чуть покритиковать можно?
На случай, если "да".
Строка:

Код:

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

  (setq	olderr	*error*			; Initialize variables
	*error*	prerr
	) ;_ end of setq

Имеет достаточно мало смысла - функция prerr не определена. Кроме того, prerr является глобальной переменной. То есть вообще можем получить бог знает что (в prerr может храниться значение, может - функция)...
olderr не закинута в локальные переменные.
Перед командами (которые через (command) идут) не стоят "_", т.е. код в локализованных версиях работать не будет.
Текстовый стиль должен быть предопределен, не отслеживается вариант другой настройки высоты стиля...
Я надеюсь, что не отбил у тебя охоту программировать?

[ki]

Эти переменные я не трогал. Я взял рабочий лисп и на его основе стал строить свой, т.к. я пока в лиспе не силен. Про локалку не подумал - минус мне . Я уже когда написал эту програмульку (все наконец заработало так как надо), подумал о том, что надо бы сделать возможность менять свойства текста (хотя бы высоту, для этого введена переменная h и ее определение закрыто в каментах) и размеры линий. Но это будет чуть позже. А вообще, любая критика только приветствуется, т.к. это мне поможет.

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

Проверять "нулевость" высоты текстового стиля можно так:

Код:

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

(if (equal 0
	   (cdr (assoc 40 (entget (tblobjname "style" (getvar "textstyle")))))
	   0.1
	   ) ;_ end of equal
  (progn
   ;; для нулевой высоты
   )
  (progn
   ;; для ненулевой высоты
   )
  ) ;_ end of if

[DANZZ]

KI, у меня не пошла программка, выдает кучу неизвестных команд, после "введите текст первой строки"!!!!

[DEM]

Откройте файл с лиспом текстовым редактором
добавьте перед командами TEХT и LINE
TEXT => _TEXT
То же надо выполнить с командами следующими после TEXT.
то есть f=>_f
Я посмотрел эту программу её еще надо подредактировать.

[DANZZ]

А если надо 3 строки или всего одну, и может быть 10 кабельных марок, это тоже очень важно!!!
Было бы здорово если бы ето все можно было выбирать диалоговом окне!!!

[ki]

Привет.
Уф, добрался я до ящика (и до работы ). Извини, что раньше не отвечал. Пока доработал прогу до след. состояния: работает и в локалке, высота текста изменяется, текст не вписывается жестко, отступы зависят от размера.
Попробую сделать изменения по вашему желанию.
Напишите поподробнее, что вы хотите.
Пока.
[ATTACH]1147349841.rar[/ATTACH]

Если кто-то скачивал архив, то я его заменил. Исправил отключение привязок, не работало в русском АКАДе 2006.

[ki]

Привет еще раз. Доработал прогу. Теперь можно задать число строк и число марок.
[ATTACH]1147356410.rar[/ATTACH]

Отказаться от ввода марок можно вводом нуля или отрицательного значения.

[pyatifan]

У меня фатальная ошибка...
Я пользуюсь одной штукенцией, мож кому и понравится...
http://dwg.ru/forum/viewtopic.php?p=...ghlight=#75518

[ki]

Сообщение от pyatifan У меня фатальная ошибка...

Привет. Я проверял в 2002 англ.+рус и 2006 локалка и все работало. Кто разбирается посмотрите, плиз, где я напортачил.
Ниже дан архив с исправленным лиспом - убрал неопределенную функ., может в этом было дело.
[ATTACH]1147415057.rar[/ATTACH]

[DANZZ]

Сообщение от ki Попробую сделать изменения по вашему желанию. Напишите поподробнее, что вы хотите.

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

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

Заранее спасибо!!!

[DANZZ]

Можно еще добавить
(setq KG (getreal "\nУкажите текущий коэффициент зжатия текста: "))

(if (<= KG 0)
(setq KG 0.75)
) ;_______> end if

и подставить в (setq tsize (* KG (strlen ch1) h))

тогда полки более менее равняются по тексту!!!