2autocad2009-建筑图学基础随书光盘3.01g ch04n

1、建筑设计4.1Visual LISP 的运算符Visual LISP 的运算符包括：算术运算符：-*/1+1比较运算符：=/=逻辑运算符：AndOr表 4-1 详细列出了这些 Visual LISP 的运算符信息。表 4-1Visual LISP 的运算符64运 算 符作用资 料 类 型+返回所有参数的和数值型-将第一个数减去其他参数，返回差值数值型*返回所有参数的乘积数值型/将第一个参数除以其他数的乘积并返回商数值型=比较参数是否相等，相等则返回 T，否则返回 nil数值型或字符串型/=比较参数是否不相等，不相等则返回 T，否则返回 nil数值型或字符串型如果每个参数值都小于它右边的参数，则

2、返回 T，否则返回 nil数值型或字符串型如果每个参数值都大于它右边的参数，则返回 T，否则返回 nil数值型或字符串型=如果每个参数值都大于或等于它右边的参数，则返回T，否则返回 nil数值型或字符串型返回参数的 NOT（即 1 的补码）运算整数型And返回参数的 And 逻辑运算字符串型、T、nilOr返回参数的 Or 逻辑运算T、nil第 4 章高级语言的运算符与表达式（续表）Visual LISP 表达式前缀表示法4.2在 Visual LISP 中，表达式采用前缀表示法，即将运算符放在参数值之前，并将运算符（即函数名称）和操作数（即调用函数的参数）用括号连接，作为一个表达式，这样的表

