Форум русскоязычных пользователей CATIA
Пропустить
snezhinka » 03 июн 2010 09:01
booSter » 03 июн 2010 12:14
Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim fixTogethers1 As FixTogethersSet fixTogethers1 = product1.Connections("CATIAFixTogethers")Dim fixTogether1 As FixTogetherSet fixTogether1 = fixTogethers1.Add()Dim products1 As ProductsSet products1 = product1.ProductsDim product2 As ProductSet product2 = products1.Item("Part1.3")fixTogether1.AddProduct product2Dim product3 As ProductSet product3 = products1.Item("Part1.1")fixTogether1.AddProduct product3Dim product4 As ProductSet product4 = products1.Item("Part1.2")fixTogether1.AddProduct product4End Sub
snezhinka » 03 июн 2010 22:00
Вернуться в CAA-RADE
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2