用AutoLisp程序建立数组

autolisp

数组对编程者来说至关重要，建立数组后就可方便地存储并处理数据。像BASIC,C,FORTRAN等程序语言都有对数组的相应语句，但是在AutoLisp语言中却缺少处理数组的相应语句，这使得用AutoLisp语言编程逊色不少。但是，大家不要着急，方法是人想出来的，人不能被困难吓倒，这里，本人向大家介绍一种用AutoLisp语言处理数组的方法，看能不能解决大家的难题。
    这里，我们主要要借助下列函数：
    (strcat string1 [string2]...)
    (read [string])
    (set sym expr)
    (eval expr)
    比如，我们要建立一个10元的一维数组NUM,其中NUM[0]=0,NUM[1]=1,NUM[2]=2,......NUM[9]=9,并一一打印出来,怎样做？请看下面的例子：
(progn
  (setq i 0)                ;数组下标初始化
  (while(< i 10)
   (set (read(strcat "NUM[" (rtos i) "]")) (* i i i i))
   (princ (strcat "\nNUM[" (rtos i) "]=" (rtos (eval(read(strcat "NUM[" (rtos i) "]"))))))
   (setq i (+ 1 i))
  )
  (princ)
)
   怎么样？效果不错吧？

陈伯雄

AutoLISP中的数组功能极好，甚至可能超出了VC++

5.6  在 AutoLISP 中定义和使用多维数组
“表”是 AutoLISP 中最常用的数据库纪录类型，也是它最善于操作的、特有的数据类型。利用“表的生成和处理”有关函数，可以定义通常概念中的多维数组，可利用“表的查询和检索”的有关函数，可对这个表进行方便快速的数据提取。以下的模拟程序参见Tools.LSP... (略）

摘自《Visual LISP程序设计——技巧与范例》

autolisp

我讲述的建立数组的方法可以变维数组,数组的名称可以与变量很好的结合起来，这样对程序控制来说很有用

luoyaya

请作者举例说明呀

meflying

其实还是表好，可以存不同类型的变量，大小可以随意变化，表的名称当然也可以存为变量[br]

陈伯雄

龙龙仔

陈伯雄

龙龙仔

;;你会发现数组很难用!!
;;LISP用表,只需一个变数
(progn
  (setq        N 0
        LIST_1 NIL
  )
  (repeat 10
    (setq
      LIST_1
       (cons (cons (strcat "NUM[" (rtos N) "]") (expt N 4))
             LIST_1
       )
    )
    (princ
      (strcat "\nNUM[" (rtos N) "]=" (rtos (cdr (nth 0 LIST_1))))
    )
    (setq N (1+ N))
  )
  (princ)
)

;;提取NUM[4]值
;;(cdr (assoc "NUM[4]" LIST_1))

;;替换NUM[4]值为500
;;(SETQ LIST_1 (subst (CONS "NUM[4]" 500) (assoc "NUM[4]" LIST_1) LIST_1))

;;删除NUM[4]值
;;(setq list_1 (vl-remove (assoc "NUM[4]" list_1) list_1))

;;增加NUM[4]值
;;(setq LIST_1 (append LIST_1 (list(cons "NUM[4]" 256))))