Hola, amigo, mil gracias ya pude resolverlo, lo tenía en mis narices -.^d pues ahí lo tienen ese Código, y espero que les sirva de algo ok.
Código:
deleete $*.
Point name: a.
A = $a.
For i = 1 to 4 do
(
copiar = copy a
copiar, pues = [i*25,0,0]
copiar, name = (a + i as string)
) point name: d.
D = $d.
For i = 1 to 4 do
(
copiar = copy d
$d, pues = [0,32,0]
copiar, pues = [i*25,32,0]
copiar, name = (d + i as string)
)
--- incluir PIVOT -.
A = $a*
d = $d*.
For i in 1 to d, count - 1 do
(
d[i].pivot = a[i].pos
alignobject d[i]
centerobject d[i] d[i+1].pivot = a[i+1].pos
alignobject d[i+1]
centerobject d[i+1] d[i].parent = a[i]
d[i+1].parent = a[i+1]
)
. Saludos, de Chapolín.-.