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)位置在一個或多個文本編輯器窗口中查找指定文本將光標(biāo)移到最近編輯的位置在光標(biāo)位置處以跟斗式設(shè)置

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

向左移動一個詞Ctrl+

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

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

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

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

選取該字符開始到該詞開始的所有字符Ctrl+Shift+[ 選取該字符開始到與其匹配的左括號的所有字符Ctrl+Shift+] 選取字符開始到與其匹配的右括號的所有字符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鍵，插入一個換行符，并 將該行縮排至和前一個非空行平齊。Ctrl+Enter 插入一個換行符而不清除當(dāng)前行中隨后的空格鍵和

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

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

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

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

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

●

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

Up：從光標(biāo)當(dāng)前位置處開始向上查找。2021/6/2712（4）Matchwholewordonly切換開關(guān)：如果為開，僅匹配全字。例如，若查找的文本是ent，VisualLISP認(rèn)為它不與entnext匹配；如果為關(guān)時，VisualLISP將認(rèn)為ent與entnext匹配。（5）Matchcase切換開關(guān)：如果為開，VisualLISP區(qū)分字母的大小寫。例如，若查找的文本是car，VisualLISP認(rèn)為它不與Car或CAR匹配；如果為關(guān)時，VisualLISP將認(rèn)為car與CAR或Car匹配。（6）Markinstances切換開關(guān)：如果為開，將在每個找到的文本處加上書簽。利用書簽就可以快速找到這些代碼所在的位置。點(diǎn)取Find按鈕將開始查找。如果查找的范圍是工程或文件目錄，將在新的輸出窗口中顯示所有與查找字符串匹配的表達(dá)式。如果是在單個文件或亮顯的段落中查找，將從光標(biāo)當(dāng)前位置處按指定方向開始查找，若找到與之匹配的對象，就停止查找且亮顯與之匹配的對象，同時光標(biāo)移至該位置。若找不到與之匹配的對象，將彈出要求用戶確認(rèn)是否從頭查找的對話框。按F3鍵或按鈕將從當(dāng)前位置查找下一個相同的查找內(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所示替換對話框。圖5-5替換對話框2021/6/2715替換文本對話框與查找文本對話框類似，有關(guān)說明如下：（1）Findwhat編輯框：輸入要查找的字符串。（2）Replacewith編輯框：輸入用來替換查找內(nèi)容的字符串。（3）Find按鈕：從光標(biāo)所在位置開始，按指定方向查找指定字符串的第一個位置，同時光標(biāo)移至該位置。（4）Replace按鈕：將找到的文本替換成用戶指定的內(nèi)容。如果不想替換此次找到的字符串，可單擊Find按鈕，查找指定字符串的下一個位置。（5）ReplaceAll按鈕，將所有找到的字符串替換成指定的字符串。其余按鈕同查找對話框。2021/6/27166.在程序中設(shè)置書簽書簽的樣式和書簽相關(guān)的按鈕如圖5-6所示。VisualLISP允許在每個文本編輯窗口添加多達(dá)32個書簽,再添加新的書簽時，將刪除最早的書簽。書簽可幫助用戶更方便地瀏覽文本編輯窗口中的文件。每個文本編輯器窗口維護(hù)各自獨(dú)立的書簽集。每個窗口中的所有書簽組成一個書簽環(huán)，光標(biāo)可以在書簽環(huán)中向前或向后移動。

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

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

2021/6/2720該對話框各項(xiàng)含義如下：（1）RightTextMargin文本右邊距允許每行最后一個字符的最右位置，該值的定義域?yàn)?0~200。（2）Narrorstyleindentation窄樣式向右縮進(jìn)的寬度在窄樣式下，第一個參數(shù)在函數(shù)名的下一行，它的起始位置與表達(dá)式起始位置的縮進(jìn)字符數(shù)即為縮進(jìn)寬度，該值的定義域?yàn)?~6。（3）Maximumwide-stylecarlength表達(dá)式第一個參數(shù)的長度如果表達(dá)式第一個參數(shù)超出該長度，其余的參數(shù)移至下一行。該值不能小于窄樣式向右縮進(jìn)的寬度。（4）Single-semicoloncommentindentation單個分號開頭的注釋縮進(jìn)寬度以單個分號開頭的注釋行向右縮進(jìn)的起始位置。2021/6/2721（5）CloseParenStyle右圓括號樣式欄，右圓括號有以下三個位置。①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á)式的閉括號之后插入注釋在表達(dá)式的閉括號之后添加注釋，注釋的內(nèi)容是該表達(dá)式的函數(shù)名。（9）Form-closingcommentprefix閉括號注釋的前綴確定表達(dá)式閉括號之后注釋的前綴，該項(xiàng)可以為空字符串。（10）Moreoption…

單擊此按鈕，對話框在右面擴(kuò)展一列，確定行的最大長長度、分行符、注釋、大小寫的選擇、長表樣式等。（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)單擊待改變格式的文本窗口，使其成為活動的文本編輯器窗口。

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

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

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

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

Ctrl+E

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

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

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

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

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

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

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

((and

(>

alf

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

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