---

Hallo zusammen,

ich arbeite gerade an einem NX.OPEN VB Programm:
Wie bekommt man es hin, dass man in der Zeichnungsanwendung "Kanten" einer Ansicht mit Hilfe eines Auswahlsmenü selektieren kann? Wie auch in den UGS Advanced Search Seiten zu finden bnütze ich den "üblichen" Code, um eine Tripple Box zu erstellen:

Function mask_for_curves(ByVal select_ As IntPtr, _
                      ByVal userdata As IntPtr) As Integer

    Dim num_triples As Integer = 6
    Dim mask_triples(5) As UFUi.Mask

    mask_triples(0).object_type = UFConstants.UF_line_type
    mask_triples(0).object_subtype = 0
    mask_triples(0).solid_type = 0

    mask_triples(1).object_type = UFConstants.UF_circle_type
    mask_triples(1).object_subtype = 0
    mask_triples(1).solid_type = 0

    mask_triples(2).object_type = UFConstants.UF_conic_type
    mask_triples(2).object_subtype = 0
    mask_triples(2).solid_type = 0

    mask_triples(3).object_type = UFConstants.UF_spline_type
    mask_triples(3).object_subtype = 0
    mask_triples(3).solid_type = 0

    mask_triples(4).object_type = UFConstants.UF_solid_type
    mask_triples(4).object_subtype = 0
    mask_triples(4).solid_type = 0

    mask_triples(5).object_type = UFConstants.UF_drafting_entity_type
    mask_triples(5).object_subtype = 0
    mask_triples(5).solid_type = 0
 
    ufs.Ui.SetSelMask(select_, _
                      UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _
                      num_triples, mask_triples)

    Return UFConstants.UF_UI_SEL_SUCCESS

End Function

Hier habe ich alle möglichen Objekttypen aus der ...\UGOPEN\uf_object_types.h Datei ausprobiert. Ich schaffe es aber nicht, Elemente IN der View zu selektieren.

Hat jemand eine Idee, wie ich an diese "Silhouetten Vollkurven" (z.B. die abgeleiteten Kanten von einer Bohrung) oder "Kanten" drann komme?

Gruß,
Sascha

------------------
hoschi

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

---

Hallo Sascha,

probier mal, das Maskieren wegzulassen. Irgendwie hat das schon mal geklappt, weiß nur im Moment nicht mehr genau wie. Evtl. mit
Dim ip As UFUi.SelInitFnT = Nothing anstelle von AddressOf mask_for_body in der aufrufenden Funktion. Oder
ufs.Ui.SelectWithSingleDialog(message, title, scope, Nothing, _
        Nothing, sel_resp, body, cursor, view)

Gruß, Michael

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

---

Hallo Michael,

danke schon mal für Deine Antwort. Leider funktionierts so noch nicht.
Mit Deinem ersten Tip bekomme ich alle Möglichkeiten in der Auswahlbox zur Verfügung gestellt, aber auch damit bekomme ich die Körperkanten der View nicht selektiert.

Dein zweiter Tip zündet bei mir überhaupt nicht. Habe bis jetzt die Auswahl wie folgt stehen:

ufs.Ui.SelectWithClassDialog(prompt, "Kurven:", _
            UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY, _
            mask_crvs, Nothing, response, cnt, curves)

Gruß, Sascha

------------------
hoschi

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

---

Hallo Sascha,

welchen Objekt- Typ gibt Dir denn ein Information-> Objekt aus ? Etwas merkwürdig ist das schon, daß sich die Elemente selbst ohne Maskierung nicht selektieren lassen. Hängt evtl. daran, daß sie von einer View abhängig sind. 

In Deiner Programmzeile mit der Funktion SelectWithClassDialog sollte die Maskierung wegfallen, wenn Du den Parameter mask_crvs durch Nothing ersetzt.
Das wird aber auch nicht viel helfen, da sich die Kurven, wie Du schon geschrieben hast, auch ohne Maske nicht anpacken lassen.

Viel Spaß noch beim Tüfteln

Gruß, Michael

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