[计算机软件及应用]AutoLISP和Visual_LISPlxd.pptVIP

(5)表处理函数 1)(list 表达式 …) 功能：用所列表达式组成一个表。示例： Command：(list C A D) (C A D) Command：(list 1.2 2.3) (1.20 2.30) 2)(append 表1 表2 …) 功能：将所列的表合并成一个新表。示例： Command：(append (C) (A) (D)) (C A D) 3)(cons 新元素 表) 功能：将新元素加到表的开头，形成一个新表。示例： Command：(cons C (A D)) (C A D) Command：(cons (A C) (A D)) ((A C) A D) 4)(subst 新元素 旧元素 表) 功能：用新元素替换表中的旧元素。示例： Command：(subst M D (C A D)) (C A M) 5)(assoc 关键字 关联表) 功能：在关联表中求出指定关键字的子表。示例： Command：(setq alst ((new 550) (old 162))) ((new 550)(old 162)) Command：(assoc new alst) (new 550) * 6)(last 表) 功能：求出表的最后一个元素。示例： Command：(last (Auto CAD)) CAD Command：(last (Auto (CAD 14))) (CAD 14) 7)(car 表) 功能：求出表的第一个元素。示例： Command：(car (Auto (CAD 14))) Auto 8)(cdr 表) 功能：求出表中去掉第一元素后的剩余表，以表的形式返回。示例： Command：(cdr (Auto (CAD 14) hz)) ((CAD 14)hz) 若已知一点pt：(setq pt (list 2.0 3.0 5.0))，则可用三个函数分别得到该点的x、y、z分量值。 Command：(car pt)；返回点变量pt的x分量2.0。 Command：(cadr pt)；返回点变量pt的y分量3.0。(car (cdr pt)) Command：(caddr pt)；返回点变量pt的z分量5.0。(car (cdr (cdr pt))) 9)(nth n 表) 功能：求出表中第n个元素(表的第一个元素的序号为0)。示例： Command：(nth 2 (Auto (CAD 14) hz)) hz 10)(reverse 表) 功能：求出表的倒置表。示例： Command：(reverse ((CAD 14) hz)) (hz(CAD 14)) * 11)(length 表) 功能：求出表中顶层元素的个数。示例： Command：(length (Auto (CAD 14) hz)) 3 12)(foreach 变量名 表 表达式 …) 功能：将表中元素逐一赋给变量并求表达式的值。示例： Command：(foreach x (1.0 2.0 3.0)(print x)) 1.0 2.0 3.0 3.0 13)(mapcar 函数 表1 … 表n) 功能：将表中的各元素按函数的要求进行处理。示例： Command：(mapcar * (1 2 3) (2 3 4)) (2 6 12) 14)(apply 函数 表) 功能：按指定函数对表进行处理。示例： Command：(apply * (1 2 3)) 6 15)(quote 表达式)或(表达式) 功能：给出没有计算的表达式，也称为禁止求值函数。示例： Command：(quote a) A Command：((setq a 1)) (setq a 1) * 2.图形处理函数 (1)交互输入函数 (2)求值函数 (3)AutoCAD命令函数 * (1)交互输入函数 1)(getangle [基点] [提示]) 功能：用相对基点拖动指定点或直接输入的方法确定一个角度，该角度为相