... local Px1:=0,Py1:=0,Pz1:=0 local Px2:={},Py2:={},Pz2:={} local nDist1:=0,nArea1:=0,nArea2:=0 local I:=0 for i=1 to nI /// Cargar los puntos del poligonos en un array si necesitas las de eje z es posible definirlas AAdd(px2,px1) AAdd(py2,py1) AAdd(pz2,pz1) next if len(px2) >0 for i=1 to nI-1 ...