[分享]：用AutoLisp程序建立数组

wowoaicad

用AutoLisp程序建立数组 mccad

数组对编程者来说至关重要，建立数组后就可方便地存储并处理数据。像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)
)
   怎么样？效果不错吧？