Visual-LISP程序設(shè)計(jì)(第2版)第5章編輯源程序代碼

編輯源程序代碼2021/6/2715.1文本編輯工具

與文本編輯有關(guān)的下拉菜單有File、Edit和Search。

此外還有專用的快捷菜單和快捷鍵。

工具欄有Standard、Search和Tools。

2021/6/2721.文本編輯器的快捷菜單在文本編輯器窗口單擊鼠標(biāo)右鍵，將彈出圖5-1所示文本編輯器的快捷菜單。刪除被選中的文本并將其移到Windows剪貼板將選中的文本復(fù)制到剪貼板Windows剪貼板將剪貼板內(nèi)容粘貼到光標(biāo)位置在一個(gè)或多個(gè)文本編輯器窗口中查找指定文本將光標(biāo)移到最近編輯的位置在光標(biāo)位置處以跟斗式設(shè)置

刪除一個(gè)斷點(diǎn)打開“檢驗(yàn)”對(duì)話框打開“監(jiān)視”窗口打開“自動(dòng)匹配選項(xiàng)”窗口打開“符號(hào)服務(wù)”對(duì)話框放棄最近的操作重新執(zhí)行上次放棄的操作圖5-1文本編輯器的快捷菜單2021/6/273快捷鍵 光標(biāo)的動(dòng)作Ctrl+

向左移動(dòng)一個(gè)詞Ctrl+

向右移動(dòng)一個(gè)詞End 移到行末Home 移到行首PgDn 下移一屏PgUp 上移一屏Ctrl+End 移到文檔最后Ctrl+Home 移到文本開始處Ctrl+[ 移到與光標(biāo)相匹配的左括號(hào)之前Ctrl+] 移到與光標(biāo)相匹配的右括號(hào)之后2.文本編輯器的快捷鍵（1）光標(biāo)移動(dòng)快捷鍵除了使用方向按鍵之外，還可以使用表5-1所示一些組合的快捷鍵來(lái)移動(dòng)光標(biāo)。表5-1光標(biāo)移動(dòng)快捷鍵2021/6/274快捷鍵 功能Shift+

選取該字符開始到下一行該字符位置之前的所有字符Shift+

選取該字符開始到上一行該字符位置之后的所有字符Shift+End 選取該字符開始到行末的所有字符Shift+Home 選取該字符開始到行首的所有字符Shift+PgDn 選取該字符開始到下一頁(yè)該字符位置之前的所有字符Shift+PgUp 選取該字符開始到上一頁(yè)該字符位置之后的所有字符Ctrl+Shift+

選取該字符開始到該詞結(jié)束的所有字符Ctrl+Shift+

選取該字符開始到該詞開始的所有字符Ctrl+Shift+[ 選取該字符開始到與其匹配的左括號(hào)的所有字符Ctrl+Shift+] 選取字符開始到與其匹配的右括號(hào)的所有字符Alt+Enter 將光標(biāo)移到已選取文本的另一端（2）文本選取快捷鍵除了雙擊鼠標(biāo)左鍵，選取那些由光標(biāo)位置決定的文本之外，還可使用表5-2所示文本選取快捷鍵。表5-2文本選取快捷鍵2021/6/275（3）刪除操作的快捷鍵表5-3所示為文本編輯器有關(guān)刪除操作的快捷鍵。表5-3刪除功能的快捷鍵快捷鍵 功能Ctrl+退格 刪除光標(biāo)左邊的詞Shift+退格 刪除光標(biāo)右邊的詞Ctrl+E,再單擊E 刪除從光標(biāo)到行末的所有字符2021/6/276快捷鍵 功能Tab 向后縮進(jìn)Tab所確定的距離Shift+Tab 向前減少縮進(jìn)Tab所確定的距離Shift+Enter 清除隨后的空格鍵和TAB鍵，插入一個(gè)換行符，并 將該行縮排至和前一個(gè)非空行平齊。Ctrl+Enter 插入一個(gè)換行符而不清除當(dāng)前行中隨后的空格鍵和

