---

hi folks,
ich hänge da gerade wieder an einem Punkt fest. Vielleicht kann mich da bitte mal einer eben in die richtige Richtung schubsen....
Also ich kenne den Namen des Features und den Namen der Skizze. Nun möchte ich davon den Bohrdurchmesser samt Tolerierung auslesen.
Dabei hatte ich mir den folgenden Code ausgedacht, der nur in der letzten Zeile rein meiner Fantasie entsprungen ist, wie ich mir das so gedacht/gewünscht habe. Aber genau da ist irgendwie der Wurm drin.

Vielen Dank schon mal an dieser Stelle
Thom

    Public Sub PassungsbemassungSuchen(ByVal FeatureName As String, ByVal SkizzeName As String)

        Dim swApp As SldWorks.SldWorks
        Dim swModel As SldWorks.ModelDoc2
        Dim swMathUtil As SldWorks.MathUtility
        Dim swFeature As SldWorks.Feature
        Dim swFeatureSkizze As SldWorks.Feature
        Dim swSkizze As SldWorks.Sketch
        Dim swBemassung As SldWorks.Dimension
        Dim swBemassungsTol As SldWorks.DimensionTolerance

        swApp = CreateObject("SldWorks.Application")
        swMathUtil = swApp.GetMathUtility
        swModel = swApp.ActiveDoc

        'aktiviere das gewünschte Feature
        swFeature = swModel.FeatureByName(FeatureName)

        FeatureIstUnterdrueckt = False
        'Falls das Feature unterdrückt sein sollte, dann alles überstpringen
        If swFeature.IIsSuppressed2(1, 1, FeatureName) = True Then
            'MsgBox("Das Feature ist unterdrückt")
            FeatureIstUnterdrueckt = True
            Exit Sub
        End If

        'Skizze des Features wählen
        swFeatureSkizze = swModel.FeatureByName(SkizzeName)
        swSkizze = swFeatureSkizze.GetSpecificFeature2
        swBemassung = swSkizze.GetBemassung("Bohrerdurchmesser")
        swBemassungsTol = swSkizze.GetBemassung("Bohrerdurchmesser")

    End Sub

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