Что не так с примерами для NXOpen?

[RVD1972 6]

В файле C:\Program Files\Siemens\NX 12.0\UGOPEN\NXOpenExamples\VB\GS_Guide\UserAttributesOnGeometry.vb

есть строки типа

 

 

 For Each body in bodies

 

на которые ругается интерпретатор журнала

 

(Line 10: "body не является типом и, следовательно не является допустимым выражением)

 

но если заменить эти строки на пример из книги "Getting started With NX Open"

 

  For Each bod As body in bodies

то всё срабатывает.

Почему так? Пример устарел? Изменился язык VB?

И сразу второй вопрос.

Если запустить в журнале правильный пример из книги

Imports NXOpen
Module NXJournal
 Sub Main ()
 Dim theSession = Session.GetSession()
 Guide.InfoWriteLine("Outputting list of user attributes on geometry in the work part:")
 Dim bodies = theSession.Parts.Work.Bodies
 For Each bod As body in bodies
 PrintAttributes(bod)
 Dim edges = bod.GetEdges()
 For Each edg As edge in edges
 PrintAttributes(edg)
 Next edg
 Dim faces = bod.GetFaces()
 For Each f As face in faces
 PrintAttributes(f)
 Next f
 Next bod
 Guide.InfoWriteLine("")
 End Sub
 Sub PrintAttributes (obj As NXObject)
 Dim attributes = obj.GetUserAttributes()
 For Each attr As NXObject.AttributeInformation in attributes
 Guide.InfoWriteLine(attr.Title & " = " & attr.StringValue)
 Next attr
 End Sub
End Module

на файле C:\Program Files\Siemens\NX 12.0\UGOPEN\NXOpenExamples\ExampleParts\Bracket.prt

то он выведет аттрибуты геометрии

Manufacturing Instructions = Remove all burrs
Manufacturing Instructions = Remove all burrs
Surface Finish = Milled
Surface Finish = Smooth

 

Где они определены? Я всё обыскал... Не нашёл таких!!!

 

[Blurp 1 678]

On 7/26/2020 at 11:44 AM, RVD1972 said:

Где они определены? Я всё обыскал... Не нашёл таких!!!

[RVD1972 6]

Всё, увидел.