[Composter]

я впервые столкнулся с 2009 автокадом и решил попробовать мультивыноски. активно ими пользовался и практически сразу заметил что определенные символы опускают текст на несколько миллиметров , у меня например а(русская прописная), a(английская прописная), и цифра 9, (наблюдается если использовать шрифт gost 2.304 type A , которым я пользовался).Это исправляется если в конце текста добавить 2 строку и изменить высоту этой строки. Так как мультивыносок много, то на исправление вручную уйдет несколько дней. Теперь о макросе.
Далее, собственно, как я вижу предстоящую программу:
-при щелканье на мультиссылке (я знаю что команда ddedit открывает текст мультиссылки для редактирования, хотя текст в мссылке мульти, а не однострочный) что бы в конце текста добавлялись определенные символы (в данном случае переход на другую строку с пробелом, измененной высоты)
Особые пожелания:
-что бы запрашивала прога какие я хочу символы добавлять
-что бы запрашивала прога высоту шрифта добавляемой строки
-что бы можно было сразу кучу мультиссылок исправлять таким образом, а не щелкать отдельно по каждой .
В общем, очень надеюсь на помощь специалистов, ради написания данной програмки сел изучать автолисп, но пока знание довольно сыроваты ) Заранее спасибо
---
Одно из возможных решений (спасибо VVA)

[ShaggyDoc]

Это объявление о тендере? Тогда кое-чего не хватает, учитывая "особые пожелания".

[Composter]

нет это не тендер, насколько я понимаю это будет просто набор команд, 1 это ddedit
2 перемещение в конец текста (аналогичное нажатию клавиши end )
3 потом втавка нескольких символов
4 закрытие и сохранение текста
5 множественое выполнение ( как при преобразовании линий в полилинии с помощью pedit с добавкой m)

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

[Дима_]

Откровенно говоря я не понял точно что нужно - но по моему примерно так:

Код:

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

(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst
);end of sstolist

(defun c:test ( / lst str)
(princ "Выберите выноски ")
(setq	lst (sstolist (ssget (list (cons 0 "MULTILEADER"))))
	str (strlen (cdr (assoc 304 (entget (car lst)))))
);end of setq
(command "_ddedit" (car lst) "")

(setq 	str (substr (cdr (assoc 304 (entget (car lst)))) str)
	lst (cdr lst)
);end of setq
(mapcar '(lambda (obj)
(entmod (subst (cons 304 (strcat (cdr (assoc 304 (entget obj))) str)) (assoc 304 (entget obj)) (entget obj)))
);end of lambda
lst)
nil
);end of test

Запускать командой тест.

[Composter]

Дима_ мож я не понял как именно пользоваться етим.я выделяю кучу mleaderов ,нажимаю ентер, он (lisp) произвольным образов открывает одну из mleaderов для редактирования текста.если ничего ни добавлять а закрыть, то добавиться по 1 символу ко всем выделеным mleaderам , причем етот символ последний в той мультивыноске которую он случайно выбрал для редактирования.
А можно сделать так что бы к всем выделеным мультивыноскам добавлялся текст из буфера?

[Дима_]

Он показывет 1 выбранный - добавляй в конец его нужные символы - аналогичное действие произойдет с остальными.

[Composter]

может быть я что то не так делаю, прикрепляю файл с результатами.во 2 поле я добавил только цифру 6, а втретьем поле я добавил вторую строку,уменьшенной высоты и смещенную вверх. посмотрите на мои результаты.изменяема ссылка была где надпись Ст.10

[wetr]

Composter, я что-то не пойму этих шаманских танцев с бубном. Разве

Underline bottom line и в свойствах Line space style -> Exactly

не помогает?
Я в твоем файле так сделал - текст поднялся.

[Composter]

уважаемый wetr , как вы до етого написали Underline bottom line и в свойствах Line space style -> Exactly , у меня почему то не выходит .у меня получаются мультивыноски разной высоты , может я что то не то делаю, подскажите, на всякий случай выкладываю 2 файла.
в первой рамке у мя at least во второй exactly

[Серёга - Bilder]

Composter, кстати, поднял вопрос, который и меня интересовал. Я тоже обратил внимание на то, что текст то "сползает" ниже, то нормально встаёт. Победить эту ерунду рациональными способами так и не удалось

Это исправляется если в конце текста добавить 2 строку и изменить высоту этой строки.

- этот вариант мне кажется извращенством. Может есть какие-то нормальные способы наведения порядка в мультивыносках?

[Composter]

еще есть один вариант,но он еще извращенистей, в 2009 автокаде в редактировании мульти текста есть кнопка paragraf , там выбрать line spacing .для моего 350 шрифта идеально подходит значение 0.725 .но ето еще дольше чем всталять 2 строку.я пытался развиить тему в http://forum.dwg.ru/showthread.php?t...hlight=mleader , но обычными средствами никто не смог помочь

