---

Hallo zusammen,

ich habe da ein Problem mit iFeatures. Und zwar dann, wenn ich eine Arbeitsebene als geometrische Eingabe habe:

Code:

---

        Dim oSelected As Object
        Dim cSelect As New clsSelect

        Dim oInput As iFeatureInput
        oInput = oiFeatureDef.iFeatureInputs.Item(n)

        ' die verschiedenen geometrischen Eingabetypen
        Dim oEntityInput As iFeatureEntityInput
        Dim oSketchInput As iFeatureSketchPlaneInput
        Dim oVectorInput As iFeatureVectorInput
        Dim oWorkplaneInput As iFeatureWorkPlaneInput

        oEntityInput = TryCast(oInput, iFeatureEntityInput)
        oSketchInput = TryCast(oInput, iFeatureSketchPlaneInput)
        oVectorInput = TryCast(oInput, iFeatureVectorInput)
        oWorkplaneInput = TryCast(oInput, iFeatureWorkPlaneInput)

        If Not oWorkplaneInput Is Nothing Then

            ' Arbeitsebene
            oSelected = cSelect.Pick(SelectionFilterEnum.kWorkPlaneFilter, _
                                   oInput.Prompt, _
                              CursorTypeEnum.kCursorBuiltInSelectArrow)

            If oSelected Is Nothing Then
                Exit Sub
            End If

            Dim oWP As WorkPlane
            oWP = oSelected

            ....

            oWorkplaneInput.PlaneInput = oWP <- Unbekannte Ausnahme (HRESULT=E_FAIL)

        End If

        If Not oEntityInput Is Nothing Then

            Select Case oEntityInput.EntityType

                Case 360784

                    'Arbeitsachse
                    oSelected = cSelect.Pick(SelectionFilterEnum.kWorkAxisFilter, _
                                           oInput.Prompt, _
                                  CursorTypeEnum.kCursorBuiltInSelectArrow)

                    If oSelected Is Nothing Then
                        Exit Sub
                    End If

                    oWAxis = oSelected

                    oEntityInput.Entity = oWAxis <- Funktioniert

                Case 39

                     'Arbeitspunkt
                     ....

            End Select

        End If

---

Hat irgendwer dazu eine Idee?

Danke im Voraus,

Christoph

[Diese Nachricht wurde von C-Hoppen am 28. Okt. 2009 editiert.]

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