Как прочитать свойства списка вырезов?

[science 2]

Всем добрый день.

Нужна помощь знающих людей.

Написал небольшой макрос на VBA который составляет перечень деталей сборки. Заходит по очереди во все детали сборки и записывает в свойства файла в раздел конфигурация тестовую строку. Теперь осталось заменить эту строку на нужную мне информацию.

 

Подскажите пожалуйста как прочитать свойства списка вырезов (например длину граничной рамки) и сохранить ее в переменную. А далее эту переменную я вставлю в свойства файла?

 

Буду очень благодарен.

[ILL 241]

http://cccp3d.ru/topic/27048-solidworks-api/?view=getnewpost

[artem_cad 89]

Всем добрый день.

Нужна помощь знающих людей.

Написал небольшой макрос на VBA который составляет перечень деталей сборки. Заходит по очереди во все детали сборки и записывает в свойства файла в раздел конфигурация тестовую строку. Теперь осталось заменить эту строку на нужную мне информацию.

 

Подскажите пожалуйста как прочитать свойства списка вырезов (например длину граничной рамки) и сохранить ее в переменную. А далее эту переменную я вставлю в свойства файла?

 

Буду очень благодарен.

 

Здравствуте,

Вот пример, который перебирает все вырезы и записывает свойства в окно Immediate в VBA:

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature

Sub main()

    Set swApp = Application.SldWorks
    
    Set swModel = swApp.ActiveDoc
    
    Set swFeat = swModel.FirstFeature
    
    While Not swFeat Is Nothing
    
        If swFeat.GetTypeName2() = "CutListFolder" Then
        
            Dim swCustPropMgr As SldWorks.CustomPropertyManager
            Set swCustPropMgr = swFeat.CustomPropertyManager
    
            vNames = swCustPropMgr.GetNames
    
            For Each Name In vNames
    
                Dim val As String
                Dim resVal As String
                
                swCustPropMgr.Get2 Name, val, resVal
    
                Debug.Print Name, resVal
    
            Next Name

        End If
        
        Set swFeat = swFeat.GetNextFeature
    Wend

End Sub

~A.

Изменено 5 декабря 2015 пользователем artem_cad