Public Class bgischel
    'Script by Straight-Potter :-)

    <DeclareAction("bgischel_Klemmen")> _
Public Sub bgischelKlemmen()

        Dim mSetting As New Eplan.EplApi.Base.Settings()
        Dim idx As System.UInt32 = 0

        mSetting.SetBoolSetting("USER.TerminalPlugCommon.AutoCorrection.EqualNames", False, idx)

        mSetting.SetBoolSetting("USER.TerminalPlugCommon.AutoCorrection.CreateTerminalStrip", True, idx)

        mSetting.SetBoolSetting("USER.TerminalPlugCommon.AutoCorrection.ChangeCountOfTargets", False, idx)

        mSetting.SetBoolSetting("USER.TerminalPlugCommon.AutoCorrection.ProjectSelection", True, idx)

        Dim CLI As CommandLineInterpreter = New CommandLineInterpreter
        CLI.execute("XTPCallAutoCorrectionDlgAction")

    End Sub

    <DeclareAction("bgischel_Stecker")> _
Public Sub bgischelStecker()
        
        Dim mSetting As New Eplan.EplApi.Base.Settings()
        Dim idx As System.UInt32 = 0


        mSetting.SetBoolSetting("USER.TerminalPlugCommon.AutoCorrection.EqualNames", False, idx)

        mSetting.SetBoolSetting("USER.TerminalPlugCommon.AutoCorrection.CreatePlugStrip", True, idx)

        mSetting.SetBoolSetting("USER.TerminalPlugCommon.AutoCorrection.ProjectSelection", True, idx)

        Dim CLI As CommandLineInterpreter = New CommandLineInterpreter
        CLI.execute("XplugCallAutoCorrectionDlgAction")

    End Sub
End Class