После русификации интерфейса V5r17 скрипты перестали

[Pro-Grizzly 0]

Здравствуйте, господа!

Предыстория...

Научился-таки я немного писать скрипты,

которые считывают параметры из модели

(по адресу Правой кнопкой на заголовок Дерева Модели ->

Properties -> Product) и отображают их в основной надписи чертежа.

(В частности Part Number -- это "Обозначение" и т.д.)

И все бы замечательно, однако...

на всех рабочих местах конторы установили

русификацию интерфейса .

Скрипты перестали работать --

нет доступа к параметрам, т.к. вместо PartNumber

теперь Обозначение. Видимо русификация была не косметической,

а еще и поменяла системные имена параметров...

Раньше было (Tools -> Formula...):

'Part1\Part Number'

теперь стало

'Part1\Обозначение'

В скрипте, замена

DrwTexts.GetItem("TitleBlock_Text_Number_1").Text = ProductDrawn.PartNumber

на

DrwTexts.GetItem("TitleBlock_Text_Number_1").Text = ProductDrawn.Обозначение

ничего не дает...

Возвращаю интерфейс на Английский -- все работает,

на Русский -- не работает.

Чего делать-то? Кто-нибудь сталкивался с такой проблемой?

[Krusty 194]

Чего делать-то? Кто-нибудь сталкивался с такой проблемой?

Хрен его знает, может Marmath подскажет,

как вариант делай свои поля с англицкими именами.

Где брал руссификацию на р17, если не влом выложи ее:)

[Pro-Grizzly 0]

Хрен его знает, может Marmath подскажет,

<{POST_SNAPBACK}>

Хотелось бы...

как вариант делай свои поля с англицкими именами.

<{POST_SNAPBACK}>

Низзя,.. т.к. установка начальства -- использовать

Правой кнопкой на заголовок Дерева Модели -> Properties -> Product

Где брал руссификацию на р17, если не влом выложи ее:)

<{POST_SNAPBACK}>

В конторе -- русификация от тех, кто продавал CATIA (пока нет на руках).

Дома -- поставил скачанную по ссылке с этого форума

(для упражнений в программировании скриптов хватает).

[MArtmath 0]

Нажми на запись макроса при русском и английском интерфейсе и посмотри разницу....При работе с параметрами в сборке/детале в отличие скажем от драфтинга,все преекрасно записывается.....Я сталкивался с этой проблемой(только применительно к своим вещам)-и запись показала где и че поменять

PS.Я могу и ошибаться но ProductDrawn.PartNumber вроде остается и при русском языке.....А если все равно не работает то проблема в другом месте скрипта

Изменено 4 апреля 2007 пользователем MArtmath

[Pro-Grizzly 0]

Нажми на запись макроса при русском и английском интерфейсе и посмотри разницу....

<{POST_SNAPBACK}>

Тексты скриптов получились абсолютно идентичными.

А если все равно не работает то проблема в другом месте скрипта

<{POST_SNAPBACK}>

Все равно не работает...

Похоже, причина в чем-то другом.

Будем искать...

[Pro-Grizzly 0]

MArtmath, Вы были правы!

Проблема была в другом месте скрипта.

Заменил "Front view" на "Вид спереди" и все заработало.

Dim ProductDrawn As ProductDocument

	Set ProductDrawn = DrwSheet.Views.Item("Вид спереди").GenerativeBehavior.Document

   

If Err.Number = 0 Then



	DrwTexts.GetItem("TitleBlock_Text_Number_1").Text = ProductDrawn.PartNumber

	DrwTexts.GetItem("TitleBlock_Text_Number_2").Text = ProductDrawn.PartNumber

	DrwTexts.GetItem("TitleBlock_Text_Title").Text  = ProductDrawn.Definition