【正文】 tq var2 (getint “\nPlease input an INTEGER number: “))(setq var3 (getstring “\nPlease input a piece of text: “))嘗試將這些例子粘貼到 AutoCAD 的命令行來運(yùn)行這些報(bào)表，你會(huì)立即看到發(fā)生什么。值得注意的趣事是當(dāng)使用 GETINT 聲明時(shí)，你會(huì)發(fā)現(xiàn)不能輸入任何一個(gè)實(shí)數(shù)或文本文件。你還會(huì)注意到會(huì)產(chǎn)生一個(gè)提示命令，讓用戶知道該輸入什么樣的信息。 注意： \ n 字符是一個(gè)簡單的換行字符，提示用戶將新的命令放在 AutoCAD 命令行的下一行。 這些聲明的結(jié)果將存儲(chǔ)在變量 var1，var2 或 VAR3 中，可在其他程序使用。 下面這個(gè)程序，你可以交互運(yùn)行，讓用戶試著使用存儲(chǔ)變量： (setq dimtxt_height (getreal “\nDimension text height: “))(setvar “dimtxt” dimtxt_height)雖然這是一個(gè)很簡單的例子，但卻完美的表達(dá)了含義。 定義了一個(gè)變量并賦值，然后用于在其他程序中代替復(fù)雜的數(shù)。（如果 對 SETVAR 聲明有任何問題的話。請參閱之前的例子。） 獲取和調(diào)用點(diǎn) 使用下列方式從 AutoCAD 用戶獲取點(diǎn)事很簡單的： (setq point1 (getreal “\nPlease select a POINT location: “))調(diào)用點(diǎn)并不容易，因?yàn)辄c(diǎn)實(shí)際是由三個(gè)必須拆開的數(shù)確定的。 點(diǎn)是由 X，Y 和Z 坐標(biāo)組合起來，可以用函數(shù) CAR, CADR and CADDR 分開 獲取： (setq point1_x (car point1))(setq point1_y (cadr point1)) (setq point1_z (caddr point1))請注意，點(diǎn)的中間存儲(chǔ)變量稱為 POINT1，而變量 POINT1_X，POINT1_Y 和POINT1_Z 分別代表點(diǎn)的 X，Y，Z 的實(shí)際坐標(biāo)值。 這種 CAR, CADR, CADDR 的方法與記憶中的或者過去使用的方法一樣，但你會(huì)發(fā)現(xiàn)，你會(huì)比想象中更習(xí)慣于使用這些函數(shù)。 使用集 AutoCAD 程序的另一部分內(nèi)容是 AutoCAD 趨向于操作對象集（AutoCAD 中稱選擇集）。AutoCAD 用戶提供選擇集有 MOVE, COPY, ROTATE, ERASE 等。這個(gè)功能的最基本的規(guī)則是如果需要選擇對象時(shí)就使用選擇集。 為了更好的操作選擇集，需要使用 SSGET 命令。該命令的最基本的形式是如下： (setq set1 (ssget))也可以是：(setq set2 (ssget “\nPlease select objects for your set: “))唯一的區(qū)別是在第二個(gè)例子有用戶提示。 該結(jié)果集將存儲(chǔ)在一個(gè)變量（如上面的例子中的 SET1 或 SET2），你可以使用COMMAND 的操作指令。 下面這個(gè)簡單的程序就可以說明了這一點(diǎn)： (setq erase_set (ssget “\nPlease select objects to erase: “))(mand “.erase” erase_set “”)這個(gè)例子說明了如何只使用兩行代碼說明怎么樣獲取，儲(chǔ)存和加工一個(gè)選擇集！ 注：最后的 “”只不過是一個(gè)額外的回車鍵，通常用于手動(dòng)完成 AutoCAD 中的擦除命令。 其他集 比方說，你要編寫一個(gè)程序，它會(huì)自動(dòng)刪除一個(gè)繪圖中的所有文本內(nèi)容。 你需要使用函數(shù) SSGET，而不是函數(shù) input，用來過濾繪圖中的文本格式。下面的程序編碼看起不是很好，但你必須要相信我，在標(biāo)準(zhǔn) Autolisp 語言中沒有更好的方法了： （(setq text_set (ssget “x” (list (cons 0 “TEXT”))))? 這里的參數(shù)“X”表示過濾 ? 參數(shù)“0”是實(shí)體類型的標(biāo)志 ? 參數(shù)“TEXT”是你藥選擇的實(shí)體類型 另一個(gè)例子是如果你只選擇一個(gè)稱為 ANNOTATIONS 的文本，程序就該像下面這樣： (setq text_set (ssget “x” (list (cons 0 “TEXT”) (cons 8 “ANNOTATIONS”))))我承認(rèn)，這個(gè)語法不是很好用，但是你會(huì)慢慢習(xí)慣的。 現(xiàn)在只需簡單的將擦除 ERASE 命令與上述陳述之一相結(jié)合，就會(huì)生出一個(gè)程序可以自動(dòng)刪除繪圖中實(shí)體類型了： (setq text_set (ssget “x” (list (cons 0 “TEXT”))))(mand “.erase” text_set “”)如果要想真正徹底的同時(shí)刪除對象 MTEXT 和 TEXT 只需要添加另一函數(shù) SSGET，修改函數(shù) ERASE 如下： (setq text_set (ssget “x” (list (cons 0 “TEXT”))))(setq mtext_set (ssget “x” (list (cons 0 “MTEXT”))))(mand “.erase” text_set mtext_set “”)正如上面看到的只用幾行代碼就可以展現(xiàn)很大的功效。 如要篩選更復(fù)雜的對象時(shí)請咨詢 AutoCAD 開發(fā)的幫助文件和 AutoLISP 中的函數(shù) SSGET,你會(huì)發(fā)現(xiàn)更多的例子。 山西大同大學(xué) 2022 屆本科畢業(yè)論文(設(shè)計(jì))中期檢查表學(xué)院：煤炭工程學(xué)院 系別：采礦工程系 專業(yè)(專業(yè)方向)：測繪工程論文(設(shè)計(jì))題目：應(yīng)用 AUTO LISP 在南方 CASS 中批量處理圖形數(shù)據(jù)學(xué)生姓名 付智華 學(xué)號 070809011103指導(dǎo)教師 徐廣翔 職稱 副教授論文(設(shè)計(jì))的進(jìn)展情況：(課題工作量是否適中、已完成任務(wù)、未完成任務(wù)、完成課題存在問題和解決辦法)檢查日期 存在問題 改進(jìn)建議 指導(dǎo)教師與學(xué)生簽字指導(dǎo)教師意見： 指導(dǎo)教師簽字： 年 月 日系主任意見：系主任簽字：　　　　年　　月　　日學(xué)院意見：院長簽字：　　　　　年　　月　　日山西大同大學(xué) 2022 屆本科畢業(yè)論文(設(shè)計(jì))指導(dǎo)教師評分表學(xué)院：煤炭工程學(xué)院 系別：采礦工程系 專業(yè)(專業(yè)方向)：測繪工程論文(設(shè)計(jì))題目：應(yīng)用 AUTO LISP 在南方 CASS 中批量處理圖形數(shù)據(jù)學(xué)生姓名 付智華 學(xué) 號 070809011103指導(dǎo)教師 徐廣翔 職 稱 副教授指導(dǎo)教師評語：指導(dǎo)教師簽字： 年 月 日評 價(jià) 項(xiàng) 目 A B C D E01 完成過程中，態(tài)度積極、認(rèn)真程度。工作過程 02 完成過程中，自覺、獨(dú)立、按時(shí)、按量完成情況。03 選題與專業(yè)培養(yǎng)目標(biāo)相符情況。04 選題體現(xiàn)專業(yè)特點(diǎn)情況。05 選題體現(xiàn)對三基的要求情況。選題質(zhì)量06 選題的科學(xué)性、難易度情況。07 綜合運(yùn)用知識能力。08 寫作規(guī)范情況。論文質(zhì)量09 整體思路或應(yīng)用價(jià)值、結(jié)構(gòu)、研究方案情況。指導(dǎo)教師評定成績 優(yōu) 良 中 及格 不及格畢業(yè)論文(設(shè)計(jì))分工情況：(多人合作時(shí)填寫，包括本人研究的內(nèi)容及其在課題中所占份量)備注：山西大同大學(xué) 2022 屆本科畢業(yè)論文(設(shè)計(jì))評閱人評分表學(xué)院：煤炭工程學(xué)院 系別：采礦工程系 專業(yè)(專業(yè)方向)：測繪工程論文(設(shè)計(jì))題目：應(yīng)用 AUTO LISP 在南方 CASS 中批量處理圖形數(shù)據(jù)學(xué)生姓名 付智華 學(xué) 號 070809011103指導(dǎo)教師 徐廣翔 職 稱 副教授評 閱 人 職 稱評審項(xiàng)目 指 標(biāo) A B C D E選題符合專業(yè)培養(yǎng)目標(biāo)，體現(xiàn)綜合訓(xùn)練基本要求選題理論意義或?qū)嶋H價(jià)值文獻(xiàn)資料的運(yùn)用能力專業(yè)知識的綜合能力研究方案的設(shè)計(jì)能力能力研究方法和手段的運(yùn)用能力寫作水平寫作規(guī)范論文水平論文的理論或?qū)嶋H價(jià)值評閱人評定成績 優(yōu) 良 中 及格 不及格意見及建議：評閱人簽名： 年 月 日山西大同大學(xué) 2022 屆本科畢業(yè)論文(設(shè)計(jì)) 答辯評分表學(xué)院：煤炭工程學(xué)院 系別：采礦工程系 專業(yè)(專業(yè)方向)：測繪工程論文(設(shè)計(jì))題目：應(yīng)用 AUTO LISP 在南方 CASS 中批量處理圖形數(shù)據(jù)學(xué)生姓名 付智華 學(xué) 號 070809011103 指導(dǎo)教師評分指導(dǎo)教師 徐廣翔 職 稱 副教授 評閱人評分姓 名 性 別 職 稱 學(xué) 位 答辯小組 職務(wù)答辯委員會(huì)/答辯小組名單答辯委員會(huì)(答辯小組)評語：答辯委員會(huì)主任(或組長)簽字：答辯時(shí)間： 年 月 日評審項(xiàng)目 指標(biāo) A B C D E選題符合專業(yè)培養(yǎng)目標(biāo)，體現(xiàn)綜合訓(xùn)練基本要求理論意義或?qū)嶋H價(jià)值查閱文獻(xiàn)資料的能力綜合運(yùn)用知識能力研究方案的設(shè)計(jì)能力研究方法和手段的運(yùn)用能力寫作水平寫作規(guī)范論文評價(jià)論文的理論或?qū)嶋H價(jià)值論文陳述答辯表現(xiàn)論文答辯答辯委員會(huì)綜合評定成績 優(yōu) 良 中 及格 不及格畢業(yè)論文(設(shè)計(jì))最終得分： 應(yīng)用 Auto lisp 在南方 CASS 中批量處理圖形數(shù)據(jù)摘要： Auto LISP 語言是 Auto CAD 中最大的一種編程工具，基于 Auto LISP 的編程工具，數(shù)量大的讓人驚訝。將一些小程序嵌套于 AUTO LISP 內(nèi)部, 使 LISP 語言和 AUTO CAD 有機(jī)結(jié)合，能有效地提高 AutoCAD 的繪圖功能。通過對 Auto LISP 語言的分析與研究，探討了基于 Auto LISP 的 AutoCAD 參數(shù)化處理數(shù)據(jù)的程序設(shè)計(jì)的基本步驟。本文設(shè)計(jì)了如何用 Auto LISP,語言批量處理圖形數(shù)據(jù)，應(yīng)用 DCL 語言創(chuàng)建人機(jī)交流的對話框,并且詳細(xì)闡述了其實(shí)現(xiàn)過程。實(shí)踐表明,Auto LISP 語言功能強(qiáng)大,易學(xué)易用,AutoCAD 二次開發(fā)的重要工具。關(guān)鍵詞：Auto lisp 語言。 程序設(shè)計(jì)。 二次開發(fā)目 錄第一章 緒 論 ...................................................................................................................1第二章 AUTOCAD 的二次開發(fā) ..................................................................................2 Auto CAD 二次開發(fā)的定義 ..............................................................................2 Auto CAD 二次開發(fā)的目的及必要性 ..............................................................2 Auto CAD 二次開發(fā)的工具 ..............................................................................2 Visual LISP(VLISP)工具 ........................