Create project

Public Sub CreateProject()
    ' Set a reference to the DesignProjectManager object.
    Dim oDesignProjectMgr As DesignProjectManager
    Set oDesignProjectMgr = ThisApplication.DesignProjectManager

    ' Create a new singler user project
    Dim oProject As DesignProject
    Set oProject = oDesignProjectMgr.DesignProjects.Add(kSingleUserMode, "MyProject", "C:\temp\")
End Sub

    ' Set a reference to the DesignProjectManager object.
    Dim oDesignProjectMgr As DesignProjectManager
    oDesignProjectMgr = ThisApplication.DesignProjectManager
    
    If ThisApplication.Documents.Count > 0 Then
        MsgBox("Please close all documents before creating new Inventor project.",,"iLogic")
    Else
         ' Create a new singler user project
        Dim oProject As DesignProject
        oProject = oDesignProjectMgr.DesignProjects.Add(kSingleUserMode, "MyProject", "C:\temp\")
    End If