---

Hallo alle zusammen,

ich hoffe ihr könnt mir weiter helfen, kann einer von euch eigentlich dieses kleine C-Programm in vb.net übersetzen.

void doit()
{
    tag_t drawing,member_view,original_view;
    double middle[2] = { 320, 320 };
    UF_DRAW_info_t
        drawing_info = { UF_DRAW_METRIC_SIZE, UF_DRAW_A1, 1.0, UF_PART_METRIC,UF_DRAW_THIRD_ANGLE_PROJECTION };
    UF_DRAW_view_info_t
        view_info = { UF_DRAW_ACTIVE_VIEW, NULL_TAG, 1.0, FALSE, TRUE, FALSE,TRUE };

    UF_VIEW_ask_tag_of_view_name("FRONT", &original_view);

    // Erzeugt ein neues Blatt
    UF_DRAW_create_drawing("SH1", &drawing_info, &drawing);

    // Fügt eine Ansicht hinzu
    UF_DRAW_import_view(drawing, original_view, middle, &view_info,
        &member_view);
}

Danke in vorraus

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

---

Hallo alle zusammen,
suche dringend hilfe um oben genantes c-programm fertig zu übersetzen.

hab das mal so übersetzt und
Dim drawing_info As UF_DRAW_info_t
Dim view_info As UF_DRAW_view_info_t
sind Structure, kommt felermeldung.

Arrayinitialisierung sind für die Array gültig. Der Typ "drawing_info" ist jedoch
"NXOpen.UF.UFDraw".

    Sub doit()
        Dim drawing, member_view, original_view As tag_t
        Dim middle() As Double = {320, 320}
        Dim drawing_info As UF_DRAW_info_t = {UF_DRAW_METRIC_SIZE, UF_DRAW_A1, 1.0, UF_PART_METRIC, UF_DRAW_THIRD_ANGLE_PROJECTION}
        Dim view_info As UF_DRAW_view_info_t = {UF_DRAW_ACTIVE_VIEW, NULL_TAG, 1.0, False, True, False, True}
        UF_VIEW_ask_tag_of_view_name("FRONT", original_view)
        '// Erzeugt ein neues Blatt
        UF_DRAW_create_drawing("SH1", drawing_info, drawing)
        '// Fügt eine Ansicht hinzu
        UF_DRAW_import_view(drawing, original_view, middle, &view_info, member_view)
    End Sub

Hab versucht auch das Programm aufzuzeichnen mit macro, er ertellt aber nur ein blatt und keine ansicht, hier der code:

        Dim theSession As Session = Session.GetSession()
        Dim session_UndoMarkId1 As Session.UndoMarkId
        session_UndoMarkId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Insert Sheet")

        Dim drawings_DrawingSheet1 As Drawings.DrawingSheet
        drawings_DrawingSheet1 = theSession.Parts.Work.DrawingSheets.InsertSheet("SHT1", Drawings.DrawingSheet.Unit.Millimeters, 210.0, 297.0, 1.0, 1.0, Drawings.DrawingSheet.ProjectionAngleType.FirstAngle)

Bin für jede hilfe dankbar

Hoffe das jemand von euch mir weiter helfen kann.

Danke in vorraus

l.pesch

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