| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > как мультекст превратить в текст? И надо ли в моём случае?

как мультекст превратить в текст? И надо ли в моём случае?

Ответ
Поиск в этой теме
Непрочитано 05.02.2013, 19:49 #1
как мультекст превратить в текст? И надо ли в моём случае?
Малявка
 
Егорьевск Моск.обл.
Регистрация: 28.02.2007
Сообщений: 206

Здравствуйте! Всё время пользовалась примитивами "текст". Ужимала их (меняла коэффициент сжатия) с помощью команды "копирование свойств". А в новом чертеже - сплошь и рядом мультитексты. И мне надо их тоже ужать слегка. Не по одиночке (это я умею), а стадом. Подскажите реальный вариант, может есть лиспик, превращающий Мтекст в текст с базовой точкой в том же месте. Или предложите какой-либо иной вариант.
Спасибо.
p.s. мультитексты - все однострочные (обозначения осей в кружочках вида "3-25"). Пользуюсь AutoCAD 2011 RUS
Просмотров: 4859
 
Непрочитано 05.02.2013, 19:58
#2
sertor

Геодезист
 
Регистрация: 23.05.2012
Ухта
Сообщений: 1,374


А расчленять Мтекст пробовали?
__________________
Как-то так.
sertor вне форума  
 
Автор темы   Непрочитано 05.02.2013, 20:33
#3
Малявка


 
Регистрация: 28.02.2007
Егорьевск Моск.обл.
Сообщений: 206


Спасибо, завтра на работе попробую.
Малявка вне форума  
 
Непрочитано 05.02.2013, 23:37
#4
Startrek

AutoCAD/AutoLISP
 
Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133


Сначала измени один МТехт как надо а потом коммандой '_MATCHPROP
изменяй все что надо
__________________
Сквозь тернии к звездам.... и обратно :yes:
Startrek вне форума  
 
Непрочитано 06.02.2013, 00:41
#5
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Не сработает. Коэффициент сжатия в MTEXT записывается напрямую в форматирование.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 06.02.2013, 11:45
#6
Малявка


 
Регистрация: 28.02.2007
Егорьевск Моск.обл.
Сообщений: 206


sertor, помогло. Быстым выбором выделила все Мтексты, расчленила и потом опять быстрым выбором - уже тексты ужала. Спасибо!
Малявка вне форума  
 
Непрочитано 07.02.2013, 03:47
#7
PL


 
Регистрация: 23.11.2006
California
Сообщений: 4,750


>Кулик Алексей aka kpblc
Цитата:
Не сработает. Коэффициент сжатия в MTEXT записывается напрямую в форматирование.
а у меня изменение коэфф сжатия в стиле текста изменяет существующий мтекст в автокаде 2004 и 2013. в 2011 не изменяет. но если скопировать мтекст в буфер обмена, изменить коэфф. сжатия и вставить текст в чертеж - он сжимается и в 2011.

Последний раз редактировалось PL, 07.02.2013 в 03:53.
PL вне форума  
 
Непрочитано 14.11.2016, 13:23
#8
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


