Shortcut - edit default to Cusp?

How to set every line edit to default to "CUSP"?
Also is there a HotKey for "cusp"?

"Shortcut" key is a longer word than "HotKey" which means the same thing.

  • Not sure about setting as default but you could do it with a macro. Select all you want to convert and run the macro.

    Sub NodesToCusp()
    Dim sr As ShapeRange, s As Shape
    Set sr = ActiveSelectionRange
    For Each s In sr
    If Not s.Curve.Nodes.All.Type = cdrCuspNode Then
    s.Curve.Nodes.All.SetType (cdrCuspNode)
    End If
    Next s
    End Sub