Форум программистов, компьютерный форум, киберфорум
AutoCAD
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
265 / 70 / 11
Регистрация: 29.05.2011
Сообщений: 1,885
1

Привязка к границам "текста"

05.01.2021, 00:01. Показов 558. Ответов 4
Метки нет (Все метки)

Как осуществить такую привязку?
Например. Есть текст. Его надо типо подчеркнуть, начертив под ним отрезок. Необходимо, чтобы концы этого отрезка были привязаны к границам текста.
Подчеркнутый шрифт не годится так как далее работать надо с этим отрезком.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2021, 00:01
Ответы с готовыми решениями:

Невозможно привести COM-объект типа "System.__ComObject" к интерфейсному типу "SolidWorks.Interop.sldworks.DrawingDoc"
Здравствуйте! Возникла проблема при программировании макроса для Solidworks 2012 в Visual Studio на...

"Прочностной анализ" в программе "Компас 3D"
День добрый. Подскажите, пожалуйста, каким образом, при выполнении "Прочностного анализа"...

Перевод текста в HEX-код (+ скроллигн клавишами "Вверх","Вниз","PageUp","PageDown")
Uses Crt; Var Buf: Array of Byte; Scr: Array of Byte absolute $B800:0; Sz:...

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

4
776 / 471 / 155
Регистрация: 22.12.2015
Сообщений: 1,392
09.01.2021, 22:42 2
Цитата Сообщение от Bazaroff Посмотреть сообщение
привязаны к границам текста.
Bazaroff, можно программно на VBA посчитать координаты относительно точки вставки и нарисовать отрезок, тут вопрос - что вы считаете границей текста? Что будет границей Мтекста?
1
265 / 70 / 11
Регистрация: 29.05.2011
Сообщений: 1,885
09.01.2021, 23:28  [ТС] 3
Цитата Сообщение от Dinoxromniy Посмотреть сообщение
что вы считаете границей текста?
Я думал на этот счет существуют некие установленные стандарты.
0
776 / 471 / 155
Регистрация: 22.12.2015
Сообщений: 1,392
11.01.2021, 14:08 4
Цитата Сообщение от Bazaroff Посмотреть сообщение
Я думал на этот счет существуют некие установленные стандарты.
В VBA есть примерно подходящее свойство, соответствующее окну редактирования.
Попробуйте код ниже. Проверки на выделение именно текста не делал, если устроит - можно будет добавить.
Visual Basic
1
2
3
4
5
6
7
8
9
Sub get_txt_width()
    Dim ent As AcadEntity
    Dim MinPoint, MaxPoint
    ThisDrawing.Utility.GetEntity ent, MinPoint, "Выделите текст"
    ent.GetBoundingBox MinPoint, MaxPoint
    MaxPoint(1) = MinPoint(1)
    ThisDrawing.ModelSpace.AddLine MinPoint, MaxPoint
    Set ent = Nothing
End Sub
1
265 / 70 / 11
Регистрация: 29.05.2011
Сообщений: 1,885
11.01.2021, 16:08  [ТС] 5
Dinoxromniy, спасибо! В принципе задачу решил, не конкретную, а конечный результат. Фотожоп помог. Вроде пока вопрос снят. Если что - опять залезу сюда же.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2021, 16:08

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочет
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

Как написать регулярное выражение для выдергивания английских букв и символов: "+", ",", ":", "-", " ", "!", "?" и "."
Не могу ни как собразить как написать регулярное выражение для выдергивания английских букв и...

Для фрагмента текста вычислить количество букв "А", "О", "U", что входят в каждую строку
Для фрагмента текста вычислить количество букв "А", "О", "U", что входят в каждую строку.

Для фрагмента текста определить количество букв "А", "В", "U", что входят в каждую строку
Прочитать текст из файла. Для фрагмента текста определить количество букв "А", "В", "U", что...

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте
Задание 1. В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и...

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.