can anybody provide a script to create a star
Have you tried recording a macro?
Sub Macro2() ' Recorded 9. 9. 2024 Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange Dim s1 As Shape Set s1 = ActiveLayer.CreatePolygon2(6.612091, 1.884906, 1.655169, 5) s1.Fill.ApplyNoFill s1.Outline.SetPropertiesEx 0.007874, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#, Justification:=cdrOutlineJustificationMiddleEnd Sub
I tried that too but it only leaves you with a pentagon.
Ok, you are correct.
Then try following code (now tested )
Sub Test()ActiveLayer.CreatePolygon 0, 5, 5, 0, 5, 1, 1, TrueEnd Sub
Yep. How to tweak it to be a perfect star?