Hello, everyonePlease help to create:
1. Equilateral triangle. How do I describe a circle around it so that it passes through the three vertices?2. Circle. How to inscribe an equilateral triangle in a circle?
Without and with VBA code
Greetings!
Sub TRIANGLEINELLIPSE() Dim s As Shape, s1 As Shape Set s = ActiveShape Set s1 = ActiveLayer.CreatePolygon2(s.PositionX, s.PositionY, s.SizeWidth / 2, 3) s1.CenterX = s.CenterX s1.TopY = s.TopYEnd Sub
Funny, I've been working on this too. I like the macro you've provided. It's off a bit but probably due to infinite decimal amount. I was actually trying to go the other way around though.
EllipseToTriangle - given an equilateral triangle.
Zooming in after using the macro I get this. Using the Smart Fill Tool won't get the expected outcome.
I love this game!I hope it's not news to you that all measurements, including Corel's, have some precision. I checked for a circle with a diameter of 30000 mm.1. Corel did not draw me a circle with a diameter of 30000 mm!WTF! I always got a circle with a diameter of 30000.001!But I did not enter that third unit after the comma. So can you trust Corel after this?I ask skeptics to calm down! 29999.999 does not give 30000#Check please!2. The displacement of the apex of the triangle inscribed by this macro was 2.813 mm along X and 4.851 mm along YThis is 0.0093766(6) and 0.01617 percent (respectively) or about 0.00012773(3). That's the fourth digit after the decimal point, guys.So we got the accuracy that Corel gives ~0.000128Very good, up to me.