Nudge Distance - auto decrease spacing?

Can CorelDRAW automatically generate lines offset with a nudge distance that decreases by a factor of .618 (or increases by a factor of 1.618)?

Parents
  • I don't know of any built-in capability of CorelDRAW to do that.

    That is the sort of thing that could be accomplished using a VBA macro:

    Sub log_spaced_duplicates()
    
    Dim s As Shape
    Dim lngCount As Long
    Dim dblOffset As Double
    
    Const dblBaseOffset As Double = 4
    Const dblFactor As Double = 0.618
    Const lngNumCopies As Long = 8
    
        Set s = ActiveShape
        dblOffset = dblBaseOffset
        
        For lngCount = 1 To lngNumCopies
            Set s = s.Duplicate(dblOffset, 0)
            dblOffset = dblOffset * dblFactor
        Next lngCount
    
    End Sub
    
Reply Children