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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как редактировать свойства текста автокад через VBA Excel.

Как редактировать свойства текста автокад через VBA Excel.

Ответ
Поиск в этой теме
Непрочитано 31.07.2018, 16:40 #1
Как редактировать свойства текста автокад через VBA Excel.
MegaMost
 
Регистрация: 03.09.2015
Сообщений: 15

Пользуюсь AutoCAD 2017. Excel - 2016.
Из Экселя подключаюсь к Автокаду и вставляю туда текст.
При этом могу менять стиль, слой, цвет, угол поворота. Но не могу поменять выравнивание.

Код:
[Выделить все]
       Set textObj = Thisdrawing.ModelSpace.AddText(DataText.Text, point, DataText.Height)
    'Название стиля берется из AutoCad
       textObj.StyleName = "RS"
       textObj.Layer = DataText.Layer
       textObj.Color = DataText.Color
       textObj.Rotation = DataText.Angel
'textObj.Alignment = acadAlignmentRight - это строка меняет выравнивание, если использую VBA автокад и НЕ делает этого, если использую VBA эксель.

Необходимо изменить выравнивание текста, однако не получается при использовании VBA excel. Подскажите как сделать.
Пытался использовать Мтекст вместо обычного Текст, при этом
во всех источниках информации, которые я встречал используют такие конструкции: {{\H1.5x; Big text} \A2; over text\A1;/\A0; under text}.
Расшифруйте, пожалуйста.

Последний раз редактировалось Кулик Алексей aka kpblc, 31.07.2018 в 17:33.
Просмотров: 4406
 
Непрочитано 31.07.2018, 17:35
#2
Кулик Алексей aka kpblc
Moderator

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


Не acadAlignmentRight, а acAlignmentRight, может быть?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 31.07.2018, 17:37
#3
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


Цитата:
Сообщение от MegaMost Посмотреть сообщение
'textObj.Alignment = acadAlignmentRight
потому что из экселя для обычного текста это будет acAlignmentRight (или значение 2 в случае позднего связывания) - откройте для себя браузер объектов F2 в редакторе VBA)
Сергей812 вне форума  
 
Автор темы   Непрочитано 31.07.2018, 17:40
#4
MegaMost


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


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
потому что из экселя для обычного текста это будет acAlignmentRight (или значение 2 в случае позднего связывания) - откройте для себя браузер объектов F2 в редакторе VBA)
не помогло

----- добавлено через ~1 мин. -----
Цитата:
Сообщение от MegaMost Посмотреть сообщение
не помогло
а чем эти объекты мне помогут

----- добавлено через ~6 мин. -----
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Не acadAlignmentRight, а acAlignmentRight, может быть?
не помогло
MegaMost вне форума  
 
Непрочитано 31.07.2018, 17:52
#5
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


Текст выровнен вправо
Миниатюры
Нажмите на изображение для увеличения
Название: Код.JPG
Просмотров: 129
Размер:	36.9 Кб
ID:	204964  Нажмите на изображение для увеличения
Название: Результат.JPG
Просмотров: 113
Размер:	14.8 Кб
ID:	204965  
Сергей812 вне форума  
 
Автор темы   Непрочитано 02.08.2018, 09:41
#6
MegaMost


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


Спасибо, вроде заработало. А что насчет свойств Мтекста? Что означает эта абракадабра {{\H1.5x; Big text} \A2; over text\A1;/\A0; under text} ??
MegaMost вне форума  
 
Непрочитано 02.08.2018, 09:45
#7
Кулик Алексей aka kpblc
Moderator

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


http://adndevblog.typepad.com/autoca...mat-codes.html
https://forums.autodesk.com/t5/visua...es/td-p/356713
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 02.08.2018, 11:25
#8
MegaMost


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


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
спасибо.
MegaMost вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как редактировать свойства текста автокад через VBA Excel.

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автокад не печатает подчеркивание текста ВоваН AutoCAD 13 17.04.2016 23:01
представление русского текста в автокад, кодировка baaba AutoCAD 12 15.03.2011 15:13
Экспорт текста в Excel цыркуль Программирование 12 15.06.2008 17:14
Каким будет Автокад через 20....30....50.... лет?? Startrek Разное 89 24.04.2008 12:49
Спецификация из Excel --> Автокад Игорь Т. AutoCAD 19 23.10.2003 16:43