Set Design File vba or key-in highlight color and Selection Color V8i is the program I use.

Tried this  a few moments ago and it lockup and I lost my message.

 

 

 

 

 

 The two items are what I want to change. I have a VBA macro that will preform this, but It seems so involved. I know someone with the knowledge can do it easy. I will post the macro.

 

 

'  1112133 - Modified, removed the Dim commands at top, removed CommandState.StartDefaultCommand
' 11/02/11 - Made New Replacement for the Older version. Deleted older
' macro and re-named new one to match older one. removed Macro 3 Handler 11
    'Dim startPoint As Point3d
    'Dim point As Point3d, point2 As Point3d
    'Dim lngTemp As Long

    Dim modalHandler As New Macro3ModalHandler11                                         SEE BELOW THE Macro3 Handler11
    AddModalDialogEventsHandler modalHandler

'   The following statement opens modal dialog "Design File Settings"

'   Start a command
    CadInputQueue.SendCommand "MDL SILENTLOAD DGNSET"

    CadInputQueue.SendCommand "MDL SILENTUNLOAD DGNSET"

    RemoveModalDialogEventsHandler modalHandler

 

 

Private Sub IModalDialogEvents_OnDialogOpened(ByVal DialogBoxName As String, DialogResult As MsdDialogBoxResult)

    If DialogBoxName = "Design File Settings" Then

    '   Set a variable associated with a dialog box
        SetCExpressionValue "dgnSet.hiliteColor", 8, "DGNSET"

        SetCExpressionValue "dgnSet.selSetColor", 5, "DGNSET"

    '   Remove the following line to let the user close the dialog box.
        DialogResult = msdDialogBoxResultOK

    End If  ' Design File Settings

End Sub

This seems an awful lot just to change two colors, I searched and read for a while, but did not find the answer?