[wetr]

Composter, наконец-то понял, что ты хочешь
Тебя смущает, что текст на разной высоте от полки? А я то примеряю на себя - для меня главной проблемой было прилипание к полке. А уж если отлипло - то бог с ним на какой высоте болтается этот текст, лиж бы читался. Да и в глаза мне не бросается, что он на разной высоте.
Про добавление текста внижней строке, солидарен с Серёга - Bilder,

[wetr]

Сообщение от Composter еще есть один вариант,но он еще извращенистей, в 2009 автокаде в редактировании мульти текста есть кнопка paragraf , там выбрать line spacing .для моего 350 шрифта идеально подходит значение 0.725...

странно, у меня почему-то

кнопка paragraf

в меню неактивна.

[wetr]

ОООООООООООООО!
ОТЛИЧНО!
Composter - респект! Нарыл такую настройку!
В окне форматирования текста нажимаем кнопку "Line spacing"-"More"-ставим галочку "paragraf line spacing", "Exactly"-"5". 5 у меня для текста высотой 6. Т.е. коэфициент получается примерно 0,83.
Вот это уже более корректно, нежели добавлять текст внизу. У меня например мекст состоит из 2 или 3 строк. А если внизу уже есть какой-то текст - то это бяка.
Еще плюс варианту от Composter - не надо выставлять "Underline bottom line". Можно и "Underline top line"
Вот если бы эту настройку назначать всем мультилидерам программно! Это было бы полезно многим

[wetr]

Диалог программы примерно такой
Введите междустрочный интервал параграфа:...
Выберете выноски <Все>: ...
ОК!

[wetr]

Продолжаю ковырять мультилидер.
Залез в свойства

Код:

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

((-1 . <Entity name: 78dd4500>) (0 . MULTILEADER) (330 . <Entity 
name: 7dc0ecf8>) (5 . 611B8) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 
_Выноски) (48 . 100.0) (100 . AcDbMLeader) (300 . CONTEXT_DATA{) (40 . 1.0) (10 
176352.0 4049.28 0.0) (41 . 3.0) (140 . 50.0) (145 . 2.0) (174 . 6) (175 . 6) 
(176 . 2) (177 . 0) (290 . 1) (304 . тарельчатый \Pдюбель) (11 0.0 0.0 1.0) 
(340 . <Entity name: 7dc0c7a0>) (12 176377.0 4052.37 0.0) (13 1.0 0.0 0.0) (42 
. 0.0) (43 . 0.0) (44 . 0.0) (45 . 1.0) (170 . 1) (90 . -1073741824) (171 . 3) 
(172 . 5) (91 . -1073741824) (141 . 0.0) (92 . 12634016) (291 . 0) (292 . 0) 
(173 . 0) (293 . 0) (142 . 0.0) (143 . 0.0) (294 . 0) (295 . 0) (296 . 0) (110 
176403.0 4087.76 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (297 . 0) (302 . 
LEADER{) (290 . 1) (291 . 1) (10 176379.0 4049.28 0.0) (11 -1.0 0.0 0.0) (90 . 
0) (40 . 0.0) (304 . LEADER_LINE{) (10 176403.0 4087.76 0.0) (91 . 0) (305 . }) 
(303 . }) (301 . }) (340 . <Entity name: 7dc20a98>) (90 . 17056836) (170 . 1) 
(91 . -1056964608) (341 . <Entity name: 7dc0eca0>) (171 . -2) (290 . 1) (291 . 
1) (41 . 0.0) (342 . <Entity name: 7dc0b770>) (42 . 50.0) (172 . 2) (343 . 
<Entity name: 7dc0c7a0>) (173 . 6) (95 . 6) (174 . 1) (175 . 2) (92 . 
-1056964608) (292 . 0) (93 . -1056964608) (10 1.0 1.0 1.0) (43 . 0.0) (176 . 0) 
(293 . 0) (294 . 0) (178 . 0) (179 . 3) (45 . 1.0))

Т.е. содержание м.текста содержится здесь
(304 . тарельчатый \Pдюбель)
если применить способ подымания/отрывания м.текста описанный в посте 14, то получается такое форматирование

Код:

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

 \pxse0.83333;тарельчатый 
\ps*;дюбель

Ставните с

Код:

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

тарельчатый \Pдюбель

Т.е. программа должна просто вставлять в м.текст дополнительные символы
Истина где-то рядом

[wetr]

Так выглядит однострочный м.текст с форматированием под м.лидер

Код:

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

\pxse0.83333;Текст

без форматирования

Код:

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

Текст

Offtop: блин, я уже как Supermax становлюсь - один на форуме общаюсь

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

Удалено как полное фуфло.

[Composter]

wetr а теперь объясни доступным языком, что ты хотел сказать последними 2 сообщениями?

[wetr]

Кулик Алексей aka kpblc, в 2008 тоже м.лидер есть