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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA AcadMText пользовательская высота и выравнивание текста

VBA AcadMText пользовательская высота и выравнивание текста

Ответ
Поиск в этой теме
Непрочитано 19.08.2016, 11:22 #1
VBA AcadMText пользовательская высота и выравнивание текста
krok64
 
Л, ТХ
 
Ухта
Регистрация: 01.06.2016
Сообщений: 38

Как программно на VBA задать для AcadMText пользовательскую высоту объекта и выравнивание текста (середина влево)?
Просмотров: 4690
 
Непрочитано 19.08.2016, 11:23
#2
Кулик Алексей aka kpblc
Moderator

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


Высота: свойство Height
Выравнивание: см. AttachmentPoint, если не ошибаюсь. В документации же все написано!
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 19.08.2016, 11:31
#3
krok64

Л, ТХ
 
Регистрация: 01.06.2016
Ухта
Сообщений: 38


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Высота: свойство Height
Выравнивание: см. AttachmentPoint, если не ошибаюсь. В документации же все написано!
Свойство Height меняет высоту текста а мне нужно задать высоту самого блока MText (в свойствах мтекста называется "Пользовательская высота"). За аттачментпоинт спасибо.
krok64 вне форума  
 
Непрочитано 19.08.2016, 12:12
#4
Владимир_М


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


Цитата:
Сообщение от krok64 Посмотреть сообщение
высоту самого блока MText
такого видимо и нет совсем...
AddMText(InsertionPoint, Width, Text)
задается Width этого блока, а автопереносом строк автоматически вычисляется и высота всей рамки ...
ну по крайней мере если MText создается вручную, именно так происходит
Владимир_М вне форума  
 
Непрочитано 19.08.2016, 12:29
#5
Кулик Алексей aka kpblc
Moderator

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


krok64, ты воспользуйся парой приемов
1. Установить английскую версию и смотреть свойства там
2. Вручную поменять свойства примитива и в VBA проверить его свойства.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 25.10.2018, 07:09
#6
zenija2007


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


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
krok64, ты воспользуйся парой приемов
1. Установить английскую версию и смотреть свойства там
2. Вручную поменять свойства примитива и в VBA проверить его свойства.
вопрос - как в vba посмотреть свойства примитива?
zenija2007 вне форума  
 
Непрочитано 25.10.2018, 07:36
1 | #7
Кулик Алексей aka kpblc
Moderator

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


Я бы запустил код наподобие
Код:
[Выделить все]
Option Explicit

Public Sub test()
Dim oEnt As AcadEntity
Dim oMText As AcadMText
Dim pickPt As Variant
  ThisDrawing.Utility.GetEntity oEnt, pickPt, "Выберите многострочник"
  If oEnt.ObjectName = "AcDbMText" Then
    Set oMText = oEnt
    Debug.Print "Здесь ставим точку останова"
  End If
End Sub
и проверил в окне Watches, что у нас в oMText. Код написан "насухую" и без проверок.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA AcadMText пользовательская высота и выравнивание текста

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выравнивание текста pasha_1977 AutoCAD 12 16.03.2020 18:27
Как настроить выравнивание многострочного текста по вертикали и горизонтали? empsokol AutoCAD 7 06.02.2018 15:30
Не сохраняется междустрочный интервал и выравнивание в многострочном тексте Dalya AutoCAD 14 25.07.2013 11:27
Выравнивание текста по кривой (lisp) Deadylka LISP 4 05.06.2012 11:15
Выравнивание текста по элементу чертежа roman56 Программирование 4 20.03.2010 22:07