View Single Post
  #5  
Old 11-03-2016, 16:14
nic nic is offline
Member
 
Join Date: May 2009
Posts: 90
Default

does this help?

http://forum.oberonplace.com/showthread.php?t=8155

Code:
Sub joinCurves()
Dim s As Shape
Dim sr As ShapeRange


     
Set sr = ActiveLayer.Shapes.FindShapes()
     
     For Each s In sr
         
        ActiveShape.CustomCommand "ConvertTo", "JoinCurves", 0.1
    Next s
End Sub

Last edited by nic; 11-03-2016 at 16:20.
Reply With Quote