Solid Edge Framework Type Library > SolidEdgeTCE Object : GetProjectsForLoggedInUSer Method |
Visual Basic |
---|
Public Sub GetProjectsForLoggedInUSer( _ ByRef pvarListOfUserProjects As Variant, _ ByRef pvarListOfUserProjectUIDs As Variant _ ) |
Option Explicit Sub Example() Dim objApplication As SolidEdgeFramework.Application Dim objTCE As SolidEdgeFramework.SolidEdgeTCE Dim pListofProjects As Variant Set objApplication = GetObject(, "SolidEdge.Application") Set objTCE = objApplication.SolidEdgeTCE Call objTCE.GetProjectsForLoggedInUSer(pListofProjects) If Not objApplication Is Nothing Then Call objApplication.Quit End If Set objTCE = Nothing Set objApplication = Nothing End Sub