3、达式是串行的一种。例如：(+ 25 23 24)，结果将返回 75。4.3Visual LISP 赋值表达式如果要将 100.0 的值赋予变量 x，那么一般(setq x 100)会使用函数 setq 来运算式。如：再看一个例子，要履行 x=(a+b)/c 这样的等式，Visual LISP 的表达式语法为：(setq x (/ (+ a b) c)编译器将依操作数的类型来执行表达式计算，如果两个操作数都是整数，那么编译器将产生整数的计算结果；若运算符中有一个以上的实数，那么编译器也将自动产生实数的计算结果。如以下范例所示：_$ (/ 5 3)1_$ (/ 5 3.0)1.66667顺利学习

4、Visual LISP 运算符与表达式的混合应最后，举一个简单的范例来用。Visual LISP Operator Programoper.lspfunction:demo Visual LISP operator65运 算 符作用资 料 类 型1+参数加 1数值型1-参数减 1数值型建筑设计(3)(4)(defun c:oper ()(5)(6)(7)(8)(9)(10)(11)(12)(13)(14)(15)(16)(17)(18)(19)(20)(21)(22)(23)(24)(25)(26)(27)(28)(29)(30)(31)(32)(33)(34)(35)(setq1 (GET(

5、setq2 (GETnInputeger:)nInput secondeger:)(setq real1 (GETREAL nInputreal:)real2 (GETREAL nInput second read:)(setq str1 (GETSTRING nInputstring:)str2 (GETSTRING nInput second string:)(princ n eger operationn)(princ1)(princ + )(princ2)(princ = ) (princ (+12)(princ n)(princ1)(princ - )(princ2)(princ =

6、 ) (princ (-12)(princ n)(princ1)(princ * )(princ2)(princ = ) (princ (*12)(princ n)(princ1)(princ / )(princ2)(princ = ) (princ (/12)(princ n)(princ1)(princ rem )(princ2)(princ = ) (princ (rem12)(princ n)(princ n)(princ nReal operationn)(princ real1)(princ + )(princ real2)(princ = ) (princ (+ real1 re

7、al2)(princ n)(princ real1)(princ - )(princ real2)(princ = ) (princ (- real1 real2)(princ n)(princ real1)(princ * )(princ real2)(princ = ) (princ (* real1 real2)(princ n)(princ real1)(princ / )(princ real2)(princ = )(princ (/ real1 real2)(princ n)66第 4 章高级语言的运算符与表达式(36)(37)(38)(39)(40)(41)(42)(43)(44

8、)(45)(46)(47)(48)(49)(50)(51)(52)(53)(54)(55)(56)(57)(58)(59)(60)(61)(62)(63)(64)(65)(66)(67)(68)(princ n)(princ nIncreasement and decreasement operationn) (princ1)(princ + )(princ 1)(princ = )(princ (1+1)(princ n)(princ1)(princ - )(princ 1)(princ = ) (princ (1-1)(princ n)(princ n)(princ nLogical op

9、erationn) (princ str1)(princ )(princ str2)(princ : )(princ ( str1 str2)(princ n) (princ1)(princ = )(princ2)(princ : )(princ ( )(princ real2)(princ : )(princ ( real1 real2)(princ n) (princ str1)(princ = )(princ str2)(princ : )(princ (= str1 str2)(princ n) (princ1)(princ = )(princ2)(princ : )(princ (=

10、12)(princ n) (princ real1)(princ /= )(princ real2)(princ : )(princ (/= real1 real2)(princ n)(princ n)(princ nBit operationn) (princ )(princ1)(princ =)(princ (1)(princ n)(princ )(princ2)(princ =)(princ (2)(princ n) (princ n)(princ)67建筑设计执行结果：若提示输入：Inputeger:5Input secondeger:10Inputreal:3.25Input sec

11、ond read:1.8Inputstring:bookInput second string:Book则将输出：eger operation 5 + 10 = 155 - 10 = -55 * 10 = 505 / 10 = 05 rem 10= 5 Real operation 3.25 + 1.8 = 5.053.25 - 1.8 = 1.453.25 * 1.8 = 5.853.25 / 1.8 = 1.80556Increasement and decreasement operation 5 + 1 = 65 - 1 = 4Logical operation book Book :

12、 nil 5 1.8 : Tbook = Book : T 5 = 10 : nil3.25 /= 1.8 : TBit operation5=-610=-11析：整数运算的结果是整数，实数运算的结果仍是实数。68第 4 章 高级语言的运算符与表达式老师：“ 下四，本班要举行烤肉远足，请大家提出一个可以烤肉的地点。”阿呆：“老师，到动物园烤肉最好了！” “为什么？” “因为那里什么肉都有”69建筑设计4.4VBA 的运算符与表达式在 VBA 中的运算符将包括：算术运算符：*/Mod比较运算符：=连接运算符：&逻辑运算符：AndEqvImpNotOrXor表 4-2 详细列出了这群 VBA 的运

13、算符信息。表 4-2VBA 的运算符70运 算 符作用资 料 类 型求数字的次方值数值型*求乘积数值型/求商的实数值数值型求商的整数值数值型Mod求余数值型+求和数值型-求差数值型比较表达式是否小于另一表达式，若小于则返回 True，否则返回 FalseTrue、False比较表达式是否大于另一表达式，若大于则返回 True，否则返回 FalseTrue、False=比较表达式是否大于或等于另一表达式，若大于或等于则返回 True，否则返回 FalseTrue、False第 4 章高级语言的运算符与表达式71建筑设计（续表）4.5VBA 的表达式范例本节，就以下面这个范例来说明 VBA 运算符

14、与表达式的混合应用。VBA Operator Programoper.vbafunction:demo VBA operator (3)(4)Public Sub Oper()(5)(6)Dim1 Aseger,2 AsegerDim dbl1 As Double, dbl2 As DoubleDim str1 As String, str2 As String, str As String(9)Dim bln1 As(10), bln2 As72运 算 符作用资 料 类 型=比较表达式是否等于另一表达式，若等于则返回 True，否则返回 FalseTrue、False比较表达式是否不等于另一

15、表达式，若不等于则返回 True，否则返回 FalseTrue、False&以字符串来串连接两个表达式字符串型And返回两个表达式的 And 逻辑运算True、FalseEqv判断两个表达式是否逻辑等值，如果等值则返回 True，否则返回 FalseTrue、FalseImp返回两个表达式进行逻辑运算，若第 1 个表达式为 True，则检查第 2 个表达式，若为 True，返回False，否则均返回 FalseTrue、FalseNot返回两个表达式的 Not 逻辑运算True、FalseOr返回两个表达式的 Or 逻辑运算True、FalseXor返回两个表达式的 Xor 逻辑运算True、

16、False第 4 章高级语言的运算符与表达式(11) 1 = 5:2 = 2(12)dbl1 = 3.2: dbl2 = 6.4(13)str1 = acad: str2 = Acad (14)str = str1 & str2(15)bln1 = True: bln2 = False(16)(17)Debug.Pr (18)Debug.Pr (19)Debug.Pr (20)Debug.Pr (21)Debug.Pr (22)Debug.Pr (23)Debug.Pr (24)Debug.Pr (25)Debug.Pr (26)Debug.Pr (27)Debug.Pr (28)Debug.

17、Pr (29)Debug.Pr (30)Debug.Pr (31)Debug.Pr (32)Debug.Pr (33)Debug.Pr (34)Debug.Pr (35)Debug.Pr(36)Debug.Pr1 & &1 & * & dbl2 & / & dbl2 & &2 & = & ( 1 2 & = & ( 1 *2 & = & (dbl2 /2 & = & (dbl2 2)2)2)2)1 & Mod &2 & = & ( 1 Mod2)1 & + &1 & - &1 & &2 & = & (2 & = & (2 & = & (1 +1 -1 2)2)2)dbl1 & & str2 &

18、 = & (str1 str2)1 & = & CDbl( 1) & = & ( 1 = CDbl( 1)2 & = & CDbl( 2) & = & ( 2 = CDbl( 2)C (dbl2) & & dbl2 & = & (C (dbl2) dbl2) str1; & ; str2; = ; strbln1 & And & bln2; = & (bln1 And bln2) bln1 & Eqv & bln2; = & (bln1 Eqv bln2) bln1 & Imp & bln1; = & (bln1 Imp bln1) Not & bln2; = & (Not bln2)bln1

19、 & Or & bln2; = & (bln1 Or bln2)bln1 & Xor & bln2; = & (bln1 Xor bln2)执行结果：此程序将于窗口中打印：5 2 = 255 * 2 = 106.4 / 2 = 3.26.4 2 = 35 Mod 2 = 15 + 2 = 773建筑设计5 - 2 = 35 2 = False3.2 Acad = True 5 = 5 = True2 = 2 = True6 6.4 = Trueacad & Acad = acadAcad True And False = False True Eqv False = False True Imp True = True Not False = TrueTrue Or False = TrueTrue Xor False = True分析：略。一个范例的基础上，这个范例应该很容易理解。课 后 习 题一、多选题1.“运算符”：（ ）就是一些特殊的数字，它可利用一群操作数的值来计算产生新值。就是一些特殊的文字，它可利用一群操作数的值来计算产生新值。就是一些特殊的符号，它可利用一群操作数的值来计算产生新值。以上都不对以下哪些属算术运算符：（ ）2.（A）*（B）&（C）(（D）/3.以下哪些是 A=(12325/45)+3的正确 Aut