TAB鍵。（4）代碼縮排編輯快捷鍵

VisualLISP按默認(rèn)的格式縮排程序代碼，可以通過(guò)下拉菜單Tools

WindowAttributes

ConfigureCurrent選項(xiàng)設(shè)置制表符Tab的寬度（縮進(jìn)的字符數(shù)）,也可以用表5-4所示代碼縮排編輯的快捷鍵，還可以自定義格式編排程序的選項(xiàng)（參見5.4設(shè)置代碼格式）。表5-4代碼縮排編輯快捷鍵2021/6/2775.2文本操作1.選取文本雙擊鼠標(biāo)左鍵是選取文本最簡(jiǎn)單的方法，具體選取了哪些字符是根據(jù)光標(biāo)在以下的位置決定的。（1）若光標(biāo)緊挨某左圓括號(hào)之前，將選取該左圓括號(hào)至與之匹配的右圓括號(hào)之間的所有文本；（2）若光標(biāo)緊跟某右圓括號(hào)之后，將選取該右圓括號(hào)至與之匹配的左圓括號(hào)之間的所有文本；（3）若光標(biāo)緊挨某雙引號(hào)之前，將選取該雙引號(hào)至下一個(gè)雙引號(hào)之間的所有文本；2021/6/278（4）若光標(biāo)緊跟某雙引號(hào)之后，將選取該雙引號(hào)至前一個(gè)雙引號(hào)之間的所有文本；（5）若光標(biāo)緊挨某字符串前、緊跟某字符串后或某字符串內(nèi)部，將選取該字符串。單擊鼠標(biāo)左鍵，按住Shift鍵，在另一個(gè)位置單擊鼠標(biāo)左鍵，將選取這兩個(gè)光標(biāo)之間的所有文本。除了以上的方法之外，還可使用表5-2所示的文本選取快捷鍵。2021/6/2792.移動(dòng)文本除了使用標(biāo)準(zhǔn)的Windows剪切、復(fù)制和粘貼功能外，VisualLISP文本編輯器還允許用戶用以下方法將文本從文本編輯器窗口的某個(gè)位置拖到另一個(gè)位置。移動(dòng)文本的步驟是：（1）選取要移動(dòng)的文本；（2）光標(biāo)移到被選取文本之內(nèi)的任意位置后，按住鼠標(biāo)左鍵，光標(biāo)改變?yōu)閳D5-2(a)所示的形狀。（3）將文本拖拽到新的位置，松開鼠標(biāo)左鍵即可。3.復(fù)制文本復(fù)制文本與移動(dòng)文本只有第三步不同，在拖拽文本時(shí)，需要按住Ctrl鍵，光標(biāo)改變?yōu)閳D5-2(b)所示的形狀，然后將文本復(fù)制到新位置。圖5-2用鼠標(biāo)移動(dòng)和復(fù)制文本時(shí)的光標(biāo)

2021/6/27104.查找文本選擇下拉菜單Search

Find，或單擊工具欄按鈕，將彈出圖5-3所示查找對(duì)話框。圖5-3查找對(duì)話框有關(guān)查找文本對(duì)話框的說(shuō)明如下：（1）FindWhat編輯框：用于輸入要查找的字符串，如果在查找操作前選取了文本，被選文本將會(huì)自動(dòng)出現(xiàn)在FindWhat文本框內(nèi)。2021/6/2711（2）Search欄：確定查找范圍。該欄有四個(gè)互鎖按鈕。依次是：●Currentselection：在文本編輯器窗口中亮顯的文本中查找；

●Currentfile：僅在活動(dòng)編輯器窗口中的文件中查找；●Project：在隨后指定的工程文件所包含的全部文件中查找，并在新的輸出窗口中顯示所有與查找字符串匹配的表達(dá)式。 ●Files：在指定要查找文件目錄和文件類型的所有文件中查找，并在新的輸出窗口中顯示所有與查找字符串匹配的表達(dá)式。在這個(gè)新的輸出窗口用鼠標(biāo)左鍵雙擊任意亮顯的表達(dá)式，VisualLISP將打開與其相關(guān)的LISP文件。文件的類型可以用通配符。（3）Direction欄：確定查找方向。該欄有兩個(gè)互鎖按鈕。依次是：

●

Down：從光標(biāo)當(dāng)前位置處開始向下查找；●

Up：從光標(biāo)當(dāng)前位置處開始向上查找。2021/6/2712（4）Matchwholewordonly切換開關(guān)：如果為開，僅匹配全字。例如，若查找的文本是ent，VisualLISP認(rèn)為它不與entnext匹配；如果為關(guān)時(shí)，VisualLISP將認(rèn)為ent與entnext匹配。（5）Matchcase切換開關(guān)：如果為開，VisualLISP區(qū)分字母的大小寫。例如，若查找的文本是car，VisualLISP認(rèn)為它不與Car或CAR匹配；如果為關(guān)時(shí)，VisualLISP將認(rèn)為car與CAR或Car匹配。（6）Markinstances切換開關(guān)：如果為開，將在每個(gè)找到的文本處加上書簽。利用書簽就可以快速找到這些代碼所在的位置。點(diǎn)取Find按鈕將開始查找。如果查找的范圍是工程或文件目錄，將在新的輸出窗口中顯示所有與查找字符串匹配的表達(dá)式。如果是在單個(gè)文件或亮顯的段落中查找，將從光標(biāo)當(dāng)前位置處按指定方向開始查找，若找到與之匹配的對(duì)象，就停止查找且亮顯與之匹配的對(duì)象，同時(shí)光標(biāo)移至該位置。若找不到與之匹配的對(duì)象，將彈出要求用戶確認(rèn)是否從頭查找的對(duì)話框。按F3鍵或按鈕將從當(dāng)前位置查找下一個(gè)相同的查找內(nèi)容的字符串。2021/6/2713VisualLISP將每次輸入的查找字符串都保存在工具欄的下拉表列內(nèi)，見圖5-4。如果要重復(fù)以前所做的查找，單擊下拉箭頭并從列表中選中要查找的項(xiàng)，然后從工具欄中選擇查找按鈕即可。圖5-4保存查找字符串的下拉列表

2021/6/27145.替換文本選取Search下拉菜單的Replace選項(xiàng)，或點(diǎn)取工具欄的按鈕,將彈出圖5-5所示替換對(duì)話框。圖5-5替換對(duì)話框2021/6/2715替換文本對(duì)話框與查找文本對(duì)話框類似，有關(guān)說(shuō)明如下：（1）Findwhat編輯框：輸入要查找的字符串。（2）Replacewith編輯框：輸入用來(lái)替換查找內(nèi)容的字符串。（3）Find按鈕：從光標(biāo)所在位置開始，按指定方向查找指定字符串的第一個(gè)位置，同時(shí)光標(biāo)移至該位置。（4）Replace按鈕：將找到的文本替換成用戶指定的內(nèi)容。如果不想替換此次找到的字符串，可單擊Find按鈕，查找指定字符串的下一個(gè)位置。（5）ReplaceAll按鈕，將所有找到的字符串替換成指定的字符串。其余按鈕同查找對(duì)話框。2021/6/27166.在程序中設(shè)置書簽書簽的樣式和書簽相關(guān)的按鈕如圖5-6所示。VisualLISP允許在每個(gè)文本編輯窗口添加多達(dá)32個(gè)書簽,再添加新的書簽時(shí)，將刪除最早的書簽。書簽可幫助用戶更方便地瀏覽文本編輯窗口中的文件。每個(gè)文本編輯器窗口維護(hù)各自獨(dú)立的書簽集。每個(gè)窗口中的所有書簽組成一個(gè)書簽環(huán)，光標(biāo)可以在書簽環(huán)中向前或向后移動(dòng)。

刪除活動(dòng)窗口中的所有書簽將光標(biāo)移到上一個(gè)書簽的位置將光標(biāo)移到下一個(gè)書簽的位置在光標(biāo)所在行切換添加或刪除書簽書簽圖5-6書簽的樣式及其相關(guān)的按鈕

2021/6/2717(1）添加書簽①將光標(biāo)移到要添加書簽的位置。②選擇菜單Search→Bookmarks→ToggleBookmark或單擊工具欄上的按鈕，還可以按Alt+.（句點(diǎn)）來(lái)實(shí)現(xiàn)該操作。（2）將光標(biāo)從某書簽移到另一個(gè)書簽的位置①選擇菜單Search→Bookmarks→PreviousBookmark可將光標(biāo)移到書簽環(huán)中的上一個(gè)書簽處，也可單擊工具欄上的按鈕，或按Ctrl+,（逗號(hào)）來(lái)實(shí)現(xiàn)該操作。②.選擇菜單Search→Bookmarks→NextBookmark,可將光標(biāo)移到書簽環(huán)中的下一個(gè)書簽處，也可單擊工具欄上的按鈕，或按Ctrl+.（點(diǎn)）來(lái)實(shí)現(xiàn)該操作。2021/6/2718（3）選擇兩個(gè)書簽之間的文本按Ctrl+Shift+,（逗號(hào)）可選擇當(dāng)前位置和下一書簽之間的文本。按Ctrl+Shift+.（句點(diǎn)）可選擇當(dāng)前位置和上一書簽之間的文本。（4）刪除單個(gè)書簽①將光標(biāo)移到書簽位置。②單擊工具欄上的切換書簽按鈕或按Alt+.（句點(diǎn)）。（5）清除活動(dòng)窗口中的所有書簽選擇菜單Search→Bookmarks→ClearAllBookmarks或單擊工具欄的按鈕即可。2021/6/27195.3設(shè)置代碼格式文本編輯器可以設(shè)置AutoLISP代碼的格式，使代碼更易于閱讀?？梢詮亩喾N不同格式的樣式中挑選自己喜歡的格式。1.設(shè)置AutoLISP代碼格式的對(duì)話框選擇菜單Tools→EnvironmentOptions→VisualLISPFormat，將彈出圖5-7所示格式選擇對(duì)話框。圖5-7格式選擇對(duì)話框

2021/6/2720該對(duì)話框各項(xiàng)含義如下：（1）RightTextMargin文本右邊距允許每行最后一個(gè)字符的最右位置，該值的定義域?yàn)?0~200。（2）Narrorstyleindentation窄樣式向右縮進(jìn)的寬度在窄樣式下，第一個(gè)參數(shù)在函數(shù)名的下一行，它的起始位置與表達(dá)式起始位置的縮進(jìn)字符數(shù)即為縮進(jìn)寬度，該值的定義域?yàn)?~6。（3）Maximumwide-stylecarlength表達(dá)式第一個(gè)參數(shù)的長(zhǎng)度如果表達(dá)式第一個(gè)參數(shù)超出該長(zhǎng)度，其余的參數(shù)移至下一行。該值不能小于窄樣式向右縮進(jìn)的寬度。（4）Single-semicoloncommentindentation單個(gè)分號(hào)開頭的注釋縮進(jìn)寬度以單個(gè)分號(hào)開頭的注釋行向右縮進(jìn)的起始位置。2021/6/2721（5）CloseParenStyle右圓括號(hào)樣式欄，右圓括號(hào)有以下三個(gè)位置。①Closeatthesameline在同一行。②Closeatthenewlinewithinnerindentation在下一行并向右縮進(jìn)。③Closeatthenewlinewithouterindentation在下一行并向左突出。（6）Inserttabs插入制表符是否用制表符實(shí)現(xiàn)縮進(jìn)，若不用制表符，則用空格符實(shí)現(xiàn)縮進(jìn)。（7）Saveformattingoptionsinsourcefile將格式化選擇的參數(shù)追加到源文件之后。2021/6/2722（8）Insertfom-closingcommment在表達(dá)式的閉括號(hào)之后插入注釋在表達(dá)式的閉括號(hào)之后添加注釋，注釋的內(nèi)容是該表達(dá)式的函數(shù)名。（9）Form-closingcommentprefix閉括號(hào)注釋的前綴確定表達(dá)式閉括號(hào)之后注釋的前綴，該項(xiàng)可以為空字符串。（10）Moreoption…

單擊此按鈕，對(duì)話框在右面擴(kuò)展一列，確定行的最大長(zhǎng)長(zhǎng)度、分行符、注釋、大小寫的選擇、長(zhǎng)表樣式等。（11）ReverttoDefualt恢復(fù)為默認(rèn)的設(shè)置用默認(rèn)的格式化參數(shù)作為當(dāng)前格式化參數(shù)的選擇。選擇菜單Tools→SaveSettings項(xiàng)，即可將當(dāng)前的格式化參數(shù)作為默認(rèn)的格式化參數(shù)設(shè)置。2021/6/27232.修改文本的格式如果要改變已有文本的格式，其操作步驟如下：

(1)用鼠標(biāo)單擊待改變格式的文本窗口，使其成為活動(dòng)的文本編輯器窗口。

(2)選擇菜單Tools→FormatAutoLISPinEditor，或單擊Tools工具欄按鈕，可將窗口內(nèi)所有的代碼格式為當(dāng)前設(shè)置的樣式；如果只修改部分代碼，應(yīng)首先亮顯該部分代碼，然后選擇菜單Tools→FormatAutoLISPinSelection，或單擊Tools工具欄上的按鈕即可。注意，如果出現(xiàn)的括號(hào)不匹配，將出現(xiàn)“發(fā)現(xiàn)了不匹配的開括號(hào)，是否添加閉括號(hào)”提示的詢問(wèn)對(duì)話框。如果選擇是，VisualLISP將在它認(rèn)為需要括號(hào)的地方自動(dòng)添加括號(hào)（不一定合適），如果希望自己手動(dòng)添加括號(hào)，應(yīng)選擇否。2021/6/27243.格式編排快捷菜單

VisualLISP提供了格式設(shè)置的快捷菜單。在活動(dòng)的文本編輯器窗口按Ctrl+E即可彈出圖5-8所示的格式設(shè)置快捷菜單。

在所選代碼的每一行前加Tab鍵,以縮進(jìn)所選代碼 在所選代碼的每一行前刪除一個(gè)Tab鍵，取消所選代碼的縮進(jìn) 將當(dāng)前行縮進(jìn)至和前一行程序代碼縮進(jìn)相同 在所選文本的每一行前面加上隨后輸入的字符串前綴 在所選文本的每一行后面加上隨后輸入的字符串后綴 將代碼段轉(zhuǎn)換為注釋 將注釋還原為代碼 復(fù)制所選文本到新文件 將所選文本的字符都轉(zhuǎn)換為大寫 將所選文本的字符都轉(zhuǎn)換為小寫 將所選文本中的每個(gè)詞的第一個(gè)字符轉(zhuǎn)換為大寫 插入當(dāng)前日期（默認(rèn)格式為MM/DD/YY） 插入當(dāng)前時(shí)間（默認(rèn)格式為HH:MM:SS） 改變?nèi)掌诤蜁r(shí)間的格式 將所選代碼按詞首字母排序 在當(dāng)前編輯器窗口的光標(biāo)位置插入文本文件的內(nèi)容 刪除從光標(biāo)位置到當(dāng)前行末尾的文本 刪除本行從光標(biāo)位置到其后第一個(gè)非空格字符之間的所有空格

圖5-8格式編排快捷菜單2021/6/27254.將選取的文本輸出到指定的文件選取文本后，按

Ctrl+E

鍵，彈出圖5-8所示格式編排快捷菜單。選取SaveBlockAs項(xiàng)，將彈出Filetowriteblockto對(duì)話框。如果輸入的是新的文件名，所選取的文本將復(fù)制到新的文件；如果輸入的是已有文件名，將彈出內(nèi)容為File

alreadyexists.Appendselectiontoexistingfile?的詢問(wèn)對(duì)話框。單擊“是”按鈕，將所選取的代碼追加到指定文件的已有內(nèi)容之后；單擊“否”按鈕，所選取的文本將覆蓋指定文件的內(nèi)容。

2021/6/27265.4檢查語(yǔ)法錯(cuò)誤1.檢查括號(hào)是否匹配括號(hào)使用頻繁是AutoLISP的一個(gè)特點(diǎn)，左括號(hào)與右括號(hào)的數(shù)目不等或不匹配是最常見的語(yǔ)法錯(cuò)誤。圖5-9是有關(guān)括號(hào)操作的下拉菜單。

圖5-9有關(guān)括號(hào)操作的下拉菜單

2021/6/2727組合快捷鍵 功能Ctrl+] 如果光標(biāo)的右面是一右括號(hào)，將光標(biāo)移到該右括號(hào) 后；如果光標(biāo)的右面是一左括號(hào)，將光標(biāo)移到和它匹配 的右括號(hào)之后。Ctrl+[ 如果光標(biāo)的左面是一左括號(hào)，將光標(biāo)移到該左括號(hào) 之前；如果光標(biāo)的左面是一右括號(hào)，將光標(biāo)移到和它匹 配的左括號(hào)之前。Ctrl+Shift+] 如果光標(biāo)的右面是一右括號(hào)，將光標(biāo)移到該右括號(hào)之 后，如果光標(biāo)的右面是一左括號(hào)，將光標(biāo)移到和它匹配 的右括號(hào)之后，并且選取其間的所有文本Ctrl+Shift+[ 如果光標(biāo)的左面是一左括號(hào)，將光標(biāo)移到該左括號(hào)之 前，如果光標(biāo)的左面是一右括號(hào)，將光標(biāo)移到和它匹配 的左括號(hào)之前，并且選取其間的所有文本表5-5是有關(guān)括號(hào)操作的快捷鍵。

表5-5有關(guān)括號(hào)操作的快捷鍵

2021/6/2728例如，有以下表達(dá)式：(setqalf1(cond

((and

(>

alf

90)(<=alf270))(-alf180))((>alf270)(-alf360))((=alf-90)90)(talf)))

假定光標(biāo)在第一行第一個(gè)字符串“alf”的字符“l(fā)f”之間。按Ctrl+]鍵，光標(biāo)移到“90）”之后，按Ctrl+[鍵，光標(biāo)移到“（>”之前。如果按Ctrl+Shift+]”鍵，光標(biāo)移到“90）”之后，并選取了文本“f90)”；按Ctrl+Shift+[鍵，光標(biāo)移到“（>”之前，并選取了文本“（>al”

。2021/6/2729

假定光標(biāo)在符號(hào)“and”的字符“nd”之間。按Ctrl+]鍵，光標(biāo)移到“90）”之后；按Ctrl+[鍵，光標(biāo)移到“（and”之前。按Ctrl+Shift+]鍵，光標(biāo)移到“90）”之后，并選取了文本“d(>alf90)”

；按Ctrl+Shift+[鍵，光標(biāo)移到“and”之前，并選取了文本按“（an”

。假定光標(biāo)在符號(hào)“cond”的字符“on”之間。按Ctrl+]鍵，光標(biāo)移到“180)）”之后，按Ctrl+[鍵，光標(biāo)移到“（cond”之前。按Ctrl+Shift+]鍵，光標(biāo)移到“180))”之后，并選取了文本“nd((and(>alf90)(<=alf270))(-alf180))”