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

数组(defun allay2-1 (LL A / i j aij) (setq i -1 LLL nil ) (repeat (length ll); 按外层表，即按行数循环 (setq i (1+ i) j -1 ) (repeat (length (cadar LL)); 按第二层嵌套表，即按列数循环 (setq j (1+ j) aij (read (strcat a (itoa (1+ i)) (itoa (1+ j)))); 构造二维数组变量 ) (set aij (cadr (nth j (cadr (nth i LL))))); 将从表中取出的值，赋给 (setq LLL (cons (eval aij) LLL)) ;;相应的二维数组变量 ) ) (reverse LLL) )