---

Hallo zusammen,

hat jemand von euch eine Idee wie ich eine Kante im Drafting auswählen kann?
Habe es mal so probiert:
      Dim mask_triples(0) As UFUi.Mask
      mask_triples(0).object_type = UFConstants.UF_solid_type
      mask_triples(0).object_subtype = UFConstants.UF_solid_edge_subtype
geht aber nicht...

Ziel ist es eine Kante (Radius) in der Zeichnungsableitung auszuwälen und dann den Radius zu messen. Im Modelling kein Problem aber in der Zeichnungsableitung...

Oh sprache is vb

Danke!

------------------
Gruß

Michael

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

---

Oh soory ich habs gefunden:

Function select_an_edge_in_view(ByVal prompt As String, ByRef obj As Edge)
    Dim ui As UI = GetUI()
    Dim mask(0) As Selection.MaskTriple
        With mask(0)
            .Type = UFConstants.UF_solid_type
            .Subtype = UFConstants.UF_solid_body_subtype
            .SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE
        End With
    Dim cursor As Point3d = Nothing

    Dim ufs As UFSession = UFSession.GetUFSession()
    ufs.Ui.SetCursorView(0)

    Dim resp As Selection.Response = _
    ui.SelectionManager.SelectObject(prompt , prompt , _
        Selection.SelectionScope.AnyInAssembly, _
        Selection.SelectionAction.ClearAndEnableSpecific, _
        False, False, mask, obj, cursor)

    If resp = Selection.Response.ObjectSelected Or _
      resp = Selection.Response.ObjectSelectedByName Then
        return Selection.Response.Ok
    Else
        return Selection.Response.Cancel
    End If
End Function

End Module

------------------
Gruß

Michael

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