Поменять "отражение" текста через макрос. Как?

[lexincton]

Подскажите пожалуйста как изменить "зеркальное отражение" текста через макрос. Следуя родному хелпу по автоматизации V5 через FlipMode Catia ругается!

[Artem]

А где вы нашли Flipmode? Можно текст или ссылку? Ни у DrawingText ни у VisProperties не нашел - это Rade или нолиджи?

[Wireless_Fidelity]

Здравствуйте.

Полагаю, речь идёт о DrawingText.TextProperties.Mirror.
Какая именно ошибка появляется на экране? Какой релиз и сервис пак используете?

[lexincton]

Здравствуйте.

Полагаю, речь идёт о DrawingText.TextProperties.Mirror.
Какая именно ошибка появляется на экране? Какой релиз и сервис пак используете?

Именно, Catia V5 R21 SP3 Описание ошибки: "Объект не поддерживает этот метод или свойство"

[Artem]

хмм TextProperties c какой версии интересно появилось - на 16 нету ((

[lexincton]

хмм TextProperties c какой версии интересно появилось - на 16 нету ((

Поищи поиском по хелпу "CatTextFlipMode"

[Artem]

на 16 точно нет
если это http://ww3.cad.de/foren/ubb/Forum134/HTML/003588.shtml не заработает, то может через SetParameterOnSubString попробывать?

[Wireless_Fidelity]

У меня на R19 SP9 всё работает нормально:

Код: Выделить всё

Dim txtText as DrawingText
Set txtText = CATIA.ActiveDocument.Selection.Item(1).Value

txtText.TextProperties.Mirror = catTextNoFlip
txtText.TextProperties.Update

Вообще, исходя из моего опыта и текста ошибки, могу предположить, что виноват не метод Mirror, а собственно, сам объект, у которого вы его вызываете. В терминах примера выше, в Вашем коде, скорее всего, txtText это не DrawingText, а что-то другое. Для проверки этой теории предлагаю Вам разместить полный код макроса и начальные условия, с которыми он запускается.

[lexincton]

Спасибо огромное всем! Но сам все-таки разобрался)
Wireless_Fidelity оказался прав, просто в TextProperties напутал немного!

[likemilk]

Ещё вариант:

Код: Выделить всё

Set text = DrwTexts.Add(Text_34, 55 * mm, Height - 12 * mm)            'Обозначение вверх ногами
CATFormatTBText "TitleBlock_Text_Number_2", catMiddleCenter, 5
text.angle = 180


[Wireless_Fidelity]

Ещё вариант:

Код: Выделить всё

Set text = DrwTexts.Add(Text_34, 55 * mm, Height - 12 * mm)            'Обозначение вверх ногами
CATFormatTBText "TitleBlock_Text_Number_2", catMiddleCenter, 5
text.angle = 180


CATFormatTBText - что это?

[lexincton]

Ещё вариант:

Код: Выделить всё

Set text = DrwTexts.Add(Text_34, 55 * mm, Height - 12 * mm)            'Обозначение вверх ногами
CATFormatTBText "TitleBlock_Text_Number_2", catMiddleCenter, 5
text.angle = 180


text.angle = 180 не прокатит! текст будет как при нуле! Угол работает только до 90)

[deNSe]

"прокатит"), если в стандарте:

TextMirror.PNG (41.03 КБ) Просмотров: 12438

[lexincton]

"прокатит"), если в стандарте:

TextMirror.PNG

Спасибо! но угол не поможет, когда надо зеркало, а не просто текст перевернуть!