2 Replies Latest reply on Mar 7, 2015 11:59 AM by Chris Champions

    CustomAppearances

    Chris Champions

      I recorded this quote (it works as I manually added a folder, "C:\Temp\Custom CustomApp") in the system option and the folder was shown in the Appearances task pane)

      but when I run this quote, the folder "C:\Temp\Custom CustomApp")  was shown in the System option but not added to the Appearance task pane.  and if I closed and reopen the SW, this folder is disappeared from the system option.

      what am I doing wrong here?

       

      Dim swApp As Object
      Dim Part As Object
      Dim boolstatus As Boolean
      Dim longstatus As Long, longwarnings As Long
      Sub main()
      Set swApp = Application.SldWorks
      boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsCustomAppearances, "C:\Temp\Custom CustomApp")
      End Sub