User input GUIDELINES

Hi, I have a question

Is there a macro out there that can do the following?

I have a line: lets say at 13 degrees. I want to be able to make a guide line based on 2 user inputs that will set the creation point of the guideline based on the first input, then set the center of rotation of that guide line based on the input. After the macro asks for the second input it creates the guide line from point A to point B with rotation relative from point A to point B.


Thanks.

David B.

[runflacruiser]

HI.
It's probably to early but I don't understand completely.
Here's a sub that will create a guideline based on 2 clicks. Snap is enabled in the script.
You should be able to calculate an offset distance from the click points if needed.

Public Sub clickForGuide()
    Dim x1#, y1#, x2#, y2#, d#
    Dim Shift As Long
    Dim a As Boolean, b As Boolean
    Dim bSnap As Boolean

    
    If ActiveSelection.Shapes.count = 0 Then
    
        bSnap = True 'enable snap
        a = False
        b = False
        a = ActiveDocument.GetUserClick(x1, y1, Shift, 10, bSnap, cdrCursorEyeDrop)
        If Not a Then
            b = ActiveDocument.GetUserClick(x2, y2, Shift, 10, bSnap, cdrCursorEyeDrop)
        End If
        If Not b Then
            ActivePage.Layers(0).createGuide x1, y1, x2, y2
        End If
    End If
    
End Sub

-John

Thank you. I will test it out and let you know if its what I am looking for

PERFECT , Thanks