列表操作 · AutoLISP編程指南

|函數|說明|示例| |-|-|-| |(acad_strlsort lst)|按字母表順序對字符串列表進行排序| |(append lst ...)|將多個列表合并為一個列表| |(assoc item alist)|搜索關聯表中指定鍵值的元素| |(car lst)|返回列表的第一個元素|| |(cdr lst)|去掉列表的第一個元素|| |(cons new-first-element lst)|在列表頭部添加一個元素，或構建一個點列表|| |(foreach name lst [expr ...])|對列表lst中的每個元素name，執行expr(expr可以是多個)|命令: (setq aa 0)(setq bb 9)(foreach n '(aa bb) (print n)(princ n)) AA AA BB BBBB | |(last lst)|返回列表的最后一個元素|| |(length lst)|返回列表中元素的數量| |(list [expr ...])|用expr作為元素構成一個列表| |(listp item)|判斷item的類型是不是列表| |(mapcar function list1 ... listn)|分別以list1 ... listn中的第1...n個元素作為參數，調用function，將n+1次調用的返回值組成列表作為mapcar的返回值。注意：列表的元素個數和function的參數個數要一致|命令: (mapcar '1+ (list 1 2 3)) (2 3 4) 命令:(mapcar '+ (list 1 2 3)(list 10 20 30)) (11 22 33)| |(member expr lst)|在lst中查找expr，如果找到，則返回自找到的位置往后的所有元素構成的列表；如果找不到，則返回nil|命令:(member 'c '(a b c d e)) (C D E) 命令:(member 'q '(a b c d e)) nil| |(nth n lst)|返回列表的第n個元素| |(reverse lst)|反轉列表|命令:(reverse '((a) b c)) (C B (A))| |(subst newitem olditem lst)|將列表lst中所有的olditem，替換為newitem|| |(vl-consp list-variable)|判斷一個列表是否為nil|| |(vl-every predicate-function list [ more-lists ...])|對列表中的每個元素，依次執行判斷函數，如果每次執行的返回值都是t則返回t，否則返回nil|命令: (vl-every '(lambda (fnm) (> (vl-file-size fnm) 0))( vl-directory-files nil nil 1)) T| |(vl-list* object [more-objects ...])|待補充...|| |(vl-list->string char-codes-list)|將列表中的每個整數轉換成其ascii碼是這個整數的字符，然后將這些字符構成字符串|| |(vl-list-length list-or-cons-object)|返回“真正”的列表的元素的個數。對于點列表會返回nil|命令:(vl-list* 1 2 3)(vl-list-length aa) nil 命令:(vl-list-length '(1 2 3)) 3| |(vl-member-if predicate-function list)|list中是否有元素滿足判定函數predicate-function|| |(vl-member-if-not predicate-function list)|list中是否有元素使判定函數返回nil| |(vl-position symbol list)|返回列表中指定元素的索引| |(vl-remove element-to-remove list)|刪除列表中的指定元素|| |(vl-remove-if predicate-function list)|刪除列表中滿足判定函數的元素|| |(vl-remove-if-not predicate-function list)|刪除列表中不滿足判定函數的元素|| |(vl-some predicate-function list [more-lists ...])|判斷列表中是否有元素使判定函數不返回nil|| (vl-sort list comparison-function)|用指定的比較函數對列表排序||| |(vl-sort-i list comparison-function)|用指定的比較函數對列表排序，返回排序后的列表的每個元素在排序前的列表中的索引構成的列表|命令: (vl-sort-i '("a" "d" "f" "c") '>) (2 1 3 0) | |(vl-string->list string)|將一個字符串轉化成其每個字符的字符碼構成的列表|命令: (vl-string->list "12") (49 50)|