AutoLisp 的相关基础简介.docVIP

AutoLisp 简介 本简介仅列出较常用之基本观念。详细且完整之功能，请自行参阅当时最新版本之AutoLisp，或 HYPERLINK /~rogh/autolisp/ /~rogh/autolisp/ 。 AutoLisp 乃是依 Lisp程序语言为基础，加以扩充，使之可呼叫AutoCAD绘图功能。 Lisp = List Programming List (串行)： 一种数据结构 3 3 2 1 B A 6 5 表示法： (1 2 3 ( A B ) 5 6 ) atom ： 最基本之构成原子。 如： 1, 2, 3, A,B,5,6 element：构成list的元素，可以是atom(如：1,2,3,5,6)或者子串行(sub-list, 如： (A B) ) Lisp的特性 将list视为函式(function)，其中，第一个元素为运算子(operator)，余为操作数(operand)。例如：一般数学式 3 + 2，Lisp式为 (+ 3 2)；f(x,y)的Lisp式为 (f x y)。 数据(data)为一种特殊的函式，其运算子为quote。例如：资料(a,b,c)的Lisp式为 (quote a b c) 或简示为 ’(a b c) 函式内部指述(statement)，依序(sequential)执行。 函式之间无必然前后之执行关系(non-procedural)。 不分大小写，系统一律响应以大写。 数据型态 integer real string 字符串, 以 ” ” 括之，其中可含下列特殊字符： 特殊字符串 意义(对应键盘) \\ \ \e Escape键 \n New line \r Return 键 \t Tab键 \nnn 八进位码为 nnn 之字符 常数 T ： true Nil ： false ；批注符号，置于行首。该行不执行。 (Auto)Lisp 为交谈式(interactive)的操作环境，使用interpreter (而非 compiler)。可以在屏幕上交谈式执行，或写成程序，以批次式执行(详后)。 常用指令集(完整指令集，请自行参考AutoLisp相关手册) 数学运算指令 运算子 操作数 说明 + N1 N2 N3 … N1 + N2 + N3 +… - N1 N2 N3 … N1 - N2 – N3 -… * N1 N2 N3 … N1 * N2 * N3 *… / N1 N2 N3 … N1 / N2 / N3 /… = N1 N2 N3 … 如果N1=N2=N3=…，传回t，否则 nil /= N1 N2 如果N1 不等于N2，传回t，否则 nil N1 N2 N3 … 如果N1N2N3…，传回t，否则 nil = N1 N2 N3 … 如果N1=N2=N3=…，传回t，否则 nil N1 N2 N3 … 如果N1N2N3…，传回t，否则 nil = N1 N2 N3 … 如果N1=N2=N3=…，传回t，否则 nil 1+ N N+1 1- N N-1 Abs N N的绝对值 Rem N1 N2 N1/N2的余数 Sin θ(弪度量[π]) Sin(θ) Cos θ(弪度量[π]) Cos(θ) Atan θ1 θ2 (弪度量[π]) Tan-1(θ1/θ2), θ2 ≠ 0 Exp N eN Expt Base power (Base)power Log N Log e(N) ,自然对数值 GCD N1 N2 N3 … N1 N2 N3 …的最大公约数 Max N1 N2 N3 … 取最大值 Min N1 N2 N3 … 取最小值 Sqrt N N的正平方根 串行运算 运算子 操作数 说明 quote exp 回应exp 本身，亦可简示为 ’exp 例： (quote a) 或 ‘a (quote (a b c)) 或 ‘( a b c) setq sym1 exp1 sym2 exp2 sym3 exp3 …. 将 expi 值指定给 symI 例： (setq a 5.0) (setq s “it”) (setq x ‘(a b)) list Exp1 Exp2 … 以Exp1 Exp2 …为元素，合成一串行。例： (list ‘a ‘b ‘c ) ? (a b c) (list ‘a ‘(b c) ‘d) ? ( a (b c) d) (list 3.9 6.7) ? (3.900000 6.700000) cons Elemen