autolisp程序设计及其应用教程第3章例程序

数组(defunallay2-1(LLA/ijaij)(setqi-1LLLnil)(repeat(lengthll);按外层表，即按行数循环(setqi(1+i)j-1)(repeat(length(cadarLL));按第二层嵌套表，即按列数循环(setqj(1+j)aij(read(strcata(itoa(1+i))(itoa(1+j))));构造二维数组变量)(setaij(cadr(nthj(cadr(nthiLL)))));将从表中取出的值，赋给