Создание Pin Art стены.

-----------------------------------------------------
p=pickobject prompt:"Pick surface to move to."

ar = selection as array

for i in ar do(
    theRay=ray i.pos i.dir
    isr =(intersectray p theRay)
    if isr != undefined do i.pos = isr.pos - i.dir*i.height
    )
-----------------------------------------------------

В данном случае, стержни - это цилиндры длиной 100см, радиусом - 0.5 см, с шагом 3 см.
Чтобы корректно определились перечения луча с поверхностью, заготовке (справа на картинке) надо вывернуть нормали.