Преобразовать текст в текст автокад
На чертеже много односрочных текстов,а их надо преобразовать в многострочные (с одной строкой).Есть ли лисп или еще что-нибудь?
Как вариант - txt2mtxt из ExpressTools. Ну или на форуме я выкладывал вариант (тема "AutoCAD LT для маленькой компании")
__________________ --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
А несколько строк с текстом можно как то конвертировать в одну мультивыноску?
или как вариант мтекст в мультивыноску.
(было бы полезно при оформлении чертежей иметь такую функцию=кнопку)
--- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
Одни дядьки делают программы для того, чтобы тексты в мультитексты переводить, чтоб другим людям удобнее работать было (этим дядькам спасибо громадное), а другие - наоборот: делают какую-то чёртову штуковину, чтобы простой текст (который, вообще-то, даже не взрывается, то есть не "эксплоудирует") превращать в отдельные буковки, donnerwetter! А последнее время вообще какая-то мода идиотская пошла: изобретательные вредители разбивают даже буковки на чёрточки, шайссе! Поубивал бы этих изобретателей. Боюсь, что скоро эти шайсседоннерветтеры скоро додумаются до того, что начнут теперь разбивать эти чёрточки на точечки. Только непонятно, они что, радуются от этого, что ли? У нас мужик один пробовал всякие файнридеры разные (когда с этим боролся), потом плюнул (на хрена ему это надо?), потом уволился по пьянке.
Aka, простите, что я влез сюда к Вам, я в этих Ваших лиспах ничего не понимаю, но смысл данных "штук" можете объяснить? Не все же ведь лисперы и докторы.
Боюсь, что скоро эти шайсседоннерветтеры скоро додумаются до того, что начнут теперь разбивать эти чёрточки на точечки.
convert mtext to multileader
(defun c:mt2ml ( / oobj nobj nstrg)
(vl-load-com)
(setq oobj (vlax-ename->vla-object (car (nentsel "\nSelect source text: "))))
(if (= (vlax-get-property oobj 'ObjectName) "AcDbMText")
(setq nstrg (vlax-get-property oobj 'TextString))
(exit)
)
(command "_MLEADER")
(while (= 1 (logand (getvar "CMDACTIVE") 1)) (command PAUSE))
(setq nobj (vlax-ename->vla-object (entlast)))
(if (= (vlax-get-property nobj 'ObjectName) "AcDbMLeader")
(vlax-put-property nobj 'TextString nstrg)
(exit)
)
(entdel (vlax-vla-object->ename oobj))
(princ)
)
Падлы.
Хотя потом наверняка умудрятся усложнить задачу. Каждую точку растра ещё больше закодируют. Ну, впендюрят ей третью координату, например. А величину третьей координаты выразят не в цифре, а в цвете. Или в запахе.
Недавно трепался с одним мужиком. Контора, в которой он работает, скидывает нам чертежи. Они специально запутывают всё подряд, чтобы наша контора ничего понять не могла. А наша контора пытается распутать хреновину. Таким образом, наши конторы снабжают друг друга работой. Добрая русская бесконечность.
что то лисп не работает (
загрузил и запустил (
Команда: BA
undo Неизвестная команда "UNDO". Для вызова справки нажмите F1.
Команда: begin Неизвестная команда "BEGIN". Для вызова справки нажмите F1.
Команда:
Select Dimensions and text to apply the background fill and update.
Выберите объекты: Противоположный угол: найдено: 11
Выберите объекты:
txt2mtxt Неизвестная команда "TXT2MTXT". Для вызова справки нажмите F1.
очень нужно преобразовать много текстов в Мтексты. Мтексты должны остаться на тех же местах.
Автор:
Преобразование или объединение однострочных или многострочных текстовых объектов в один или несколько многострочных текстовых объектов.
Выбранные текстовые объекты будут заменены одним или несколькими многострочными текстовыми объектами. По возможности сохраняются различия в размере текста, шрифтах и цветах.
Выберите объекты или [НАстройки]: выберите текст любым способом выбора объектов или укажите параметр «Настройки», чтобы открыть диалоговое окно параметров преобразования текста в многострочный текст.
Параметры диалогового окна
Объединить в один многострочный текстовый объект | Объединение выбранных текстовых объектов в один многострочный текстовый объект. |
Упорядочение текста — сортировка сверху вниз | Указание порядка следования выбранного текста по убыванию по вертикали. |
Упорядочение текста — выберите порядок следования текста | Указание порядка следования выбранного текста путем выбора вручную. |
Перенос текста по словам | Объединение всех строк текста в одну строку с последующим переносом в следующую строку всего текста, ширина которого превышает ширину многострочного текстового объекта. |
Принудительное использование единого межстрочного интервала | Применение согласованных значений межстрочного интервала и интервала между абзацами при включенной функции переноса по словам. Значение интервала между абзацами на 50 % больше значения межстрочного интервала. |
Пример
Выберите три текстовых объекта и преобразуйте их в один многострочный текстовый объект.
Выберите текстовые объекты:
Текстовые объекты будут преобразованы в один многострочный текстовый объект.
Прим.: Многострочный текстовый объект по-прежнему содержит набор строк, потому что три текстовых объекта были выровнены по вертикали. Если текстовые объекты не выровнены, в результате будет создан многострочный текстовый объект, где текст содержится в одной строке или переносится по словам (если включена функция переноса по словам).
На чертеже много односрочных текстов,а их надо преобразовать в многострочные (с одной строкой).Есть ли лисп или еще что-нибудь?
Как вариант - txt2mtxt из ExpressTools. Ну или на форуме я выкладывал вариант (тема "AutoCAD LT для маленькой компании")
__________________ --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
А несколько строк с текстом можно как то конвертировать в одну мультивыноску?
или как вариант мтекст в мультивыноску.
(было бы полезно при оформлении чертежей иметь такую функцию=кнопку)
--- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
Одни дядьки делают программы для того, чтобы тексты в мультитексты переводить, чтоб другим людям удобнее работать было (этим дядькам спасибо громадное), а другие - наоборот: делают какую-то чёртову штуковину, чтобы простой текст (который, вообще-то, даже не взрывается, то есть не "эксплоудирует") превращать в отдельные буковки, donnerwetter! А последнее время вообще какая-то мода идиотская пошла: изобретательные вредители разбивают даже буковки на чёрточки, шайссе! Поубивал бы этих изобретателей. Боюсь, что скоро эти шайсседоннерветтеры скоро додумаются до того, что начнут теперь разбивать эти чёрточки на точечки. Только непонятно, они что, радуются от этого, что ли? У нас мужик один пробовал всякие файнридеры разные (когда с этим боролся), потом плюнул (на хрена ему это надо?), потом уволился по пьянке.
Aka, простите, что я влез сюда к Вам, я в этих Ваших лиспах ничего не понимаю, но смысл данных "штук" можете объяснить? Не все же ведь лисперы и докторы.
Боюсь, что скоро эти шайсседоннерветтеры скоро додумаются до того, что начнут теперь разбивать эти чёрточки на точечки.
convert mtext to multileader
(defun c:mt2ml ( / oobj nobj nstrg)
(vl-load-com)
(setq oobj (vlax-ename->vla-object (car (nentsel "\nSelect source text: "))))
(if (= (vlax-get-property oobj 'ObjectName) "AcDbMText")
(setq nstrg (vlax-get-property oobj 'TextString))
(exit)
)
(command "_MLEADER")
(while (= 1 (logand (getvar "CMDACTIVE") 1)) (command PAUSE))
(setq nobj (vlax-ename->vla-object (entlast)))
(if (= (vlax-get-property nobj 'ObjectName) "AcDbMLeader")
(vlax-put-property nobj 'TextString nstrg)
(exit)
)
(entdel (vlax-vla-object->ename oobj))
(princ)
)
Падлы.
Хотя потом наверняка умудрятся усложнить задачу. Каждую точку растра ещё больше закодируют. Ну, впендюрят ей третью координату, например. А величину третьей координаты выразят не в цифре, а в цвете. Или в запахе.
Недавно трепался с одним мужиком. Контора, в которой он работает, скидывает нам чертежи. Они специально запутывают всё подряд, чтобы наша контора ничего понять не могла. А наша контора пытается распутать хреновину. Таким образом, наши конторы снабжают друг друга работой. Добрая русская бесконечность.
что то лисп не работает (
загрузил и запустил (
Команда: BA
undo Неизвестная команда "UNDO". Для вызова справки нажмите F1.
Команда: begin Неизвестная команда "BEGIN". Для вызова справки нажмите F1.
Команда:
Select Dimensions and text to apply the background fill and update.
Выберите объекты: Противоположный угол: найдено: 11
Выберите объекты:
txt2mtxt Неизвестная команда "TXT2MTXT". Для вызова справки нажмите F1.
очень нужно преобразовать много текстов в Мтексты. Мтексты должны остаться на тех же местах.
Автор:
Преобразование или объединение однострочных или многострочных текстовых объектов в один или несколько многострочных текстовых объектов.
Выбранные текстовые объекты будут заменены одним или несколькими многострочными текстовыми объектами. По возможности сохраняются различия в размере текста, шрифтах и цветах.
Выберите объекты или [НАстройки]: выберите текст любым способом выбора объектов или укажите параметр «Настройки», чтобы открыть диалоговое окно параметров преобразования текста в многострочный текст.
Параметры диалогового окна
Объединить в один многострочный текстовый объект | Объединение выбранных текстовых объектов в один многострочный текстовый объект. |
Упорядочение текста — сортировка сверху вниз | Указание порядка следования выбранного текста по убыванию по вертикали. |
Упорядочение текста — выберите порядок следования текста | Указание порядка следования выбранного текста путем выбора вручную. |
Перенос текста по словам | Объединение всех строк текста в одну строку с последующим переносом в следующую строку всего текста, ширина которого превышает ширину многострочного текстового объекта. |
Принудительное использование единого межстрочного интервала | Применение согласованных значений межстрочного интервала и интервала между абзацами при включенной функции переноса по словам. Значение интервала между абзацами на 50 % больше значения межстрочного интервала. |
Пример
Выберите три текстовых объекта и преобразуйте их в один многострочный текстовый объект.
Выберите текстовые объекты:
Текстовые объекты будут преобразованы в один многострочный текстовый объект.
Прим.: Многострочный текстовый объект по-прежнему содержит набор строк, потому что три текстовых объекта были выровнены по вертикали. Если текстовые объекты не выровнены, в результате будет создан многострочный текстовый объект, где текст содержится в одной строке или переносится по словам (если включена функция переноса по словам).
Автор:
Преобразование или объединение однострочных или многострочных текстовых объектов в один или несколько многострочных текстовых объектов.
Выбранные текстовые объекты будут заменены одним или несколькими многострочными текстовыми объектами. По возможности сохраняются различия в размере текста, шрифтах и цветах.
Выберите объекты или [НАстройки]: выберите текст любым способом выбора объектов или укажите параметр «Настройки», чтобы открыть диалоговое окно параметров преобразования текста в многострочный текст.
Параметры диалогового окна
Объединить в один многострочный текстовый объект | Объединение выбранных текстовых объектов в один многострочный текстовый объект. |
Упорядочение текста — сортировка сверху вниз | Указание порядка следования выбранного текста по убыванию по вертикали. |
Упорядочение текста — выберите порядок следования текста | Указание порядка следования выбранного текста путем выбора вручную. |
Перенос текста по словам | Объединение всех строк текста в одну строку с последующим переносом в следующую строку всего текста, ширина которого превышает ширину многострочного текстового объекта. |
Принудительное использование единого межстрочного интервала | Применение согласованных значений межстрочного интервала и интервала между абзацами при включенной функции переноса по словам. Значение интервала между абзацами на 50 % больше значения межстрочного интервала. |
Пример
Выберите три текстовых объекта и преобразуйте их в один многострочный текстовый объект.
Выберите текстовые объекты:
Текстовые объекты будут преобразованы в один многострочный текстовый объект.
Прим.: Многострочный текстовый объект по-прежнему содержит набор строк, потому что три текстовых объекта были выровнены по вертикали. Если текстовые объекты не выровнены, в результате будет создан многострочный текстовый объект, где текст содержится в одной строке или переносится по словам (если включена функция переноса по словам).
Читайте также: