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

1、VisualLISPifVisualLISP 中，if (ifcondition (s ement)(elses VisualLISPifVisualLISP 中，if (ifcondition (s ement)(elses )s elses 如果符合 condition（不為 nil），則執(zhí)行此表達(dá)式 與其他高級(jí)語言不同的是：Visual LISP 的if 判斷只能是雙選擇，而且ement 6-1 PrognmoneyInAccount withdraw progn moneyInAccountwithdrawprogn 對(duì)稱括號(hào)對(duì)稱括號(hào)對(duì)稱括號(hào);ifjudge;function:judg

2、eifacharacter;ifjudge;function:judgeifacharacterisaletter (4)(defunc:if(/(setqchgetstring請(qǐng)輸入字符串:) (setq ch (strcase ch)(if (and (= ch A) (x0)(progn(setqy1)(prompt(=x0)(progn(setqy0)(prompt(t(progn(setqy-1)(prompt)執(zhí)行結(jié)果：請(qǐng)輸入一數(shù)字：-分析：程序的第（6）行第（10）condx0則執(zhí)行第（7）行，x=0 則執(zhí)行第（8）行，其他情況（即 x=ch A)(=cha)(= ch A) (

3、= ch Z) (promptn您輸入的是大寫字符.) (promptn您輸入的是小寫字符);end(promptn);endif 執(zhí)行結(jié)果：請(qǐng)輸入一個(gè)英文字母：R您輸入的是大寫字符否為字母。第（10）行第（13）VBAifVBA ifVisualLISPififIfconditionThens 多行語IfconditionThen s ementsEnd 多行語IfconditionThen s ementsEnd 解釋成 True 或 False：一個(gè)為零的數(shù)值將被認(rèn)為是 FalseTruecondition TrueVBA 后面的所有 ements。您可以使用單行或多行語法來有條件地執(zhí)行

4、一個(gè)語法（以下的兩條程序是相等的IfssetObj.Count=1ThenIf ssetObj.Count=1 Then End If.Then 的單行語法格式并不需用End If 語法。如果 condition為 True 行多行程序代碼，就必須使用多行語法 If.Then.EndIf ifif if 語句中將使用 If.Then.Else 這樣的語法結(jié)構(gòu)，從而根據(jù)條件來執(zhí)行其中的一個(gè)語法。其標(biāo)準(zhǔn)語法Ifcondition1s ementblock-1 ElseIfcondition2Then s ementblock-2ElseIfcondition3Then s ementblock-3

5、 . s ementblock-End 在上述的語法結(jié)構(gòu)中，VBA 首先將測(cè)試 condition1。如果它為 False，VBA condition2True True 的條condition2True True 的條TrueVBAElse ElseIf 者一個(gè)也不用。Else 子句是可有可無的。此外，您可以有一個(gè) Else ElseIf 子句。例如：以下的程序范例Ifscore60Then ElseIfscore70Then ElseIfscore80Then ElseIfscore= A) And (ch =a)And(ch=A)And(ch=Z)ThisDrawing.Utility.

6、PromptYouenteredanuppercaseThisDrawing.Utility.PromptYouenteredanlowercaseletter. End If(16) ThisDrawing.Utility.PromptYourinputwasnotaletter. (17)End If(18)End執(zhí)行方式：Enteraletter:bYouenteredanlowercase（8課 后 習(xí) 1.cond if （A）if cond cond if 2. VBAifcond if 2. VBAif（ End If 多行語法必須以 End 不論是 ement 或elseement 都可直接寫入多個(gè)表達(dá)3. （VBA Select Case If.Then.Else Select Case 結(jié)構(gòu)來替換 If.Then.Else 結(jié)構(gòu)if ElseIf Else EndIf （C）（D）以上都AutoCAD 中并沒有畫兩圓切線功能，請(qǐng)?jiān)O(shè)計(jì)之（以設(shè)計(jì)提問： 1. 請(qǐng)選取第一圓：解答文件