[nick005]

день добрый, уважаемые форумчане!
возникла проблема следующего рода: при использовании команды "мультивыноска" указываю положение полки самой выноски, затем длину и сам мультитекст. закрываю текстовый редактор. и все бы ничего, но если я веду полку мультивыноски влево, то текст у меня располагается над полкой (см. в файле К-1), а вот если "тяну" полочку вправо, то после ввода текста, он, то бишь сам текст, упрямо располагается напротив самой полочки (см. К-2). в чем проблема и как сделать, чтобы текст в обоих случаях располагался сверху над полкой мультивыноски?
AutoCAD 2010 версии, русифицированный

[Inventor_S]

Аналогичная ситуация, делал через макрокоманду - третья пауза в command "_mleader" предлагает ввести текст, но редактор Мтекста не открывается. Может куда-то надо всунуть "initdia" для открытия диалогового окна ? Но как только не пробовал - не получается ... Мне кажется какая-то функция должна быть для открытия текстового редактора. Как только мы его откроем, то моя просьба сразу окажется решаемой

[skkkk]

Вроде нашелся обходной путь

Код:

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

(defun C:ML_CENTER ()
	(vl-load-com)
	(command
			"_mleader"
			pause ;запрос первой точки
			pause ;запрос второй точки
			; "_e" ;конец
			; 0 ;величина полки
			"" ;отменяем ввод текста
	)
	(vla-put-TextJustify (vlax-ename->vla-object(entlast)) 2) ;назначаем выравнивание, 2 - по центру
	(command "_ddedit" (entlast) "") ;редактируем текст мвыноски
)

[Inventor_S]

Сообщение от skkkk Вроде нашелся обходной путь

Работает ! спасибо !

[emilko]

Доброго дня, подскажите каким образом для мультивыноски задать опцию "ориентация текста по листу", для обычного текста это работает, т.е. при повернутом ВЭ ориентация текста параллельна листу, а с выноской почему то так не выходит, хотя в настройках везде аннотации стоят, заранее спасибо

[Tyhig]

Добрый день.
Подскажите, пожалуйста, как сделать текст мультивыноски жирным ?
Автокад ЛТ 2014.
Можно не в стиле, а просто а одной мультивыноске (а я уж буду множить их). Всё равно никак не придумать как сделать.

[skkkk]

Команда _mleaderstyle, во вкладке "Содержимое" смотрим текстовый стиль. Esc. Далее команда '_style, смотрим? какой шрифт назначен стилю текста.
1. Если стилю текста в стиле мультивыноски назначен шрифт *.shx, то толщина текста Мвыноски будет меняться при изменении веса линий данной Мвыноски (нужно включить кнопку "Вес" внизу экрана).
2. Если стилю текста назначен шрифт *.ttf, то в редакторе текста Мвыноски нужно выделить текст и придать ему свойство "Жирный"

[Tyhig]

skkkk, спасибо большое.

Однако у меня тут проблема.
В фирме принудительно используется только шрифт *.shx
При этом хочется сделать позиции жирными, а линии выноски тонкими.
Неужели альтенатив нет ?

[Хмурый]

Tyhig, наверное, в фирме не принято делать жирные надписи. Да и некузяво это. Чертёж хуже читается и тонер не экономится

[Bull]

Сообщение от Tyhig При этом хочется сделать позиции жирными, а линии выноски тонкими. Неужели альтенатив нет ?

Альтернатива есть, почему же... Делать цветозависимую печать и назначить тексту уникальный цвет в стиле (или такой же, как у всех других текстов, если и они должны быть жирными).

[kacugu]

Сообщение от Tyhig Неужели альтенатив нет ?

Поместите мультивыноску на слой, в котором задан требуемый вес линии
Ну а линиям выноски в стиле смените вес линии с "по слою" на любой другой

[2rist]

День добрый.
Как сделать вертикальный текст в мультивыноске? Пробовал в свойствах менять Поворот на 90, но ни чего не происходит. А если в свойствах изменить Направление на Вертикально, то в редакторе текста курсор поворачивается, а текст все равно печатается горизонтально.

[Bull]

