Перебор деталей в сборке с возможностью назначения обозначения
« предыдущая тема следующая тема »
Страницы: 1 [2]  Все   Вниз

Автор Тема: Перебор деталей в сборке с возможностью назначения обозначения  (Прочитано 12426 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Отмечено как Решение Сергей SSS 12-04-2016, 10:09:06

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Перебор деталей в сборке с возможностью назначения обозначения
« Ответ #15 : 12-04-2016, 07:01:29 »
Код - 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Автор темы

  • ADN OPEN
  • Сообщений: 36
  • Карма: 0
Re: Перебор деталей в сборке с возможностью назначения обозначения
« Ответ #16 : 12-04-2016, 10:11:38 »
Спасибо
Записан
Страницы: 1 [2]  Все   Вверх
« предыдущая тема следующая тема »