|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
12.08.2016, 17:42 | #1 | |
VBA. Как вставить текст из Excel в Autocad2015
Регистрация: 12.08.2016
Сообщений: 59
|
||
Просмотров: 5221
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,856
|
Минуту, а что ты хочешь получить-то? Заменить Str на CStr - не то?
P.S. Не очень понимаю глубинного смысла сначала строку перегонять в код, потом обратно в строку. Неужели не сработает конструкция типа textStringShifr = "{\H5;" + CStr(Shifr) + "}" ??
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 12.08.2016
Сообщений: 59
|
Цитата:
Спасибо за подсказку! |
|||
|
||||
Регистрация: 03.09.2015
Сообщений: 15
|
как добраться до свойств текста (или Мтекста). Нужно поменять выравнивание.
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 ----- добавлено через ~2 мин. ----- Как изменить свойство текста (или Мтекста). Нужно поменять выравнивание. 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 - эта строчка не работает через Excel, хотя работает, если пользоваться кадовским VBA |
|||
|
||||
Цитата:
Код:
__________________
Сообщество программистов Autodesk в СНГ - техническая поддержка |
||||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как ТЕКСТ перенести из AutoCad в Excel? | acad_newbie | AutoCAD | 19 | 21.07.2023 21:08 |
LISP. Excel-blocking - экспорт/импорт содержимого аттрибутов блоков в Excel | kakt00z | Готовые программы | 23 | 10.03.2022 00:54 |
Подскажите пожалуйста толщину линии и как вставить текст. | basik | AutoCAD | 4 | 21.04.2011 12:26 |
извлечь из выноски текст и вставить в таблицу? | [email protected] | AutoCAD | 2 | 15.03.2011 11:46 |
Проблема вставки диаграмм в ACAD 2009 из Excel 2007 | ST2 | AutoCAD | 1 | 26.05.2009 01:30 |