第十四章 AutoLISP初步 (car‘(yz))返回y 注除car、cdr和cadr函数外,还有其他几个函数用于选取列表中的不同元 素。下面是这些函数的列表,其中函数f由列表‘((xyf)zw)组成 ( setq f‘(xy)zw)) (caar f)=(car(car n 返回 (cdar f)=(cdr(car f)) 返回(y) (cadar f)=(car(cdr(car f))) 返回y (cddr f)=(cdr (cdr f) 返回(w) ( cadd f)=(car(cdr(cdrf))返回W 14.11 graphscr、 textscr、 prInc与 terri函数 1 graphscr函数 若系统只有一个屏幕, graphscr函数将文本窗口转换为图形窗口,若系统有两个屏幕 该函数将被忽略 2 textscr函数 若系统只有一个屏幕, textscr函数将图形窗口转换为文本窗口,若系统有两个 屏幕,该函数将被忽略 rInc 函数 Princ函数打印(或显示)变量的值。若变量位于双引号中,该函数打印(或显示) 双引号内的表达式 princ函数的格式为:( Princ[变量或表达式]) 示例:(pinc)在屏幕上打印一个空行 ( princ a)在屏幕上打印出变量a的值 ( princ“ Welcome”)在屏幕上打印 Welcome 4 terri函数 terri函数用于在屏幕上打印一个新行,与\n作用相同。该函数用于打印紧跟着 terri函数的一行。 示例:( setq pl( setPoint“ Enter first point:”)( terri)第十四章 AutoLISP 初步 286 =（car‘（y z）） 返回 ｙ 注意 除 car、cdr 和 cadr 函数外，还有其他几个函数用于选取列表中的不同元 素。下面是这些函数的列表，其中函数ｆ由列表‘（（x ｙ f）ｚ w）组成。 （setq f‘（（ｘ ｙ）ｚ ｗ）） （caar ｆ）=（car（car ｎ） 返回ｘ (cdar f）=(cdr(car f)) 返回(y） （cadar f）=（car(cdr(car f))） 返回ｙ （cddr f）=（cdr（cdr f） 返回（ｗ） （caddr f）=（car（cdr（cdr f））） 返回Ｗ 14.11 graphscr、textscr、princ 与 terpri 函数 1.graphscr 函数 若系统只有一个屏幕，graphscr 函数将文本窗口转换为图形窗口，若系统有两个屏幕， 该函数将被忽略。 2.textscr 函数 若系统只有一个屏幕，textscr 函数将图形窗口转换为文本窗口，若系统有两个 屏幕，该函数将被忽略。 3.princ 函数 Princ 函数打印（或显示）变量的值。若变量位于双引号中，该函数打印（或显示） 双引号内的表达式。 princ 函数的格式为：（Princ［变量或表达式］） 示例：（princ）在屏幕上打印一个空行 （princａ）在屏幕上打印出变量ａ的值 （princ“Welcome”）在屏幕上打印 Welcome 4.terpri 函数 terpri 函数用于在屏幕上打印一个新行，与\n 作用相同。该函数用于打印紧跟着 terpri 函数的一行。 示例：（setq p1（getPoint“Enter first Point：”））（terpri）