Place object on all nodes

[dungbtl]

I'd like to snap some objects to all nodes within a graphic.

ex;

The source object has 36 nodes.
I draw & dupe 36 ellipse objects
Select all 36 then apply to the source object
I assume it cycles thru and applies to each node location?

Screenshots suck.

[dungbtl]

Have not given up and refined me search

https://forum.oberonplace.com/showpo...25&postcount=2

Works in 2019

Thanks Joe!

Originally Posted by Joe

Sounds like something that I should add to this little docker I'm working on...

But back to your question - this is certainly doable. Adding the origin points and such instantly inflate the amount of work, but in general you would have to define a ShapeRange instead the single sclip shape, then define an index to set the amount of shapes. Like this:

Sub PasteClipboardAtNodes()
    Dim s As Shape, sr As ShapeRange
    Dim sclip As ShapeRange, n As Node

    Dim Index As Integer

    Set sr = ActiveSelectionRange
    ActiveDocument.ReferencePoint = cdrCenter
        
  Set sclip = ActiveLayer.PasteEx
    
    Index = 1

    For Each s In sr
        If s.Type = cdrCurveShape Then
            For Each n In s.Curve.Nodes
                sclip.Shapes(Index).Duplicate.SetPosition n.PositionX, n.PositionY
                If Index < sclip.Shapes.Count Then Index = Index + 1 Else Index = 1
            Next n
        End If
    Next s
    
    sclip.Delete
End Sub

In this example the shapes are being cyclically placed at the curve points, hope that helps.

EDIT: The PasteEx is important (I pasted a version without it), since it returns a range instead of a single shape.

[dungbtl]

Curious...

Any way to get this to do Inside corners only?
All corners are fine if not able.

Thanks a batch!

[shelbym]

What is an inside corner?