Solidworks API

[Sla_68 4]

27 минут назад, Kelny сказал:

Можно попробовать запись через Пуск-...-Solidworks####-Инструменты Solidworks - Solidworks RX и там Запись ошибки.

После записи макроса там вполне себе нормальный код. Только вот беда -он не воспроизводит все те действия которые я совершал при его записи. Те что то записалость а что то нет.

Средство которое вы мне предложили вероятно нужно для общения с разработчиками. Там банально запись действий.

[Sla_68 4]

Подскажите пожалуйста. Мне необходимо сохранить твердые тела как детали , плюс сборка к ним. В справке нашел вот это http://help.solidworks.com/2017/english/api/sldworksapi/Create_Split-body_Feature_Example_VB.htm

Метод работает для резки тела по плоскости и сохранением его отдельной части в папку. Это не совсем то что надо. При попытке записи рекордером как я уже писал выше появляются отдельные фрагменты кода из которых приходится додумывать что и как искать в справке. Я попробовал вылепить код на базе того что нашел. 

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swFeat As SldWorks.Feature
Dim swFeatMgr As SldWorks.FeatureManager
Dim swSplitBodyFeat As SldWorks.SplitBodyFeatureData
Dim boolstatus As Boolean
'Dim BodyFolder As String

Sub main()
    
    Dim vBodiesToMark As Variant
    Dim vBodyNames As Variant
    Dim vBodyOrigins As Variant
    
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swSelMgr = swModel.SelectionManager
    Set swFeatMgr = swModel.FeatureManager
    Set swModelDocExt = swModel.Extension
  
    
    fileName = swModel.GetPathName
    num = InStrRev(fileName, "\", Len(fileName)) '
    Folder = Mid(fileName, 1, num - 1) '

Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
        Debug.Print swFeat.GetTypeName
        If swFeat.GetTypeName = "SolidBodyFolder" Then
            Exit Do
         End If
    Set swFeat = swFeat.GetNextFeature
Loop

Set BodyFolder = swFeat.GetSpecificFeature2
    BodyFolderTypeE = BodyFolder.Type '2
    BodyCount = BodyFolder.GetBodyCount
    vBodies = BodyFolder.GetBodies 'тела
    
ReDim bodyNames(UBound(vBodies)) As String
ReDim bodyOrigins(UBound(vBodies)) As Object

For i = LBound(vBodies) To UBound(vBodies)
        bodyNames(i) = Folder & "\" & vBodies(i).Name & ".sldprt"
        Set bodyOrigins(i) = Nothing
Next
    vBodiesToMark = vBodies
    vBodyNames = bodyNames
    vBodyOrigins = bodyOrigins

    Set swFeat = swFeatMgr.PostSplitBody((vBodiesToMark), True, (vBodyOrigins), (bodyNames))
End Sub

Разделения не происходит. Может метод не тот?

[Kir95 950]

1 час назад, Sla_68 сказал:

не совсем то что надо

что-то типа этого:

Скрытый текст

Option Compare Text
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim swFeatMgr As SldWorks.FeatureManager
Dim swBodyFolder As SldWorks.BodyFolder
Dim i As Long
Dim nummer As String
Dim count As Integer
Dim bret As Boolean
Dim iets As IFeature
Dim v1 As Variant
Dim myBodies() As Body2
Dim nB As Integer
Dim fileName() As String
 

Sub GetVariantOfBody(swFeature As SldWorks.Feature, bodyList As Variant)
    Dim tt As Variant
    bodyList = Empty
    Set swBodyFolder = swFeature.GetSpecificFeature2
    count = swBodyFolder.GetBodyCount
    If (count < 1) Then
        'MsgBox ("There are no bodies. Please create a body.")
    Else
        bodyList = swBodyFolder.GetBodies
    End If
End Sub

 Sub main()
 Dim subFeat As Feature
 
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    Set swFeat = swModel.FirstFeature
    Set swFeatMgr = swModel.FeatureManager
 
    a = 0
 
    nB = -1
    Do While Not swFeat Is Nothing
        Dim Name As String
        Name = swFeat.GetTypeName2
        If (Name = "SolidBodyFolder") Then
            Set subFeat = swFeat.GetFirstSubFeature
            While Not subFeat Is Nothing
                Name = subFeat.GetTypeName2
                If (Name = "CutListFolder") Then
                    GetVariantOfBody subFeat, v1
                    If IsEmpty(v1) = False Then
                        nB = nB + 1
                        ReDim Preserve myBodies(nB)
                        Set myBodies(nB) = v1(0)
                    End If
                End If
                Set subFeat = subFeat.GetNextSubFeature
            Wend
            Exit Do
        End If
        Set swFeat = swFeat.GetNextFeature
    Loop

    v1 = myBodies
    count = UBound(v1)

    ReDim fileName(0 To count)
    Dim vFileName As Variant
    Dim myTitle As String
   
    myTitle = Replace(swModel.GetTitle, ".sldprt", "")

    For i = 1 To count + 1
        naam = Left(myTitle, Len(myTitle) - 2) & Format(i, "00")
        fileName(i - 1) = "C:\temp\" & naam & ".SLDPRT"
    Next

    vFileName = fileName
   
    Set swFeat = swFeatMgr.CreateSaveBodyFeature((myBodies), vFileName, "C:\temp\" & myTitle & ".SLDASM", False, False)

End Sub

 

[Sla_68 4]

 

Отлично. Спасибо за наводку.

2 часа назад, Kir95 сказал:

    Set swFeat = swFeatMgr.CreateSaveBodyFeature((myBodies), vFileName, "C:\temp\" & myTitle & ".SLDASM", False, False)

А как на счет визуальных параметров?

 Propagate visual properties - в русской локализации "распространить свойства видимости"

 

[Kir95 950]

13 часа назад, Sla_68 сказал:

Propagate visual properties

Именно этого нет, почему-то:

 

Скрытый текст

 

[Sla_68 4]

Да. Я тоже обратил внимание. Думал может дополнительно существует команда.

[Sla_68 4]

Добрый вечер. Подскажите пожалуста. Не смог найти как сделать управляемый размер эскиза.

Set myDisplayDim = Part.AddDimension2(x1 , y1 , 0)

[maxfox 3]

@Sla_68

IDisplayDimension^dimВ = (IDisplayDimension^)detal->AddDimension2(0.1,0.1,0.1);
IDimension^ cDimВ = dimВ->IGetDimension();
cDimВ->DrivenState = (int)swDimensionDrivenState_e::swDimensionDriven;//установили управляемым!!!!

управляемость определяется параметром размера.

[Sla_68 4]

Спасибо ... понял

[Sla_68 4]

Добрый вечер. Возник вопрос следующий. Можно ли использовать самописные функции для использования их в уравнениях solidworks?

[Sla_68 4]

Здравствуйте дорогие форумчане.

Чем больше изучаю solid тем больше поражаюсь глубиной и качеством проработки данной замечательной программы.  Сегодня работал с методом "GetIntersectionEdges". Сам по началу не заметил как данный метод создал дополнительные плоскости и края на телах. И вот в чем загвоздка. После того как макрос отработал, края и плоскости остались. а также документ можно сохранить в таком виде.(Я  то думал что данные края образуются временно в памяти) Получается что существует метод ручного разделения а также удаления таких краев.  А теперь вопрос. как можно идентифицировать данный край и удалить его?

[alek77 202]

Нет ли у кого для примера макроса сохраняющего спецификацию (вставленную на модель или в чертеж) в формат ексель?

Нужно для создания перечней всяких-разных деталюшек.

[Krokogen 1]

1 час назад, alek77 сказал:

Нет ли у кого для примера макроса сохраняющего спецификацию (вставленную на модель или в чертеж) в формат ексель?

Нужно для создания перечней всяких-разных деталюшек.

А вам именно готовый макрос, или направить в нужную сторону? 
Если направить - то примерно так (на шарпе), сперва ищем таблицу, в данном случае первую:

var featCount = swActiveDoc.GetFeatureCount(); // количество фич в дереве
BomFeature bomFeature = null;
            // пробегаемся по всему дереву сборки, через фичи
            for (var i = 0; i < featCount; i++)
            {
                Feature folderFeature = swActiveDoc.FeatureByPositionReverse(featCount - i);

                // папка с таблицами
                if (folderFeature != null && folderFeature.GetTypeName2() == "TableFolder")
                {
                    var tableFeature = folderFeature.GetFirstSubFeature();
                    if (tableFeature != null)
                    {
                        bomFeature = tableFeature.GetSpecificFeature2();
                        break;
                    }
                }
            }

А потом пробежаться по  bomFeature:

TableAnnotation swTable = bomFetures.GetTableAnnotations()[0];
            var swBomTable = (BomTableAnnotation)swTable;

            var nNumRow = swTable.RowCount; // количество строчек в таблице
            var configurationName = HelperConfiguration.GetConfigurationNameFromModel(_swActiveDoc); // необходимая конфигурация

            for (var j = 0; j <= nNumRow - 1; j++)
            {
                string itemNumber;
                string partName;

                swBomTable.GetComponentsCount2(j, configurationName, out itemNumber, out partName);
                var components = (object[])swBomTable.GetComponents2(j, configurationName);
                if (components != null && components.Length > 0)
                {
                    foreach (var component in components)
                    {

                        var swComp = (IComponent2)component;
 						// ну и делаем что хотим.......

Ну может немного коряво, но вполне работает... 

[Kir95 950]

макрос, преобразует и сохраняет солидовскую спецуху на чертеже, в ексель таблицу, в коде указать существующую папку для сохранения:

 

ExportBOM_AsExcel.swp

[alek77 202]

@Krokogen ,@Kir95  спасибо, то что надо, разобраться хватит

[alek77 202]

А можно ли через API обрабатывать данные визуализации?

При использовании совмещенной спецификации в графе количество нет полного количества повторяющихся деталей в повторяющихся сборках, а при использовании визуализации и сохранении в совмещенном виде полное количество повторяющихся деталей есть. Как подцепиться к визуализации найти не могу. Подскажите пожалуйста, в какую сторону копать? Запись макросов и журнал не помогают, работа с визуализацией - в коде пустое место.

[Kir95 950]

20 минут назад, alek77 сказал:

нет полного количества повторяющихся деталей

а здесь галка есть?

Скрытый текст

 

[alek77 202]

В 04.10.2017 в 13:28, Kir95 сказал:

а здесь галка есть?

у меня SW2017, тут такой галки вообще нет

[Kir95 950]

 

1 час назад, alek77 сказал:

тут такой галки вообще нет

 Да, эта галка только для многотельных сварных конструкций. Если детали с разными конфигурациями, попробуйте в группировке конфигураций выбрать нужную группировку. Правда, после каждого выбора лично я удаляю и вставляю новую спецификацию, иначе она не обновляется. Вот пример, в сборке 4 детали, у которых в свойствах конфигурации записано Part2 для отображения в спецификации. В спецификации солид пишет, что деталь всего одна:

 

Скрытый текст

 

 

[alek77 202]

13 часа назад, Kir95 сказал:

Да, эта галка только для многотельных сварных конструкций

Собственно, вопрос мой был не в этом. Суть - получить полный перечень каких либо деталей из общей сборки.

Если использовать спецификацию с чертежа (совмещенную), то она выдает количество повторяющейся

сборки 01 000 допустим 5 штук и количество входящих в нее деталей 01 001 по 1 шт, что некорректно

к полному количеству детали 01 001 во всей сборке.

А визуализация выдает сборок 01 000 - 5 штук, деталей 01 001 - 5 штук.

Вот и приходится ручками все время запускать визуализацию, настраивать столбцы, группировку,

сохранять в ексель, а дальше уже в экселе макросами группировать необходимые перечни.

Вот и вопрос: можно ли с визуализацией работать через АПИ, чтобы исключить одинаковые операции ручками из своей работы?