А может лисп есть удобный для пакетного изменения только коэффициентов сжатия многих Мтекстов? Или объясните мне пожалуйста в чем у разработчиков была сложность добавить подобное поле в свойства подобно однострочному тексту (https://cloud.mail.ru/public/EQPx/38bDpCxCz )?
allar8 вне форума  
 
Непрочитано 14.11.2016, 13:42
#9
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,090


Цитата:
Сообщение от allar8 Посмотреть сообщение
Или объясните мне пожалуйста в чем у разработчиков была сложность добавить подобное поле в свойства подобно однострочному тексту
Потому что в пределах одного Мтекста коэффициент сжатия может быть разный.

Цитата:
Сообщение от allar8 Посмотреть сообщение
А может лисп есть удобный для пакетного изменения только коэффициентов сжатия многих Мтекстов?
Сначала, при необходимости, очистка форматирования (возможно, только в части коэф. сжатия), потом приписать им всем новый стиль с нужным коэф. сжатия
kp+ вне форума  
 
Непрочитано 14.11.2016, 13:58
#10
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
Сначала, при необходимости, очистка форматирования (возможно, только в части коэф. сжатия), потом приписать им всем новый стиль с нужным коэф. сжатия
Так и делаем все время - согласитесь - лишние манипуляции.


Цитата:
Сообщение от kp+ Посмотреть сообщение
Потому что в пределах одного Мтекста коэффициент сжатия может быть разный.
Можно было бы в этом случае это свойство делать неактивным или как обычно пишут РАЗНЫЕ. Знаю что могут быть в пределах одного мтекста разные коэф. сжатия , но что то я не могу вспомнить что я когда-нибудь использовал разные коэффициенты сжатия в пределах одного МТЕКСТА. Т.е. этим самым разработчики пропагандируют разнообразие шрифтов в пределах одного чертежа в противоречие нашим гостам. Не спорю может за бугром это и приветсвуется - но если честно выглядит это странно.
allar8 вне форума  
 
Непрочитано 14.11.2016, 14:05
| 1 #11
Bull

Конструктор по сути (машиностроитель)
 
Регистрация: 10.10.2005
Набережные Челны (это где КамАЗ)
Сообщений: 11,391


Цитата:
Сообщение от allar8 Посмотреть сообщение
пропагандируют разнообразие шрифтов в пределах одного чертежа в противоречие нашим гостам.
тем компьютерные программы и отличаются, что можно "легким движением плеча" обойти простые затыки. Например, текст совсем чуть не влезает в нужные рамки. Поставил не 0.8, а 0.78 и всё в порядке. Чертеж остается читаемым, проблем нет. А уж НК пусть проверяет
__________________
Век живи, век учись - ...
Bull вне форума  
 
Непрочитано 14.11.2016, 14:06
#12
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,326


в нашей конторе допускается сжатие текста до 0.7
Хмурый вне форума  
 
Непрочитано 14.11.2016, 14:11
#13
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от Bull Посмотреть сообщение
тем компьютерные программы и отличаются, что можно "легким движением плеча" обойти простые затыки. Например, текст совсем чуть не влезает в нужные рамки. Поставил не 0.8, а 0.78 и всё в порядке. Чертеж остается читаемым, проблем нет. А уж НК пусть проверяет
Лано, понял я Вас - Лиспа соответсвующего занчит нет?. Ну жили же как то раньше с этим, значит и дальше проживем. Просто сегодня чет взгруснулось - в очередной раз привожу в порядок шрифты. Хотя может не меня это одного беспокоит, может кто нить очень умный лиспик то сварганит, если конечно время позволяет.
allar8 вне форума  
 
Непрочитано 14.11.2016, 14:13
#14
Bull

Конструктор по сути (машиностроитель)
 
Регистрация: 10.10.2005
Набережные Челны (это где КамАЗ)
Сообщений: 11,391


Цитата:
Сообщение от allar8 Посмотреть сообщение
может кто нить очень умный лиспик то сварганит,
ну, это в раздел "программирование". Создайте тему. Не забыв упомянуть о ссылке из 9-го сообщения. Чтобы было от чего плясать и уменьшить затраты времени "программистам"
__________________
Век живи, век учись - ...
Bull вне форума  
 
Непрочитано 14.11.2016, 14:27
#15
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,090


Цитата:
Сообщение от allar8 Посмотреть сообщение
может кто нить очень умный лиспик то сварганит
Можете и сами дерзнуть, благо проги по ссылке с открытым кодом. Очистка форматирования все равно нужна, а потом перед самой записью очищенного содержимого в объект в начале добавить что-то типа \w0.8
kp+ вне форума  
 
Непрочитано 14.11.2016, 16:35
#16
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
Можете и сами дерзнуть, благо проги по ссылке с открытым кодом. Очистка форматирования все равно нужна, а потом перед самой записью очищенного содержимого в объект в начале добавить что-то типа \w0.8
Я бы рад, да некогда, поэтому и прошу - может есть энтузиасты. Ну нет так нет - не расстроюсь. Я ж просто тогда хотел обратить внимание на проблему. Не будет решения - переживем, раньше же жили.
allar8 вне форума  
 
Непрочитано 15.11.2016, 09:49
#17
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,090


Offtop:
Цитата:
Сообщение от allar8 Посмотреть сообщение
Я бы рад, да некогда, поэтому и прошу - может есть энтузиасты
Будь попроще Напиши сам хоть пару строк кода, пусть поначалу плохо и неправильно - и народ к тебе потянется (С). А с таким посылом, что у меня времени нет, а у вас должно быть, поскольку вы энтузазистыэнтузиасты, и поэтому все мне напишите - отклик будет самый отрицательный

Последний раз редактировалось kp+, 15.11.2016 в 09:55.
kp+ вне форума  
 
Непрочитано 15.11.2016, 10:45
1 | #18
trushev


 
Регистрация: 12.01.2015
Сообщений: 261


Цитата:
Сообщение от kp+ Посмотреть сообщение
Напиши сам хоть пару строк кода
Для allar8, в качестве отправной точки:
Код:
[Выделить все]
;Программа изменения высоты и угла поворота текста в соответствии
;с масштабным коэффициентом (переменная mb) и угла изменения поворота (переменная du)
;
;СОздаем набор из примитивов TEXT и MTEXT
;
(setq nabr (ssget)  ;выбор только указанных примитивов
                 ;
                 ;
                 ;УСТАНОВИТЬ ЗНАЧЕНИЯ ПЕРЕМЕННЫХ
                 ;
                 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                   ;
        du 180.0   ;угол поворота в градусах
        mb 1.0     ;масштабный коэффициент высоты шрифта
                   ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 ;
                 ;
                 ;
        du (* pi du 0.00555555555);перевод градусов в радианы [pi * du * (1/180.0)]
        mb (atof (rtos mb 2 3))
         s (cond ((<= mb 0.0)
                  (alert (strcat "             ОШИБКА!!!"
                                 "\n"
                                 "\n"
                                 "Масштабный коэффициент должен быть положительным числом больше 0.0!"
                         )
                  )
                  'nil
                 )
                 ((= mb 1.0)
                  "Текстовые части рисунка не меняются."
                 )
                 ((> mb 1.0)
                  (strcat "Высота текста увеличивается в " (rtos mb 2 3) " раз.")
                 )
                 ((< mb 1.0)
                  (strcat "Высота текста уменьшается в " (rtos (/ 1.0 mb) 2 3) " раз.")
                 )
           );cond
)
(if s
    (progn
    (alert (strcat "Текст НЕ МЕНЯЕТСЯ только на заблокированных слоях!"
                   "\n"
                   "\n"
                    s
           )
    )
    ;
    (while (and nabr ( > (sslength nabr) 0))
           (setq nm (ssname nabr 0)               ;Имя примитива
                 sp (entget nm)                   ;Список из базы данных
           )
           (if (or (= (cdr (assoc 0 sp)) "TEXT")
                   (= (cdr (assoc 0 sp)) "MTEXT")
               );or
                  ;
                  ;Только для примитивов "TEXT" или "MTEXT"
                  ;
               (setq sa (assoc 40 sp) ;высота текста  ;Извлечение интересуещего параметра
                     sn (cons 40 (* (cdr sa) mb))     ;Формирование нового члена (Код Измененный_параметр)
                     ug (assoc 50 sp) ;угол поворота текста
                     sp (subst sn sa sp)              ;Замена старого члена на новый
                     sn (cons 50 (+ (cdr ug) du))     ;Формирование нового члена (Код Измененный_параметр)
                     sp (subst sn ug sp)              ;Замена старого члена на новый
               )
           );if (or (= (cdr (assoc 0 sp)) "TEXT")
           (setq nabr (ssdel nm nabr))
           (entmod sp)                            ;Обновление базы данных
    );while ( > (sslength nabr) 0)
    ;
    (alert "ПРОГРАММА ЗАВЕРШЕНА")
    );progn
    (alert "АВАРИЙНОЕ ЗАВЕРШЕНИЕ ПРОГРАММЫ")
);if s
trushev вне форума  
 
Непрочитано 15.11.2016, 13:40
#19
allar8


 
Регистрация: 12.03.2013
Сообщений: 650


Цитата:
Сообщение от kp+ Посмотреть сообщение
Будь попроще Напиши сам хоть пару строк кода, пусть поначалу плохо и неправильно - и народ к тебе потянется (С). А с таким посылом, что у меня времени нет, а у вас должно быть, поскольку вы энтузазистыэнтузиасты, и поэтому все мне напишите - отклик будет самый отрицательный
Сознаюсь, в плане лиспов я больше потребитель. Согласен что можно разобраться и самому писать - но это опасно - т.к. может быть очень интересно. Учусь себя ограничивать.
allar8 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > как мультекст превратить в текст? И надо ли в моём случае?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработка ПОС, искусство проектирования Tyhig Технология и организация строительства 117 25.11.2021 17:38
Какой язык перспективен для инженера-конструктора с условием The_Mercy_Seat Программирование 705 17.03.2021 14:19
Возможно ли уменьшение снеговой нагрузки за счет мероприятий по очистке снега? Aragorn Конструкции зданий и сооружений 90 19.01.2018 10:34
Аттестация в Минрегионе по негосударственной экспертизе Людмила Охр Прочее. Архитектура и строительство 350 14.02.2015 17:50
Превратить все поля существующей таблицы в текст. shartal Программирование 10 18.08.2011 14:29