Description

Check out selected objects from the Repo Server. Return value is 1 if successful, 0 otherwise. PARAMETERS: GetLatest (Boolean), Comment (String). RETURN DATATYPE: Integer.

Syntax

Public Function RepoCheckoutObjects( _
   ByVal GetLatest As Variant, _
   ByVal Comment As Variant _
) As Variant

Parameters

  • GetLatest
  • Comment

Example

Sub Main
Dim d As Diagram
Dim s As SelectedObjects
Dim m As Model
Dim sm As SubModel
Dim ents As Entities
Dim e As Entity

Debug.Clear
Set d = DiagramManager.ActiveDiagram
Set m = d.ActiveModel
Set sm = m.ActiveSubModel
Set s = sm.SelectedObjects
Set ents = m.Entities

For Each e In ents
s.Add(1, e.ID)
Next

nRet = d.RepoCheckoutObjects()
Debug.Print(DiagramManager.GetLastErrorString())
End Sub

See Also



  • No labels