VB.Net Macro

[bungle77]

Hi All,
i am a newbie of EA and i should make some macros to automatize some operations.
Unluckily the search function it returns me an error so i am sorry if there are already answer in the forum.
I am trying  to write an "Hello Word" macro in VB.Net that print me the list of the packages in the active project and it return me this error "System.Runtime.InteropServices.COMException"
I am useing VB.Net 2012 and the Trial version of EA.
Is this a problem?

Here it is my code:

Code: [Select]

Option Explicit On


Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim MyRep As New EA.Repository

        MyRep.EnsureOutputVisible("Script")

        For i = 0 To MyRep.Models.Count - 1
            Dim Package As EA.Package
            Package = MyRep.Models.GetAt(i)
            Print("Model: " & Package.Name)
        Next


    End Sub
End Class


[qwerty]

Where do you run that? Stand alone?

q.

[Geert Bellekens]

The problem is that you just create an empty EA.Repository object, but it isn't initialized.
So you either have to
- Initialize the Repository object by calling Repository.OpenFile()
- Connect the repository object to the currently running instance of EA
- Get the initialized repository object from the application (like when reacting to an event)

Geert

[bungle77]

The problem is that you just create an empty EA.Repository object, but it isn't initialized.
So you either have to
- Initialize the Repository object by calling Repository.OpenFile()
- Connect the repository object to the currently running instance of EA
- Get the initialized repository object from the application (like when reacting to an event)

Geert

Thanks, but can i just connect to the active instance of EA without opening a file? Can you tell me the code to do it?
In the code examples i see  that the just connect by "OpenFile".

[qwerty]

See page 6 of my Scripting book:

Code: [Select]

Dim Repository As EA.repository
Set EAapp = GetObject(, "EA.App")
Set Repository = EAapp.repository

q.

[Eve]

It's also in the help that comes with EA.

http://www.sparxsystems.com/enterprise_architect_user_guide/10/automation_and_scripting/app.html

[bungle77]

thanks a lot. I tried to look on EA support, but I still need to get my bearings