Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Messages - rupertkiwi

Pages: [1] 2 3 ... 8
Bugs and Issues / Re: Open Project slow to open EA (15.1.1526)
« on: April 24, 2020, 01:32:37 pm »
OK, have you noticed the same problem Geert?


Bugs and Issues / Open Project slow to open EA (15.1.1526)
« on: April 24, 2020, 11:59:48 am »

I have upgrade to the latest version of EA (15.1.1526) and have noticed that when clicking on the blue SPARX EA icon at the top left to bring up the "Open Project' window that it takes a long time to open. Around 10 seconds.

Has anyone else experienced this?


I found the Metamodel Views extremely confusing.

In the article I attached there was a good working example so I used that and adapted it and it worked fine.

I found this quite tricky and the help was quite unhelpful.

This article did help though :

Good luck,

Hi there,

This post might help you:,44076.0.html

Unsure about the cloud though.


General Board / Re: Export Diagram List into MS Excel
« on: March 16, 2020, 03:57:32 pm »
Is there an easy way of doing this? Ctrl-A works but not Ctrl-C

General Board / Re: Diagram title
« on: March 16, 2020, 03:23:04 pm »
Yes ! That's it, many thanks Eve

General Board / Re: Diagram title
« on: March 16, 2020, 01:50:30 pm »
No, the text box at the top left of the diagram with this information:


General Board / Diagram title
« on: March 16, 2020, 11:44:36 am »
Hi there,

Does anyone know how to hide the diagram title that is displayed in each diagram?


General Board / Re: EA Usage stats
« on: March 11, 2020, 10:03:29 am »
Hi Typia

1.  Create a new Excel workbook with two worksheets: 'PivotTable' and 'Datasheet'

2. Navigate to this location on the machine where you are running the Keystore service for SPARX EA: C:\Program Files (x86)\Sparx Systems\Keystore\Service\Logs

3. There should be 3 log files there named : ssksLog-?

4. Open one of the log files, copy the contents and paste them into cell A1 of the worksheet 'Datasheet'

5. Paste the code below into the VB editor of the Excel workbook and run it :

Sub HideRows()
    beginrow = 1
    chkcol = 1
    rowcnt = beginrow
    Do Until IsEmpty(Cells(rowcnt, chkcol))
        If InStr(1, Cells(rowcnt, chkcol), "[INFO]: CHECKOUT SUCCESS") = 0 And InStr(1, Cells(rowcnt, chkcol), "[INFO]: CHECKIN SUCCESS") = 0 Then
            Cells(rowcnt, chkcol).EntireRow.Delete
            Else: rowcnt = rowcnt + 1
        End If
End Sub

Sub Txt2Col()
    Dim rng As Range

    Set rng = [A1]
    Set rng = Range(rng, Cells(Rows.Count, rng.Column).End(xlUp))

    rng.TextToColumns Destination:=rng, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, _
        FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Rows(1).Insert shift:=xlShiftDown
    Cells(1, 1).Value = "Date"
    Cells(1, 2).Value = "Time"
    Cells(1, 3).Value = "c"
    Cells(1, 4).Value = "State"
    Cells(1, 5).Value = "e"
    Cells(1, 6).Value = "User"
    Cells(1, 7).Value = "g"
    Cells(1, 8).Value = "h"
    Cells(1, 9).Value = "i"
    Cells(1, 10).Value = "j"
    Cells(1, 11).Value = "k"
    Cells(1, 12).Value = "l"
    Cells(1, 13).Value = "Key"
    Cells(1, 14).Value = "n"
    Cells(1, 15).Value = "o"
    Cells(1, 16).Value = "p"
    Cells(1, 17).Value = "Userpc"
    Cells(1, 18).Value = "ExpiryDate"
    Cells(1, 19).Value = "ExpiryTime"
End Sub

Sub newPVT()
'Declare Variables
Dim PSheet As Worksheet
Dim DSheet As Worksheet
Dim PCache As PivotCache
Dim PTable As PivotTable
Dim PRange As Range
Dim LastRow As Long
Dim LastCol As Long

'Delete Preivous Pivot Table Worksheet & Insert a New Blank Worksheet With Same Name
On Error Resume Next
Application.DisplayAlerts = False
Sheets.Add Before:=ActiveSheet
ActiveSheet.Name = "PivotTable"
Application.DisplayAlerts = True
Set PSheet = Worksheets("PivotTable")
Set DSheet = Worksheets("DataSheet")

'Define Data Range
LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)

'Define Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=PRange). _
CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _

'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable(TableDestination:=PSheet.Cells(1, 1), TableName:="SalesPivotTable")

'Insert Row Fields
With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("User")
 .Orientation = xlRowField
 .Position = 1
End With
'With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Month")
' .Orientation = xlRowField
' .Position = 2
'End With
'Insert Column Fields
With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Date")
 .Orientation = xlColumnField
 .Position = 1
End With

'Insert Data Field
With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Date")
 .Orientation = xlDataField
 .Position = 1
 .Function = xlCount
' .NumberFormat = "#,##0"
 .Name = "Users"
 'Insert Column Fields
With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("State")
 .Orientation = xlPageField
 .Position = 1
 .CurrentPage = "CHECKIN"
End With

 'Format Pivot Table
ActiveSheet.PivotTables("SalesPivotTable").ShowTableStyleRowStripes = True
ActiveSheet.PivotTables("SalesPivotTable").TableStyle2 = "PivotStyleMedium9"
ActiveSheet.PivotTables("SalesPivotTable").ColumnGrand = False
ActiveSheet.PivotTables("SalesPivotTable").RowGrand = False

End With
End Sub

General Board / Re: EA Usage stats
« on: March 10, 2020, 03:24:53 pm »
Hi there Typia,

I have something which may help as I produced some usage stats a few years ago.

Will get it together and attach it for you.


General Board / EA Portal
« on: January 21, 2020, 12:11:01 pm »
Hi all,

I was wondering what the options are for a SPARX EA Portal.

We are currently running SPARX EA v15.


Hi Sara,

Like qwerty says it really can be a difficult task. After much trial and error I managed to get mine working but it took a while.

The best place to start is in the EAExample model where there are a few basic packages and elements devoted to this and this page too helped:


From what I understand having played around with it a little bit.
Shape scripts can be overridden at the diagram level or at the element level. So you can have a diagram with all elements displayed using their shape scripts , or all elements displayed without their shape scripts or something in between. So it's actually quite clever and flexible.


General Board / Re: Script for making connectors between elements
« on: November 01, 2019, 11:59:47 am »
Hi Pianoman,

this might help:

Function addConnector(SourceElementID, TargetElementID, ConnectorType, connectorname)
Dim SourceElement As EA.element
Dim newconnector As EA.connector
    Dim repository As EA.repository
    Set eaapp = GetObject(, "EA.App")
Set repository = eaapp.repository
Set SourceElement = repository.GetElementByID(SourceElementID)
Set newconnector = SourceElement.connectors.AddNew(" ", ConnectorType)
newconnector.SupplierID = TargetElementID
newconnector.Name = connectorname
End Function

Pages: [1] 2 3 ... 8