Вопрос по Драфтингу

[ShaytanTruba 0]

Доброе утро. Не знаю обсуждалось ли это ранее, но я не нашел.

Вопрос в следующем. В Катии с английским интерфейсом сделал произвольную деталь назначил материал (все атрибуты на английском языке). При переводе детали в чертеж выбираю готовую форматку. Все атрибуты переносятся нормально. Но когда стоит русский интерфейс некоторые атрибуты не переводятся и выдает окно сообщений мол введите "наименования атрибута". Где в скрипте что изменить чтоб русские атрибуты переводились спокойно???

Прикрепляю файл форматки.

з.ы. думаю все норм прикрепится....

Форматка_ГОСТ_2.104-68_с_зонами.rar

[_Shadow_ 6]

ммм текста много написано...

мб картинку прилемишь для ясности какой атрибут смотреть например?

[ShaytanTruba 0]

На этом рисунке показано что все работает на английском языке(выводится информация о названии детали ее материал и прочее)

А на втором рисунке показано как выводит при использовании кати на русском языке...

Мне кажется что в скрипте надо изменять где то с 1143 страницы....

[_Shadow_ 6]

Тебе скорей нужен этот кусок кода...

а засада мб в том что атрибуты назыв по разному...

<noindex>если нужны подробности спроси тут</noindex>

Sub CATLinks()



Dim Material_1  As String



  '-------------------------------------------------------------------------------

  'How to fill in texts with data of the part/product linked with current sheet

  '-------------------------------------------------------------------------------

  On Error Resume Next

	Dim ProductDrawn As ProductDocument

	Set ProductDrawn = DrwSheet.Views.Item("Front view").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.Nomenclature



	DrwTexts.GetItem("TitleBlock_Text_Designer_1").Text = ProductDrawn.Revision

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



	Dim ProductAnalysis As Analyze

	Set ProductAnalysis = ProductDrawn.Analyze

	DrwTexts.GetItem("TitleBlock_Text_Weight_1").Text = FormatNumber(ProductAnalysis.Mass,3)



	Material_1 = ProductDrawn.Name&"\Material"

	Set Mat_1 = ProductDrawn.Parameters.Item(Material_1)

	MM1 = Mat_1.ValueAsString

	DrwTexts.GetItem("TitleBlock_Text_Material").Text = Mat_1.ValueAsString



	DrwTexts.GetItem("Text_End_Area").Text  =  intParam1.ValueAsString 



  End If



  '-------------------------------------------------------------------------------

  '	If No Material

  '-------------------------------------------------------------------------------

	 'MsgBox "MM1="+(MM1)



	 If  (MM1 <> "")  Then  

	 Else  

		 Material_1 = ProductDrawn.Name&"\PartBody\Material"

		 Set Mat_1 = ProductDrawn.Parameters.Item(Material_1)

		 MM1 = Mat_1.ValueAsString

		 DrwTexts.GetItem("TitleBlock_Text_Material").Text = Mat_1.ValueAsString

	 End If



	 If  (MM1 <> "None")  Then  

	 Else  

		 Material_1 = ProductDrawn.Name&"\PartBody\Material"

		 Set Mat_1 = ProductDrawn.Parameters.Item(Material_1)

		 MM1 = Mat_1.ValueAsString

		 DrwTexts.GetItem("TitleBlock_Text_Material").Text = Mat_1.ValueAsString

	 End If



  '-------------------------------------------------------------------------------

  'InputBoxNameMaterial

  '-------------------------------------------------------------------------------

   Dim NewText As DrawingTexts

   Dim Variable As String



   'MsgBox "MM1="+(MM1)



	 If  (MM1 <> "")  Then  

	 Else  

	   Set NewText = DrwTexts.GetItem("TitleBlock_Text_Material")

	   Variable = InputBox("Материал не найден!								  Введите наименование материала", "Диалоговое окно определения материала", Variable)

	   NewText.Text = Variable 

	 End If



	 If  (MM1 <> "None")  Then  

	 Else  

	   Set NewText = DrwTexts.GetItem("TitleBlock_Text_Material")

	   Variable = InputBox("Материал не найден!								  Введите наименование материала", "Диалоговое окно определения материала", Variable)

	   NewText.Text = Variable 

	 End If

[ShaytanTruba 0]

Молчат там все на форуме... а в коде я знаю что где то в этой области изменяеть надо, а вот где именно ХЗ...