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

@Bazaroff · Регистрация: 29.05.2011

Author24 — интернет-сервис помощи студентам

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

@Dinoxromniy · 09.01.2021, 22:42

Сообщение от Bazaroff

привязаны к границам текста.

Bazaroff, можно программно на VBA посчитать координаты относительно точки вставки и нарисовать отрезок, тут вопрос - что вы считаете границей текста? Что будет границей Мтекста?

@Bazaroff · 09.01.2021, 23:28 **[ТС]**

Сообщение от Dinoxromniy

что вы считаете границей текста?

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

@Dinoxromniy · 11.01.2021, 14:08

Сообщение от Bazaroff

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

В VBA есть примерно подходящее свойство, соответствующее окну редактирования.
Попробуйте код ниже. Проверки на выделение именно текста не делал, если устроит - можно будет добавить.

Visual Basic

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

@Bazaroff · 11.01.2021, 16:08 **[ТС]**

Dinoxromniy, спасибо! В принципе задачу решил, не конкретную, а конечный результат. Фотожоп помог. Вроде пока вопрос снят. Если что - опять залезу сюда же.

@Bazaroff 288 / 93 / 11 Регистрация: 29.05.2011 Сообщений: 2,403
		1
	Привязка к границам "текста" 05.01.2021, 00:01. Показов 933. Ответов 4 Метки нет (Все метки) Как осуществить такую привязку? Например. Есть текст. Его надо типо подчеркнуть, начертив под ним отрезок. Необходимо, чтобы концы этого отрезка были привязаны к границам текста. Подчеркнутый шрифт не годится так как далее работать надо с этим отрезком. 0

@Dinoxromniy Динохромный 1376 / 749 / 273 Регистрация: 22.12.2015 Сообщений: 2,344
	09.01.2021, 22:42	2
	Сообщение от Bazaroff привязаны к границам текста. Bazaroff, можно программно на VBA посчитать координаты относительно точки вставки и нарисовать отрезок, тут вопрос - что вы считаете границей текста? Что будет границей Мтекста? 1

@Bazaroff 288 / 93 / 11 Регистрация: 29.05.2011 Сообщений: 2,403
	09.01.2021, 23:28 [ТС]	3
	Сообщение от Dinoxromniy что вы считаете границей текста? Я думал на этот счет существуют некие установленные стандарты. 0

@Bazaroff 288 / 93 / 11 Регистрация: 29.05.2011 Сообщений: 2,403
	11.01.2021, 16:08 [ТС]	5
	Dinoxromniy, спасибо! В принципе задачу решил, не конкретную, а конечный результат. Фотожоп помог. Вроде пока вопрос снят. Если что - опять залезу сюда же. 0