清華大學(xué)的cad二次開(kāi)發(fā)電子教lis(編輯修改稿)
2025-06-20 01:25 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 ove按鈕即可，也可以在選取一個(gè)或多個(gè)文件后，單擊鼠標(biāo)右鍵并從快捷菜單中選擇 Remove項(xiàng)。 圖 77包含 Lisp文件的對(duì)話框 應(yīng)用程序文件的加載順序和它們?cè)?LISP Files to Include對(duì)話框中列出的順序相同。如果在加載時(shí)調(diào)用某函數(shù)，則必須在調(diào)用該函數(shù)前定義它。在這種情況下，應(yīng)該把定義該函數(shù)的文件放在調(diào)用該函數(shù)的文件之前。選取待調(diào)整的文件名，然后點(diǎn)取下列按鈕即可。 ① Top： 移到列表頂端 。 ② Up：移到上一文件之前 。 ③ Down：移到下一文件之后 。 ④ Bottom：移到列表底端 。 也可以先選取待調(diào)整的文件名 ， 然后單擊鼠標(biāo)右鍵 ， 從隨后彈出的快捷菜單上選取相應(yīng)選項(xiàng) 。 如果是工程文件 ， 因其內(nèi)的源文件順序已在工程文件內(nèi)定義 ， 只能通過(guò)修改工程文件以改變?cè)次募捻樞?。 由于將應(yīng)用程序生成向?qū)Т_定為專家模式 ， 因此 ， 單擊 Next按鈕 ， 將彈出圖 78所示的 包含資源文件 對(duì)話框 。 圖 78 包含資源文件對(duì)話框 （ 7）添加資源文件 通過(guò)添加資源文件對(duì)話框?？梢杂锰砑釉次募念愃撇僮魈砑樱ㄒ迫ィ?duì)話框控制 DCL文件、 DVB 文件、文本文件等資源文件。如果添加的是LISP工程文件，在該工程文件中的所有文件都將被編譯并包含到 VLX文件。 圖 79添加 DCL文件對(duì)話框 點(diǎn)取圖 78所示對(duì)話框的下拉列表，選取 DCL files，點(diǎn)取 Add按鈕，將彈出圖 79所示的添加 DCL文件對(duì)話框。選取 ，點(diǎn)取 打開(kāi) 按鈕，該DCL文件將被加入到應(yīng)用程序中，見(jiàn)圖 7－ 10。 圖 710包含資源文件對(duì)話框 單擊 Next按鈕，將彈出圖 711所示的 確定編譯選項(xiàng) 對(duì)話框。 （ 8） 確定編譯選項(xiàng) 僅在專家模式下才出現(xiàn)圖 711所示確定編譯選項(xiàng)如果選擇了 Standard，此為標(biāo)準(zhǔn)模式 ， 將生成最小的輸出文件 ， 它適合于只包括單個(gè)文件的程序；如果選擇了 Optimize and Link， 此為優(yōu)化和鏈接模式 ， 可使生成的的編譯文件效率更高 ， 它適合于較大和較復(fù)雜的程序 。 圖 711 確定編譯選項(xiàng)對(duì)話框 本例選擇兩種模式均可，確定編譯選項(xiàng)后，單擊 Next按鈕將彈出圖 712所示的 查看選項(xiàng) /編譯 應(yīng)用程序 對(duì)話框。 （ 9） 創(chuàng)建應(yīng)用程序 這是應(yīng)用程序生成向?qū)У淖詈笠徊?， 單擊 Back按鈕 ， 返回到上一步 ， 查看上一步的選擇；單擊 Finish按鈕 ， 創(chuàng)建應(yīng)用程序結(jié)束 。 圖 712查看選項(xiàng) /編譯應(yīng)用程序?qū)υ捒? 運(yùn)行 應(yīng)用程序生成 向?qū)ЫY(jié)束 。 在 d:\user2路徑下 ， 生成了、 。 其中 包括 Visual LISP創(chuàng)建應(yīng)用程序所需的程序生成文件 ,是打包的可執(zhí)行文件 ， 文件 。 加載 ， 在 Command： 提示下鍵入GEAR即可調(diào)用該應(yīng)用程序繪制齒輪 。 如果只有 AutoLISP文件 （ 源文件或目標(biāo)文件 ） ， 在創(chuàng)建應(yīng)用程序時(shí) ， 第 (2)步應(yīng)選擇 Simple（ 簡(jiǎn)單 ） 作為向?qū)У哪Ｊ?， 這樣可以省略第 （ 4） 、 （ 7） 和 （ 8） 步 。 利用工程管理器管理和維護(hù) LISP文件 AutoLISP應(yīng)用程序通常都是由多個(gè)獨(dú)立的 LISP文件組成的 。 隨著應(yīng)用程序中文件數(shù)量的增加 ， 對(duì)這些文件的管理和維護(hù)就變得很困難 。 在這種情況下 ， 應(yīng)該使用 Visual LISP提供的最有效的工具 —— 工程管理器 。 工程管理器的功能 工程管理器通過(guò)命名的工程對(duì)工程所包含的 LISP文件進(jìn)行管理和維護(hù) 。一個(gè)工程在本質(zhì)上就是一個(gè) LISP源文件表和一套如何編譯這些文件的規(guī)則 。 工程管理器具有以下的功能 。 ● 檢查應(yīng)用程序中哪些 LISP源文件尚未被編譯或者在上一次編譯后又被修改過(guò) ， 并自動(dòng)編譯這樣的一些文件 。 ● 通過(guò)一個(gè)命名的工程的列表 ， 可以很簡(jiǎn)單地查找并打開(kāi)相關(guān)的文件 。 ● 可以在一個(gè)工程的所有的文件中查找指定的源程序代碼 。 ● 可以通過(guò)直接鏈接多個(gè)源文件中的相同描述來(lái)優(yōu)化編譯結(jié)果 。 下面通過(guò)一個(gè)實(shí)例介紹利用工程管理器管理和維護(hù)多個(gè) LISP文件的有關(guān)操作 。 【 例 71】 定義以遞規(guī)方式繪制旋轉(zhuǎn)正六邊形的命令。正六邊形的旋轉(zhuǎn)中心 pc、最大邊長(zhǎng) lmax、最小邊長(zhǎng) lmin和旋轉(zhuǎn)角 alf是交互輸入的參數(shù)。正六邊形在旋轉(zhuǎn)過(guò)程中，除了最外層的正六邊形之外，每一個(gè)正六邊形的頂點(diǎn)都在前一個(gè)正六邊形的邊上，當(dāng)正六邊形的邊長(zhǎng)縮短到近似最小邊長(zhǎng) lmin時(shí)，繪制結(jié)束，見(jiàn)圖 713（ a）。從圖 713（ b）可以看出每個(gè)正六邊形與旋轉(zhuǎn)后的下一個(gè)正六邊形的邊長(zhǎng)之間具有以下的關(guān)系： )60s i n(2)120s i n(1 Lal fL ??（ a） （ b） 圖 713以遞歸方式繪的制旋轉(zhuǎn)正六邊形 為了演示多文件的操作，將該程序分別存放于兩個(gè)文件。文件 。主函數(shù)定義了名字為rhexagon的 AutoCAD命令。文件 hexagon的函數(shù)。函數(shù) hexagon被主函數(shù)調(diào)用。它們都存放在 d盤的 user1目錄下。 文件 ： (defun c:rhexagon( / pc lmax lmin alf ) (setvar cmdecho 0) 。關(guān)閉普通命令提示信息 (setvar blipmode 0) 。關(guān)閉光標(biāo)痕跡 (setvar osmode 0) 。關(guān)閉對(duì)象捕捉狀態(tài) (setq pc(getpoint \n輸入正六邊形的旋轉(zhuǎn)中心 :)) (setq lmax(getdist
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1