2autocad2009-建筑圖學基礎(chǔ)隨書光盤3.01g ch04n

1、建筑設(shè)計4.1Visual LISP 的運算符Visual LISP 的運算符包括：算術(shù)運算符：-*/1+1比較運算符：=/=邏輯運算符：AndOr表 4-1 詳細列出了這些 Visual LISP 的運算符信息。表 4-1Visual LISP 的運算符64運 算 符作用資 料 類 型+返回所有參數(shù)的和數(shù)值型-將第一個數(shù)減去其他參數(shù)，返回差值數(shù)值型*返回所有參數(shù)的乘積數(shù)值型/將第一個參數(shù)除以其他數(shù)的乘積并返回商數(shù)值型=比較參數(shù)是否相等，相等則返回 T，否則返回 nil數(shù)值型或字符串型/=比較參數(shù)是否不相等，不相等則返回 T，否則返回 nil數(shù)值型或字符串型如果每個參數(shù)值都小于它右邊的參數(shù)，則

2、返回 T，否則返回 nil數(shù)值型或字符串型如果每個參數(shù)值都大于它右邊的參數(shù)，則返回 T，否則返回 nil數(shù)值型或字符串型=如果每個參數(shù)值都大于或等于它右邊的參數(shù)，則返回T，否則返回 nil數(shù)值型或字符串型返回參數(shù)的 NOT（即 1 的補碼）運算整數(shù)型And返回參數(shù)的 And 邏輯運算字符串型、T、nilOr返回參數(shù)的 Or 邏輯運算T、nil第 4 章高級語言的運算符與表達式（續(xù)表）Visual LISP 表達式前綴表示法4.2在 Visual LISP 中，表達式采用前綴表示法，即將運算符放在參數(shù)值之前，并將運算符（即函數(shù)名稱）和操作數(shù)（即調(diào)用函數(shù)的參數(shù)）用括號連接，作為一個表達式，這樣的表

3、達式是串行的一種。例如：(+ 25 23 24)，結(jié)果將返回 75。4.3Visual LISP 賦值表達式如果要將 100.0 的值賦予變量 x，那么一般(setq x 100)會使用函數(shù) setq 來運算式。如：再看一個例子，要履行 x=(a+b)/c 這樣的等式，Visual LISP 的表達式語法為：(setq x (/ (+ a b) c)編譯器將依操作數(shù)的類型來執(zhí)行表達式計算，如果兩個操作數(shù)都是整數(shù)，那么編譯器將產(chǎn)生整數(shù)的計算結(jié)果；若運算符中有一個以上的實數(shù)，那么編譯器也將自動產(chǎn)生實數(shù)的計算結(jié)果。如以下范例所示：_$ (/ 5 3)1_$ (/ 5 3.0)1.66667順利學習

4、Visual LISP 運算符與表達式的混合應(yīng)最后，舉一個簡單的范例來用。Visual LISP Operator Programoper.lspfunction:demo Visual LISP operator65運 算 符作用資 料 類 型1+參數(shù)加 1數(shù)值型1-參數(shù)減 1數(shù)值型建筑設(shè)計(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建筑設(shè)計執(zhí)行結(jié)果：若提示輸入：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析：整數(shù)運算的結(jié)果是整數(shù)，實數(shù)運算的結(jié)果仍是實數(shù)。68第 4 章 高級語言的運算符與表達式老師：“ 下四，本班要舉行烤肉遠足，請大家提出一個可以烤肉的地點?！卑⒋簦骸袄蠋?，到動物園烤肉最好了！” “為什么？” “因為那里什么肉都有”69建筑設(shè)計4.4VBA 的運算符與表達式在 VBA 中的運算符將包括：算術(shù)運算符：*/Mod比較運算符：=連接運算符：&邏輯運算符：AndEqvImpNotOrXor表 4-2 詳細列出了這群 VBA 的運

13、算符信息。表 4-2VBA 的運算符70運 算 符作用資 料 類 型求數(shù)字的次方值數(shù)值型*求乘積數(shù)值型/求商的實數(shù)值數(shù)值型求商的整數(shù)值數(shù)值型Mod求余數(shù)值型+求和數(shù)值型-求差數(shù)值型比較表達式是否小于另一表達式，若小于則返回 True，否則返回 FalseTrue、False比較表達式是否大于另一表達式，若大于則返回 True，否則返回 FalseTrue、False=比較表達式是否大于或等于另一表達式，若大于或等于則返回 True，否則返回 FalseTrue、False第 4 章高級語言的運算符與表達式71建筑設(shè)計（續(xù)表）4.5VBA 的表達式范例本節(jié)，就以下面這個范例來說明 VBA 運算符

14、與表達式的混合應(yīng)用。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)執(zhí)行結(jié)果：此程序?qū)⒂诖翱谥写蛴。? 2 = 255 * 2 = 106.4 / 2 = 3.26.4 2 = 35 Mod 2 = 15 + 2 = 773建筑設(shè)計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分析：略。一個范例的基礎(chǔ)上，這個范例應(yīng)該很容易理解。課 后 習 題一、多選題1.“運算符”：（ ）就是一些特殊的數(shù)字，它可利用一群操作數(shù)的值來計算產(chǎn)生新值。就是一些特殊的文字，它可利用一群操作數(shù)的值來計算產(chǎn)生新值。就是一些特殊的符號，它可利用一群操作數(shù)的值來計算產(chǎn)生新值。以上都不對以下哪些屬算術(shù)運算符：（ ）2.（A）*（B）&（C）(（D）/3.以下哪些是 A=(12325/45)+3的正確 Aut