Rotate to Reference Point Object

[dungbtl]

Hello All,

This one I wouldnt know where to begin:

Need a series of objects on maps that point to a reference point.
Doing this manually is time consuming as there are bunches of maps
and each one is different. Some maps are to zoomed into.

We are working in Coreldraw X4

Selected objects (Blue Box Arrows) must rotate to the reference point (Red Star), the pink dash lines are just for the path view, not to be included see pic below:

Thanks!

[nic]

One way of doing this might be to set the point from which you wish to measure the rotation as the origin and then work out the tangents from there

This is a bit of code that works in X6 it might do as a base for you to work with

Sub RotEach()
    
    Dim s As Shape
    Dim x As Double
    Dim y As Double
    Dim ro As Double

ActiveDocument.Unit = cdrMillimeter
ActiveDocument.DrawingOriginX = 0 ' x and y = 0 - seems to set origin
ActiveDocument.DrawingOriginY = 0 ' to centre of page
ActiveDocument.ReferencePoint = cdrCenter

    
    Optimization = True
    
For Each s In ActivePage.Shapes ' could be changed to activeselection
      
        x = s.PositionX
        y = s.PositionY

        If x < 0 And y <> 0 Then ro = Atn(y / x) * 57.29577 + 90 'Atan in radians - converts to degrees and adds right angle
        If x > 0 And y <> 0 Then ro = Atn(y / x) * 57.29577 - 90
        If x = 0 And y > 0 Then ro = 0
        If x = 0 And y < 0 Then ro = 180
        If y = 0 And x > 0 Then ro = 270
        If y = 0 And x < 0 Then ro = 90
        If y = 0 And x = 0 Then ro = 0
        
        s.Rotate ro 
        
Next s
        
        
    Optimization = False
    ActiveWindow.Refresh
End Sub

[dungbtl]

Thanks Nic

Sometimes hangs in X4

But otherwise like a charm.