This is the registry code I have for creating custom keys. It could be modified to change that plot stamp key as well. I got the profile name, but haven't found the version key yet. As soon as I get that, I can update that key as well. Anyway, here is my reg code
Sub Create3dTepRegValues() ' Must add reference to Windows Script Host Object Model
Dim scrpt As New WshShell
Dim DataVal As String
Dim regKey As String
regKey = "HKEY_CURRENT_USER\Software\Autodesk\Tep3D\VoltageClass"
scrpt.RegWrite regKey, 138
regKey = "HKEY_CURRENT_USER\Software\Autodesk\Tep3D\InsulatorType"
scrpt.RegWrite regKey, 1
regKey = "HKEY_CURRENT_USER\Software\Autodesk\Tep3D\ConnectionType"
scrpt.RegWrite regKey, 1
regKey = "HKEY_CURRENT_USER\Software\Autodesk\Tep3D\HighBus"
scrpt.RegWrite regKey, 162
regKey = "HKEY_CURRENT_USER\Software\Autodesk\Tep3D\LowBus"
scrpt.RegWrite regKey, 90
regKey = "HKEY_CURRENT_USER\Software\Autodesk\Tep3D\BusHighLow"
scrpt.RegWrite regKey, 1
regKey = "HKEY_CURRENT_USER\Software\Autodesk\Tep3D\PhaseSpacing"
scrpt.RegWrite regKey, 120
End Sub
Function getRegVal(DataVal As String) As String
Dim scrpt As New WshShell
getRegVal = scrpt.RegRead(DataVal)
End Function
Function setRegVal(regKey As String, DataVal As String) As String
Dim scrpt As New WshShell
scrpt.RegWrite regKey, DataVal
End Function
The last 2 functions are my GET/SET functions I can call from other modules