What you are asking doesn't make any sense.
You wouldn't use the command line to do this anyways.
{code}
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.ApplicationServices
Public Class Profile
Public Sub DeleteCurrentProfile()
Dim acadApp As AcadApplication = CType(Application.AcadApplication, AcadApplication)
'Get the Current Profile
'You can not Delete the Current Profile
Dim cProfile As String = acadApp.Preferences.Profiles.ActiveProfile
Dim nProfile As String = "Backup"
' Create a copy of the current profile
acadApp.Preferences.Profiles.CopyProfile(cProfile, nProfile)
' Set New Profile Active
acadApp.Preferences.Profiles.ActiveProfile = nProfile
' Delete old Profile
acadApp.Preferences.Profiles.DeleteProfile(cProfile)
' You can also just reset the current profile
acadApp.Preferences.Profiles.ResetProfile(cProfile)
End Sub
End Class
{code}
---------------------------
(defun botsbuildbots() (botsbuildbots))