Autoproject edges during curve creation

[Anonymous]

Does anyone know how to assign an keyboard shortcut to the, "Applications Options/Sketch/Autoproject edges during curve creation" setting?

I have a need to turn this on and off on a regular basis.

I have searched this forum and have found nothing that has delth with this.

[Anonymous]

By the way I relize that once a face is selected to sketch on that I can RMB and select Project Geometry, that is while in the sketch environment. I would like to be able to try a keyboard short cut to do the same thing.

[Anonymous]

You can create a macro in your application project like this:

Public Sub AutoEndgeProject()
    Dim oSketchOptions As SketchOptions
    Set oSketchOptions = ThisApplication.SketchOptions
    
    Dim b As Boolean
    b = False
    
    If Not oSketchOptions.AutoProjectEdges Then b = True
    oSketchOptions.AutoProjectEdges = b
End Sub

 Then you can apply a keyboard shotcut to it by clicking Tools->Customize going to the keyboard tab.  Select macros in the Categories drop down.  Find your macro in the list and then choose your keyboard shotcut

[Anonymous]

Robert:

This is great and I got a keyboard short cut to work, however the routine changes the "Autoproject edges during curve creation" rather than "Autoproject edges for sketch creation and edit".

[Anonymous]

Robert:

I just realized that my title was in reference to "Autoproject edges during curve creation" rather than "Autoproject edges for sketch creation and edit" which is what I wanted to do.

My bad.

[Anonymous · Accepted solution]

Change oSketchOptions.AutoProjectEdges to oSketchOptions.AutomaticReferenceEdges

[Anonymous]

Robert:

Thank you, that worked.

[Anonymous]

You're welcome.  Glad I could help.