Not tested, but this is a sound method.
Depending on your model's orientation you may want to change axis to 0 or 2.
function betterPointEntity(Entity1,entity2,axis=1) xd#=entityX(entity2)-entityX(entity1) yd#=entityY(entity2)-entityY(entity1) zd#=entityZ(entity2)-entityZ(entity1) td#=sqr(xd*xd+yd*yd+zd*zd) alignToVector Entity1,xd/td,yd/td,zd/td,axis end function
Depending on your model's orientation you may want to change axis to 0 or 2.