Code snippets feedback VBA to rotate an open curve so that the end nodes are perfectly aligned along a horizontal plane

Developer Area requires membership for participation - click to join

VBA to rotate an open curve so that the end nodes are perfectly aligned along a horizontal plane

Myron over 6 years ago

Top Replies

Mek over 6 years ago +4

Sub Macro1() Dim n As Node, x1 As Double, y1 As Double, x2 As Double, y2 As Double, os As ShapeRange ActiveDocument.Unit = cdrMillimeter Set os = ActiveSelectionRange If os.Count <> 1 Then MsgBox ("Select...
Howardhopkins over 6 years ago +1

God damn it Mek! A lovely bit of code right there sir! Beat me to the post and much better than my dunderhead approach of using reference shapes and 'GetPerpendicularAt'. Well, I've written it now...
Jrox over 6 years ago in reply to Howardhopkins +1

sneaky sneaky math

0 Eskimo over 2 years ago in reply to Zyzio

Zyzio said:
Thank you very much, I have to check if it works in X5 :)

Sorry; that will only work in X7 or newer versions.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Zyzio over 2 years ago in reply to Eskimo

I understand, if the code is not protected with a password, I will try to modify it, maybe I can adapt to x5 :)
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Shelby Moore over 2 years ago in reply to Jrox

Math is my achilles heel, well done Mek!
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Mek over 2 years ago in reply to Shelby Moore

Thank you, Shelby!
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Mek over 2 years ago in reply to Zyzio

Try attached macro.

No need to select two nodes, but clikc on a curve segment.

If you click on red line then shape rotates to left, if you click on blue line then it rotate to right

7725.click_to_rotate.zip
Cancel
Up +1 Down

Reply

Verify Answer

Cancel