Я просто поворачиваю всю выноску и потом правлю стрелку.

[2rist]

Сообщение от Bull Я просто поворачиваю всю выноску и потом правлю стрелку.

Ну да, точно)))

[MFor]

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

[Gmk17]

Сообщение от MFor Вопрос, можно ли заставить мультивыноску опять слушаться настроек стиля?

Выдели нужные выноски ("выбрать подобные", например), переключи их стиль на Standard, затем опять на свой стиль.

[MFor]

Сообщение от Gmk17 Выдели нужные выноски ("выбрать подобные", например), переключи их стиль на Standard, затем опять на свой стиль.

Ничего кроме стиля при этом не меняется. Параметр текста "justify" остается.

[skkkk]

Сообщение от MFor Эти настройки работают до тех пор пока принудительно не установил какое-либо выравнивание.

MFor, подтверждаю подобное поведение (AutoCAD 2011). При отключенной галочке "Выравнивать влево" мультивыноска выравнивается относительно полки динамически при переносе текста через выносную линию. Видимо, на передвижение мультивыноски программисты Autodesk приладили нечто вроде реактора, и он меняет выравнивание (можно убедиться в свойствах) в зависимости от взаимного расположения текста и выносной линии. После принудительного назначения выравнивания - хоть программно, хоть через свойства, - выравнивание меняться перестает. Но это только полбеды, с которой я впрочем уже разобрался. Дело в том, что при ручном назначении выравнивания меняется один из 90-х кодов (Property Override Flag), который судя по всему и сигнализирует о ручном переопределении выноски, и она перестает подчиняться настройкам текстового стиля, не знаю как в целом, но в частности - перестает реагировать на положение текста относительно выносной линии. Если запустить код

Код:

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

(defun C:TEST (/ en_lst)
	(setq en_lst (entget (car (entsel "\nУкажите мультивыноску:"))))
	(setq en_lst (subst (cons 90 263360)(cons 90 67388608) en_lst))
	(entmod en_lst)
)

и выбрать мультивыноску (для набора выносок сделать не проблема), то флаг переопределения с нее должен сняться (по крайней мере у меня в конкретном случае сработало), и она начнет выравнивать текст относительно выносной линии правильно, но есть один момент - вторые полбеды. "Неправильные" выноски сами не обновятся. Чтобы они обновились, надо каждую пошевелить за ручку. Как это победить программно - пока ума не приложу.

[MFor]

Спасибо! Жаль в лиспе ничего не понимаю )
Но дернуть каждую выноску уже легче чем задать каждой выравнивание вручную.

Существует ли способ выбрать мультивыноски по направлению привязки (или как это назвать), чтобы задать принудительно выравнивание текста по левому или правому краю?

[skkkk]

Сообщение от MFor Но дернуть каждую выноску уже легче чем задать каждой выравнивание вручную.

Тогда вот версия для множественного выбора. Нужно рамкой выбрать область, если в ней окажутся мультивыноски, - все обработаются.

Код:

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

(defun C:TEST (/ ss i en en_lst)
	(setq ss (ssget '((0 . "MULTILEADER"))))
	(if ss
		(repeat (setq i (sslength ss))
			(setq en (ssname ss (setq i (1- i)))
				  en_lst (entget en)
				  en_lst (subst (cons 90 263360)(cons 90 67388608) en_lst)
			)
			(entmod en_lst)
		)
		(princ "\nМультивыноски не найдены")
	)
	(princ)
)

Вообще есть мысль, что каждой выноске можно назначить принудительно выравнивание в зависимости от ориентации, вот только вопрос в том, как программно вычислить положение текста относительно выносной линии, или, другими словами, как понять, в какую сторону "смотрит" выносная линия. Пока приходит в голову только метод "в лоб": взорвать копию мультивыноски и анализировать полученные линии - точка их пересечения укажет на ориентацию выноски, и в зависимости от нее назначить выравнивание принудительно, а затем удалить остатки от взрыва и сбросить флаг переопределения на случай, если после возникнет желание эти выноски подергать. Если кто-то знает, как это сделать "правильней", прошу поделиться.