---

Hallo Zusammen,

ich möchte gerne per API bestimmte Radien per Makro ändern. Diese wähle ich anhand des bestehenden Radius aus. Und möchte dann genau in diesem Feature "Fillet" den Radius ändern.
Das selektieren des Radius geht ohne Probleme, nur das ändern über "void SimpleFilletFeatureData2.SetRadius ( pFilletItem, radius ) " klappt nicht ganz..

Hoffe von Euch hate jemand ne Idee wie ich den
Pointer auf mein Feature bekomme um den Radius zu ändern...

Danke im Vorraus

Gruß

Yankee

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Poste doch mal deinen Code, dann kriegt man eher eine Idee.

Piet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Piet,...

hier mal der CodeTeil indem ich nach den Radien suche, und versuche diese zu bearbeiten, danke für Diene Bemühen

Gruß
Yankee

Private Sub cmdSearchFillet_Click()

    Dim swApp                          As SldWorks.SldWorks
    Dim swModel                        As SldWorks.ModelDoc2
    Dim swFeat                          As SldWorks.Feature
    Dim swFilletData                    As SldWorks.SimpleFilletFeatureData2
    Dim swFilletItem                    As Object
    Dim swFeatTypeName                  As String
    Dim nFilletCount                    As Long
    Dim i                              As Long
    Dim nRadius                        As Double
    Dim bRet                            As Boolean
    Dim bSelFeat                        As Boolean
    Dim PArt                            As Object
    Dim n                              As Integer
    Dim aktion                          As String
    Dim deleted                        As Boolean
    Dim x                              As Integer
    Dim radToChange                    As Double
    Dim Status                          As Variant
    Dim Name                            As String
    Dim pFilletItem
    Dim FilletCount
   
    'Beim Verändern des Radius Wert aus Textfeld auslesen
    If IsNumeric(txtChange.Text) = True Then
        radToChange = txtChange.Text
        radToChange = radToChange / 1000
    End If
   
   
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swFeat = swModel.FirstFeature
    deleted = False
   
    swModel.ClearSelection

    nMinRadius = txtRadius.Text / 1000
    Do While Not swFeat Is Nothing
        swFeatTypeName = swFeat.GetTypeName
       
        If swFeatTypeName = "Fillet" Then
            Set swFilletData = swFeat.GetDefinition
           
            nRadius = swFilletData.DefaultRadius
            Name = swFeat.Name
            FilletCount = swFilletData.FilletItemsCount
            If nRadius = nMinRadius Then
                n = n + 1
                bRet = swFeat.Select(True)
                'Verrundung unterdrücken
                    aktion = "geändert"
                   
                    'Hier soll der Radius geändert werden !!!
                   
            Else
                x = x + 1
            End If
       
        End If

        Set swFeat = swFeat.GetNextFeature
    Loop
   
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP