iLogic save location

[Anonymous]

Hi all, 

I'm searching for some code to save my file in a library. I have some libraries defined in my project ( in the project editor under 'libraries'), and instead of giving me the directory for the workspace, with the thisdoc.workspacepath code, it should give me the directory where the libraries are located. for example:

workspacepath = thisdoc.workspacepath

Librarypath = thisprojectlibrarypath ????? (something like this) 🙂

thanks

[MechMachineMan]

Again, I found the answer in about 2 minutes using API help. I suggest you check there first.

[MechMachineMan]

For anyone else curious,

Query and create library paths API Sample

Sub QueryAndCreateLibraryPaths()
    Dim oProjectMgr As DesignProjectManager
    Set oProjectMgr = ThisApplication.DesignProjectManager

    ' Get the active project
    Dim oProject As DesignProject
    Set oProject = oProjectMgr.ActiveDesignProject

    Dim oLibraryPaths As ProjectPaths
    Set oLibraryPaths = oProject.LibraryPaths

    ' Add a new library path to the end of the list
    Call oLibraryPaths.Add("MyLibraryPath", "C:\temp\MyLibrary")

    ' Print all library names and paths
    Dim oLibraryPath As ProjectPath
    For Each oLibraryPath In oLibraryPaths
        Debug.Print "Name: " & oLibraryPath.Name & " Path: " & oLibraryPath.Path
    Next
End Sub

[Anonymous · Accepted solution]

The code works, but there is to much clutter in my opinion. Also it doesn't function within the Ilogic ('set' functions are not supported etc)

I was looking for something really simple, and I just found that.

Left(ThisDoc.WorkspacePath(),Len(ThisDoc.WorkspacePath()) - 7)

This gives me exactly the path I needed. The location that I wanted, was the path above the project workspace folder. Because my workspace folder is called 'designs', I can just count off the number of characters, in my case 7, from the workspace path string. Then with a 'left' function, it gets the location without the 'designs' part in it.