AnsweredAssumed Answered

CustomAppearances

Question asked by Chris Champions on Mar 7, 2015
Latest reply on Mar 7, 2015 by 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

Outcomes