Перебор деталей в сборке с возможностью назначения обозначения

[mikazakov]

Код - vb.net [Выбрать]

1. Sub Main()
2.   doc = ThisDoc.Document
3.     CompOccurs = doc.ComponentDefinition.Occurrences
4.    
5.     For Each Occur In CompOccurs
6.       OccurDoc=Occur.Definition.Document
7.           If OccurDoc.DocumentType<>kPartDocumentObject Then Continue For
8.            If Occur.BOMStructure=BOMStructureEnum.kPurchasedBOMStructure Then Continue For
9.            
10.             PartNumberProp=OccurDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Part Number")
11.         PartNumberProp.Value =  InputBox(Occur.Name, "Обозначение")
12.          
13.     Next
14. End Sub
15.  

[Сергей SSS]

Спасибо