AUTOlisp可以定义数组吗？怎么用。[求助]

matichen

[此贴子已经被作者于2002-8-20 9:12:56编辑过]

hothua

可以用表List来处理，但是要麻烦很多，特别是写算法型的程序，需要对代码进行精心设计

陈伯雄

matichen

陈伯雄

5.6  在 AutoLISP 中定义和使用多维数组
“表”是 AutoLISP 中最常用的数据库纪录类型，也是它最善于操作的、特有的数据类型。利用“表的生成和处理”有关函数，可以定义通常概念中的多维数组，可利用“表的查询和检索”的有关函数，可对这个表进行方便快速的数据提取。以下的模拟程序参见Tools.LSP：
  (Defun C:DataIO ()
       (PrinC "\n三维数组建立...")
       (SetQ l nil
                x0 (GetInt "\nX 维数: ")
                y0 (GetInt "\nY 维数: ")
                z0 (GetInt "\nZ 维数: ")
                 x 1 y 1 z 1 vlx '() vly '() vlz '()
       )
       (Repeat z0
               (Repeat y0
                        (Repeat x0
                                     (PrinC "\n(") (PrinC z)(PrinC y)(PrinC x)(PrinC ")")
                                    (SetQ vlx (Cons (GetReal " 元素数据: ") vlx)
                                                 x (1+ x)
                                     )
                        )
                        (SetQ vly (Cons (Reverse vlx) vly)
                                     y (1+ y)
                                  vlx '() x 1
                        )
                )
                (SetQ vlz (Cons (Reverse vly) vlz)
                             z (1+ z)
                           vly '() y 1
                    )
         )
         (SetQ l (Reverse vlz))
         (While (Progn (InitGet 7 "Exit Find  ")
                                (SetQ k (GetKWord "\nExit(结束)/<Find(提取)>: "))
                                (/= k "Exit")
                     )
                     (SetQ x (1- (GetInt (StrCat "\nX维序号(" (IToA x0) "): ")))
                                y (1- (GetInt (StrCat "\nY维序号(" (IToA y0) "): ")))
                                z (1- (GetInt (StrCat "\nZ维序号(" (IToA z0) "): ")))
                     )
                     (PrinC (Nth x (Nth y (Nth z l))))
         )
         (PrinC)
  )      
C:DataIO用于建立一个三维数组，之后提取和显示该数组中指定的数据。数组保存在变量L之中。
值得注意的是，这样的数组要占用堆区空间，不可以过于巨大，但是 AutoLISP 数组处理功能是相当强的，笔者用一台128M内存的PII 333主机，制作了生成一百万个元素的数组（每个元素是三个实数和一个索引组成）：
'(1259 123.456 17.377 98706.964)
定义数组，解释运行耗时约20.7秒，编译运行耗时15.9秒。而引用任一元素仅是瞬间的事。这种数组创建和引用的能力，将能顺利解决解析程序中大规模矩阵运算的基础设施问题，也是AutoLISP具有特色的功能：简单、快速、容易控制、数据量大。

t  点评
用表类型数据结构组建数组，是一种典型的用法。“表”是 AutoLISP 中一种万能的数据结构容器，发挥你的想象力，利用表构建专业程序中的各种应用数据结构，就会体验到 AutoLISP 程序设计独特的优点，甚至在外挂工程数据文件中，也应当使用表结构。

摘自《Visual LISP for AutoCAD2002程序设计——技巧与范例》第五章