先選擇墊圈類型，再選擇墊圈的主參數繪圖用戶對話框製作幻燈片文件為了實現用戶對話框中的四種類型的墊圈的圖像顯示，首先在AutoCAD軟體的繪圖區域中分別繪製這四種類型的墊圈，然後在命令行中輸入"mslide"命令，分別創建這四種墊圈的幻燈片文件，文件分別命名為ypdq.sld、thdq.sld、fdq.sld、fxdq.sld.筆者認為，製作幻燈片文件前盡量將每種類型的墊圈圖形居中且填滿繪圖區域，這樣圖像按鈕顯示較清晰得體。
編寫LISP程序在DCL程序設計的用戶對話框預覽無誤、幻燈片文件製作結束后，開始編寫LISP程序。本文開發的LISP程序由一個主程序和五個子程序組成，主程序文件命名為dq.lsp.主程序用於驅動用戶對話框和調用子程序；五個子程序中的一個用於驅動用戶對話框中四個圖像按鈕區域顯示四個幻燈片文件，其餘四個子程序用於繪製四種類型的墊圈。整個主程序的流程圖如所示，主程序及相關註釋如下：（defundq（/keyimage_nameindex）；定義繪製墊圈的新命令名是dq（setqindex（load_dialog"dq.dcl"））；載入對話框文件（if（not（new_dialog"dq"index））（exit））（image"dq1""ypdq"）；調用幻燈片顯示子程序（image"dq2""thdq"）（image"dq3""fdq"）（image"dq4""fxdq"）（action_tile"dq1""（setqdq1）"）；定義用戶響應的動作（action_tile"dq2""（setqdq2）"）（action_tile"dq3""（setqdq3）"）（action_tile"dq4""（setqdq4）"）（action_tile"accept""（done_dialog）"）（start_dialog）（unload_dialogindex）（princ）（cond（（=dq1）（draw_dq1））；調用墊圈的繪圖子程序（（=dq2）（draw_dq2））（（=dq3）（draw_dq3））（（=dq4）（draw_dq4））））四個繪圖子程序的流程圖如所示，開發墊圈標準件庫，關鍵要根據機械設計手冊來構造墊圈標準件的參數表，程序的其餘部分比較簡單。本文以圓平墊圈為例，利用list函數構造參數關聯表b，繪圖子程序中構造參數表的程序段主程序流程圖。
程序的運行將上述的兩個程序文件dq.dcl、dq.lsp和四個幻燈片文件ypdq.sld、thdq.sld、fdq.sld、fxdq.sld全部保存在AutoCAD軟體的安裝路徑的support文件夾下，載入dq.lsp程序成功后，在AutoCAD軟體的命令行中輸入新命令（dq），驅動如所示的用戶對話框，用戶根據對話框提示，選擇墊圈類型（圓平墊圈、彈簧墊圈、方墊圈或方斜墊圈），在命令行的提示下，輸入該類型墊圈的主參數值，AutoCAD軟體就可在繪圖屏幕中快速繪製出墊圈圖形及中心線。
結束語組合使用DCL和AutoLISP語言可以開發出各種標準機械零件的零件庫。繪圖時只要輸入開發程序中定義的相應的標準件的新命令名，然後選擇該標準件的類型，輸入主參數值，就可以快速繪製各種標準件，從而提高繪圖效率。
