Lees de eigenschappen van een boor/tap/frees uit via de SolidWorks Document Manager API

Out of category
1

Hallo

Ik ben nog steeds een beetje verder in de onderdeelanalyse via solidworks document manager (API) en ik weet niet of het mogelijk is om de informatie van een tappen, boren, frezen op te halen?

Als iemand deze functie gebruikt, ben ik geïnteresseerd in een track of een stukje code:)

2

Hallo!

Voor sommige functies moet u de definitie voor I###FeatureData herstellen.

Een voorbeeld hieronder:

Gebruik het Hole Wizard Feature Data Object om een Hole Wizard Feature Example (VBA) te maken - 2020 - SOLIDWORKS API Help

De API's waarin je geïnteresseerd bent denk ik:

IFeature::GetDefinition: GetDefinition Method (IFeature) - 2012 - SOLIDWORKS API Help

IFeature::ModifyDefinition2 als u ook wilt bewerken: IModifyDefinition2 Method (IFeature) - 2012 - SOLIDWORKS API Help

Succes!

 

3 likes
3

Hallo, inderdaad, deze functie werkt goed, ik gebruik hem al sinds het begin, maar ik zou het onderdeel niet willen openen om deze parameter te controleren en dit te doen vanuit de "SolidWorks Document Manager"

FYI

Function Controle_Parametre_Fraisurage(swApp As SldWorks.SldWorks, swModel As SldWorks.ModelDoc2, i As Long) As String
    Dim swSelMgr    As SldWorks.SelectionMgr
    Dim swFeat      As SldWorks.Feature
    Dim swWizHole   As SldWorks.WizardHoleFeatureData2
    
    Set swSelMgr = swModel.SelectionManager
    Set swFeat = swModel.FirstFeature
    
    Do While Not swFeat Is Nothing And Controle_Parametre_Fraisurage = ""
        Select Case swFeat.GetTypeName
            Case "HoleWzd"
                Set swWizHole = swFeat.GetDefinition
                If swWizHole.FastenerType2 = 141 Or swWizHole.FastenerType2 = 142 Then Controle_Parametre_Fraisurage = "Type de fraisurage incorrect détecté"
        End Select
        Set swFeat = swFeat.GetNextFeature
    Loop
End Function

 

4

Inderdaad, een duidelijk gebrek aan koffie van mijn kant, ik had de beperking van "SolidWorks Document Manager" gemist.

Mijn excuses, veel succes!

1 like