2869 基于DCL語言的交互式標(biāo)準(zhǔn)件輔助設(shè)計(jì) — 銷

2869 基于DCL語言的交互式標(biāo)準(zhǔn)件輔助設(shè)計(jì) — 銷,基于,dcl,語言,交互式,標(biāo)準(zhǔn)件,輔助設(shè)計(jì) 西安工業(yè)大學(xué)北方信息工程學(xué)院畢業(yè)設(shè)計(jì)（論文）中期報(bào)告題目：基于 DCL 語言的交互式標(biāo)準(zhǔn)件輔助設(shè)計(jì)—銷 系 別 機(jī)電信息系 專 業(yè) 機(jī)械設(shè)計(jì)制造及其自動(dòng)化 班 級(jí) B070203 姓 名 李超 學(xué) 號(hào) B07020310 導(dǎo) 師 姚慧 2011 年 3 月 11 日21. 設(shè)計(jì)（論文）進(jìn)展?fàn)顩r1.1 前期回顧(1) 前期的工作主要有學(xué)習(xí) Visual LISP 語言及了解其繪圖原理、查閱資料、繪制銷類零件圖（幻燈片）和編寫繪圖程序。(2) 通過查閱資料，系統(tǒng)學(xué)習(xí)了 Visual LISP 語言，從其編寫程序到實(shí)現(xiàn)對話框，最后完成圖形。對其有了一定的了解，后來通過討論與交流，初步掌握其生成圖形的流程：首先編好 Lisp 程序以及作出其相應(yīng)的 DCL 對話框，程序調(diào)試后利用驅(qū)動(dòng)程序加載到 AutoCAD 應(yīng)用程序中，運(yùn)行程序，圖形就自動(dòng)生成。(3) 完成了英文資料的翻譯，部分內(nèi)容還需要進(jìn)一步完善。1.2 論文進(jìn)展初步編寫了對話框程序，做了幻燈片：(1) 已完成對話框程序，包括(主對話框、子對話框)：(2) 已完成的幻燈片四種銷（圓柱銷、圓錐銷、銷軸、帶孔銷）main_dig:dialog{label="確定銷種類";:row{:boxed_column{label="選擇銷種類";:row{:image_button{//圖像按鈕 0color=-2;width=15;aspect_ratio=0.66;key="screw_0";}7:image_button{//圖像按鈕 1color=-2;width=15;aspect_ratio=0.66;key="screw_1";}}:row{:image_button{//圖像按鈕 2color=-2;width=15;aspect_ratio=0.66;key="screw_2";}:image_button{//圖像按鈕 3color=-2;width=15;aspect_ratio=0.66;key="screw_3";}}}:list_box{label="螺釘種類";list="GB/T 119.1-2000\nGB/T 117-2000\nGB/T 882-1986\nGB/T 70.1-2000";key="s_type";width=15;fixed_width=true;}}:row{//繼續(xù)和退出按鈕spacer_1;:button{label="繼續(xù)";key="accept";is_default=true;fixed_width=true;}:button{label="退出";key="cancel";fixed_width=true;}spacer_1;}5}children_dlg:dialog{//子對話框label="確定銷參數(shù)";:row{//第一行： 1 個(gè)圖像和兩個(gè)列表:image{color=-2;width=22;aspect_ratio=0.5;key="id_img";}//圖像:list_box{label="銷寬&d";key="s_d";edit_width=5;height=8;list="M1.6\nM2\nM2.5\nM3\nM4\nM5\nM6\nM8\nM10\nM12\nM14\nM16\nM20";fixed_width=true;}//寬列表:list_box{label="銷長度&l";key="s_l";edit_width=5;height=8;list="2\n2.5\n3\n4\n5\n6\n8\n10\n12\n(14)\n16\n20\n25\n30\n35\n40\n45\n50\n";fixed_width=true;}//長度列表}//第一行結(jié)束:row{//第二行，有兩列:column{:boxed_column{label="定位點(diǎn)";5:edit_box{label="定位點(diǎn)&x 坐標(biāo)";key="p_x";edit_box=8;value="150";}:edit_box{label="定位點(diǎn)&y 坐標(biāo)";key="p_y";edit_box=8;value="100";}:button{label="光標(biāo)拾取<";key="p_p";}}:boxed_column{label="旋轉(zhuǎn)角";:edit_box{label="&Angel";key="alf";edit_box=8;value="0";}:button{label="光標(biāo)拾取<";key="p_a";}}ok_cancel;}:column{//第二列:boxed_column{:toggle{label="自定義尺寸";key="user_dim";value="0";}:edit_box{label="自定義大徑&d";key="user_d";edit_box=8;value="8";}:edit_box{label="自定義長度&l";key="user_l";edit_box=8;value="30";}}:boxed_column{:toggle{label="繪制中心線";key="cenline";value=1;}:row{//加框列:text{value="中心線顏色：";}:image_button{color=3;height=2;key="ccolor";}}:row{//加框列:text{value="細(xì)實(shí)線顏色：";}:image_button{color=4;height=2;key="tcolor";}5}:row{//加框列:text{value="粗實(shí)線顏色：";}:image_button{color=5;height=2;key="scolor";}}}}}}2. 存在問題及解決措施后期調(diào)試程序，作出其對應(yīng)的對話框。但對話框的樣式多種，自己設(shè)計(jì)的符合自己圖形。既能表現(xiàn)圖形，又能為設(shè)計(jì)者節(jié)省畫出標(biāo)準(zhǔn)件的時(shí)間。有自定義尺寸的，方便用戶使用繪制合適的非標(biāo)件。對做出的的對話框進(jìn)行優(yōu)化。使其更加功能強(qiáng)大，調(diào)用方便。5注：1. 正文：宋體小四號(hào)字，行距 22 磅；標(biāo)題：加粗 宋體四號(hào)字2. 中期報(bào)告由各系集中歸檔保存，不裝訂入冊。3．后期工作安排剩下這兩個(gè)月，對設(shè)計(jì)的程序完善調(diào)試，優(yōu)化設(shè)計(jì)項(xiàng)目。完善論文。進(jìn)行畢業(yè)答辯申請。參加答辯。指導(dǎo)教師簽字：年 月 日XXXX 大學(xué)本科畢業(yè)設(shè)計(jì)(論文)題目：基于 DCL 語言的交互式標(biāo)準(zhǔn)件輔助設(shè)計(jì)—銷系 別： 機(jī)電信息系 專 業(yè)： 機(jī)械設(shè)計(jì)制造及其自動(dòng)化 班 級(jí)： 1230203 姓 名： XXXX 學(xué) 號(hào)： 123020310 指 導(dǎo) 教 師： 2011 年 5 月畢業(yè)設(shè)計(jì)（論文）任務(wù)書系別 機(jī)電信息系 專業(yè) 機(jī)械設(shè)計(jì)制造及其自動(dòng)化 班 1230203 姓名 XXXX 學(xué)號(hào) 1230203101.畢業(yè)設(shè)計(jì)（論文）題目： 基于 DCL 語言的交互式標(biāo)準(zhǔn)件輔助設(shè)計(jì) — 銷 2.題目背景和意義：銷主要用作裝配定位，也可用作連接零件，還可作為安全裝置中的過載剪斷元件。該類零件也是常用的標(biāo)準(zhǔn)件，其分類復(fù)雜，數(shù)量龐大，并廣泛用于機(jī)械行業(yè)及其制造業(yè)。因而在繪制工程圖時(shí)，經(jīng)常需要用到這類標(biāo)準(zhǔn)件，所以往往會(huì)導(dǎo)致工作繁瑣、效率低且出錯(cuò)率高，針對這一情況，本題目旨在結(jié)合現(xiàn)代計(jì)算機(jī)技術(shù)和 Auto CAD 的二次開發(fā)技術(shù)實(shí)現(xiàn)銷類標(biāo)準(zhǔn)件的輔助設(shè)計(jì)，以幫助設(shè)計(jì)人員更好更快的完成設(shè)計(jì)任務(wù)。 3.設(shè)計(jì)(論文) 的主要內(nèi)容（理工科含技術(shù)指標(biāo)）： （1）以《機(jī)械設(shè)計(jì)手冊》為依據(jù)，以圓柱銷和圓錐銷兩大類為主要研究內(nèi)容； （2）為了確保本題目所研究的輔助設(shè)計(jì)系統(tǒng)的調(diào)理性，要對圓柱銷和圓錐銷進(jìn)行更細(xì)化和更準(zhǔn)確的分類； （3）根據(jù)細(xì)化分類情況，分別進(jìn)行參數(shù)化繪圖程序的編寫和調(diào)試； （4）為了實(shí)現(xiàn)以上兩部分的設(shè)計(jì)內(nèi)容，在程序?qū)崿F(xiàn)時(shí)要求采用 DCL 語言完成用戶交互界面。 4.設(shè)計(jì)的基本要求及進(jìn)度安排（含起始時(shí)間、設(shè)計(jì)地點(diǎn)）： （1）1—3 周：調(diào)研并收集資料；（2）3—4 周：熟悉資料，完成銷類標(biāo)準(zhǔn)件的分類； （3）5—7 周：完成用戶交互式界面程序的編寫和外文資料翻譯；（4）8—13 周：完成參數(shù)化繪圖程序；（5）14—16 周：調(diào)試和完善程序并完成機(jī)械部分的設(shè)計(jì)圖紙；（6）16—18 周：完成論文撰寫，準(zhǔn)備答辯。 5.畢業(yè)設(shè)計(jì)（論文）的工作量要求 畢業(yè)設(shè)計(jì)論文一篇，不少于 10000 字； ① 實(shí)驗(yàn)（時(shí)數(shù)） *或?qū)嵙?xí)（天數(shù)）： 2 周 ② 圖紙（幅面和張數(shù)） *： 機(jī)械結(jié)構(gòu)設(shè)計(jì)部分的機(jī)械裝配圖，A0 圖紙（折合）1 張； ③ 其他要求： 外文翻譯不少于 2000 字，參考文獻(xiàn)不少于 15 篇。 指導(dǎo)教師簽名： 年 月 日學(xué)生簽名： 年 月 日系（教研室）主任審批： 年 月 日說明：1 本表一式二份，一份由學(xué)生裝訂入冊，一份教師自留。2 帶*項(xiàng)可根據(jù)學(xué)科特點(diǎn)選填。I基于 DCL 語言的交互式標(biāo)準(zhǔn)件輔助設(shè)計(jì)--銷摘 要本 文 是 基 于 DCL（Dialog Control Language）交 互 式 標(biāo) 準(zhǔn) 件 輔 助 設(shè) 計(jì) ,是在結(jié)合現(xiàn)代計(jì)算機(jī)技術(shù)和 Auto CAD 的二次開發(fā)技術(shù)實(shí)現(xiàn)銷 類 標(biāo)準(zhǔn)件的參數(shù)化設(shè)計(jì)， 采 用 了 模 塊 化 設(shè) 計(jì) 思 想 ， 利 用 Visual LISP 語 言 對 機(jī) 械 零 件 進(jìn) 行 參 數(shù)化 設(shè) 計(jì) ， 在 Auto CAD 平 臺(tái) 上 對 標(biāo) 準(zhǔn) 件 建 立 數(shù) 據(jù) 庫 并 進(jìn) 行 參 數(shù) 化 繪 圖 ， 使 用了 知 識(shí) 工 程 參 數(shù) 化 設(shè) 計(jì) 方 法 對 機(jī) 械 零 件 進(jìn) 行 了 參 數(shù) 化 設(shè) 計(jì) 。關(guān) 鍵 詞 : Auto CAD 二 次 開 發(fā) ； DCL ； Visual LISP； 銷 ； 參 數(shù) 化 設(shè) 計(jì)IIInteractive Language Based on Standard Parts DCL CAD - saleAbstractThis paper is based on the DCL (Dialog Control Language) interactive standard parts aided design, is combined with modern computer technology and secondary development of AutoCAD technology marketing class parametric design of standard parts, modular design, the use of Auto LISP Parametric design of mechanical parts in the AutoCAD platform, a database of standard parts and drawing the parameters, using the knowledge engineering method of parametric design parameters on the mechanical parts design.Key Words：The Second development of AutoCAD；Dialog Control Language；Visual List Processing Language；pin；Parametric design. IIIIII目 錄1 緒 論 ............................................................11.1 背景 ..........................................................11.2 參數(shù)化的概述 ..................................................11.3 參數(shù)化 CAD 概述 ...............................................11.4 國內(nèi)外研究的狀況 ..............................................21.5 Auto CAD 二 次 開 發(fā) 概 述 .......................................21.6 本 課 題 研 究 的 主 要 內(nèi) 容 ........................................22 軟 件 開 發(fā) 語 言 ——Visual LISP 概 述 ...........................42.1 Visual LISP 概 述 ..............................................42.1.1 Visual LISP 語 言 的 特 點(diǎn) ....................................42.1.2 Auto LISP 語 言 及 其 特 點(diǎn) ...................................42.2 Visual LISP 程 序 設(shè) 計(jì) 語 言 概 述 ..................................52.3 對 話 框 設(shè) 計(jì) 語 言 ——DCL .......................................52.4 數(shù) 據(jù) 文 件 .....................................................63 銷 的 參 數(shù) 化 程 序 設(shè) 計(jì) ...........................................73.1 銷 的 模 型 分 析 .................................................73.2 主程序的編寫 ..................................................93.2.1 繪圖環(huán)境的設(shè)置 ...........................................103.2.2 繪圖坐標(biāo)點(diǎn)的設(shè)置和計(jì)算 ...................................103.2.4 尺 寸 標(biāo) 注 ................................................143.3 對 話 框 及 其 驅(qū) 動(dòng) 程 序 的 設(shè) 計(jì) ...................................16IV3.3.1 幻 燈 片 的 制 作 ............................................163.3.2 制 作 對 話 框 （ *.DCL） ...................................163.3.4 對 話 框 的 驅(qū) 動(dòng) 程 序 ........................................183.4 生 成 應(yīng) 用 程 序 ....................................................214 軸 向 柱 塞 泵 的 計(jì) 算 與 分 析 ......................................234.1 軸向柱塞泵的概述 .............................................234.1.1 軸向柱塞泵的簡介 ..........................................234.1.2 直軸式軸向柱塞泵的工作原理 ...............................234.2 直軸式軸向柱塞泵主要零部件設(shè)計(jì) ...............................244.2.1 柱塞設(shè)計(jì) .................................................244.2.2 滑靴設(shè)計(jì) .................................................284.2.3 配油盤設(shè)計(jì) ...............................................304.2.4 缸體設(shè)計(jì) .................................................324.2.5 柱塞回程結(jié)構(gòu)設(shè)計(jì) .........................................334.2.6 變量機(jī)構(gòu)設(shè)計(jì) .............................................355 結(jié) 論 ...........................................................39致 謝 ............................................................40參 考 文 獻(xiàn) .........................................................41畢 業(yè) 設(shè) 計(jì) （ 論 文 ） 知 識(shí) 產(chǎn) 權(quán) 聲 明 ................................42畢 業(yè) 設(shè) 計(jì) （ 論 文 ） 獨(dú) 創(chuàng) 性 聲 明 ...................................43V主要符號(hào)表π 圓周率tan y 正切角度?0壓力系數(shù)?σ 強(qiáng)度△δ 變形量VI1 緒論11 緒論1.1 背景Auto CAD所提供給的只是一般的通用CAD功能，如造型、繪圖、編輯、注釋等，要想完成一個(gè)設(shè)計(jì)項(xiàng)目，尤其當(dāng)項(xiàng)目中不同規(guī)格的同一零件（通常指標(biāo)準(zhǔn)件）數(shù)量龐大，分類復(fù)雜，單純的CAD就顯得捉襟見肘了。在此背景下參數(shù)化這一概念就應(yīng)運(yùn)而生了。而且二次開發(fā)不僅是一種創(chuàng)新，也方便了設(shè)計(jì)者對于《機(jī)械設(shè)計(jì)手冊》里的標(biāo)準(zhǔn)件的繪圖。但現(xiàn)在只能畫出簡單的二維和三維圖，對于曲線、曲面還待需開發(fā)，所以參數(shù)化設(shè)計(jì)是以后發(fā)展的方向，有待我們進(jìn)一步研究。1.2 參數(shù)化的概述參數(shù)化設(shè)計(jì)是通過改動(dòng)圖形某一部分或某幾部分的尺寸，自動(dòng)完成對圖形相關(guān)部分的改動(dòng)，從而實(shí)現(xiàn)尺寸對圖形的驅(qū)動(dòng)，其中進(jìn)行驅(qū)動(dòng)所需的幾何信息和拓?fù)湫畔⒂捎?jì)算機(jī)自動(dòng)提取，參數(shù)設(shè)計(jì)極大地改善了圖的修改手段，提高了設(shè)計(jì)的柔性，在概念設(shè)計(jì)、動(dòng)態(tài)設(shè)計(jì)、實(shí)體設(shè)計(jì)、裝配、公差分析與綜合、機(jī)構(gòu)仿真、優(yōu)化設(shè)計(jì)等領(lǐng)域越來越大的作用，體現(xiàn)出很高的應(yīng)用價(jià)值。參數(shù)化技術(shù)是指設(shè)計(jì)對象的結(jié)構(gòu)形狀比較定型，可以用一組參數(shù)來約定尺寸的關(guān)系。多屬于設(shè)計(jì)對象的控制尺寸有顯然的對應(yīng)，設(shè)計(jì)結(jié)果的修改受到尺寸驅(qū)動(dòng)，所以也稱為參數(shù)化尺寸驅(qū)動(dòng)，參數(shù)化設(shè)計(jì)技術(shù)以其強(qiáng)有力的草圖設(shè)計(jì)、尺寸驅(qū)動(dòng)修改圖形的功能、成為初始設(shè)計(jì)、產(chǎn)品建模、修改系列化設(shè)計(jì)、多方案化比較和動(dòng)態(tài)設(shè)計(jì)的有效手段。1.3 參數(shù)化CAD概述實(shí)現(xiàn)參數(shù)化繪圖是CAD軟件開發(fā)過程中的主要任務(wù)之一。所謂參數(shù)繪圖是一組參數(shù)定義幾何圖形的尺寸數(shù)值，并構(gòu)造尺寸關(guān)系，然后提供給設(shè)計(jì)者進(jìn)行造型的一種方法。其主要思想是要用幾何約束，數(shù)學(xué)方程與關(guān)系來說明產(chǎn)品模型的形狀特征，從而設(shè)計(jì)出一批在形狀或功能上具有相似性的方案。參數(shù)化設(shè)計(jì)的主要技術(shù)特點(diǎn)有以下四種：a.約束：用一些法則或限制條件來規(guī)定構(gòu)成物體的各元素之間的關(guān)系。一般分為尺寸約束和幾何拓?fù)浼s束。尺寸約束一般只大小、角度、直（半）徑、坐標(biāo)位置等可測量的數(shù)值進(jìn)行限制。幾何拓?fù)浼s束指平行、垂直、垂直、共線、1 緒論2相切等數(shù)據(jù)幾何關(guān)系的限制；西安工業(yè)大學(xué)北方信息工程學(xué)院畢業(yè)設(shè)計(jì)（論文）2b.尺寸驅(qū)動(dòng)：指在約束的條件下修改一尺寸參數(shù)時(shí)，系統(tǒng)自動(dòng)檢索出該尺寸參數(shù)對應(yīng)的數(shù)據(jù)結(jié)構(gòu)，并找出相應(yīng)的方程組計(jì)算出參數(shù)，最終驅(qū)動(dòng)幾何圖形形狀的修改；c.數(shù)據(jù)相關(guān)：指對尺寸參數(shù)的修改將導(dǎo)致其他相關(guān)模塊中的相關(guān)尺寸得以全盤更新。其優(yōu)點(diǎn)在于：用尺寸的形狀控制了幾何形狀。它徹底克服了自由建模的無約束狀態(tài)。d.基于用來形成實(shí)體，并以此為基礎(chǔ)進(jìn)行復(fù)雜的幾何形體構(gòu)造。從基于約束的參數(shù)化技術(shù)的實(shí)施機(jī)理來看，目前參數(shù)化的基本方法有兩大類：一是通過CAD交互環(huán)境直接創(chuàng)建參數(shù)實(shí)體模型；一是編程參數(shù)化，這種方法結(jié)構(gòu)較穩(wěn)定，僅尺寸數(shù)值發(fā)生變化或僅有局部結(jié)構(gòu)變化的場合，常見于在通用商品CAD軟件上進(jìn)行二次開發(fā)。1.4 國內(nèi)外研究的狀況CAD/CAE 技術(shù)發(fā)展至今,已經(jīng)歷了二維繪圖,線框模型 ,自由曲面造型,三維實(shí)體造型,特征造型等重要階段,其間又有參數(shù)化,變化量等輔助技術(shù)的出現(xiàn)。 參數(shù) 化 設(shè) 計(jì) 是 CAD 技 術(shù) 在 實(shí) 際 設(shè) 計(jì) 應(yīng) 用 中 被 提 出 來 ,并 得 到 道 發(fā) 展 ,有 著 強(qiáng)大 實(shí) 用 價(jià) 值 的 技 術(shù) 。國 外 在 參 數(shù) 化 方 面 的 起 步 比 較 早 ,上 世 紀(jì) 七 十 年 代 末 八 十 年 代 初 美 國 麻省 理 工 大 學(xué) 教 授 就 提 出 了 參 數(shù) 化 設(shè) 計(jì) 思 想 。 直 到 1987 年 底 PARAMETRIC TECI-INOLOGY 公 司 推 出 了 參 數(shù) 化 造 型 軟 件 PRO/ENGINER 后 ,參 數(shù) 化 設(shè)計(jì) 技 術(shù) 得 到 了 迅 猛 的 發(fā) 展 ,并 且 參 數(shù) 化 技 術(shù) 成 了 新 的 CAD 標(biāo)志。 隨 后 涌 現(xiàn)出 大 量 的 參 數(shù) 化 的 商 品 軟 件 。國 內(nèi) 從 上 世 紀(jì) 70 年 代 中 期 開 始 研 究 參 數(shù) 化 的 技 術(shù) ,并 且 形 成 了 與 國 外不 同 的 參 數(shù) 化 技 術(shù) ,如 參 數(shù) 尺 寸 代 碼 法 ,輔 助 線 作 圖 法 等 。 但 由 于 CAD 技 術(shù)的 普 及 程 度 不 夠 ,所 以 在 參 數(shù) 化 技 術(shù) 研 究 以 及 開 發(fā) 商 品 化 軟 件 方 面 相 對 滯 后與 國 外 。1.5 Auto CAD 二 次 開 發(fā) 概 述Auto CAD 軟 件 一 直 是 CAD 中 主 流 產(chǎn) 品 ， 并 以 其 功 界 面 功 能 強(qiáng) 大 ， 具有 開 放 的 體 系 結(jié) 構(gòu) 和 完 善 的 開 發(fā) 系 統(tǒng) ， 能 夠 提 供 各 種 編 程 工 具 和 接 口 用 于 滿足 不 同 層 次 用 戶 的 需 要 的 二 次 開 發(fā) 工 具 ： Auto LISP(Visual LISP)、ADS、 Object ARX 及 VBA。 其 中 Visual LISP 繪 圖 功 能 尤 為 強(qiáng) 大 。1.6 本 課 題 研 究 的 主 要 內(nèi) 容在 較 復(fù) 雜 的 零 件 中 ， 對 于 標(biāo) 準(zhǔn) 件 的 設(shè) 計(jì) 就 得 需 要 參 數(shù) 化 設(shè) 計(jì) ， 這 樣 方 便西安工業(yè)大學(xué)北方信息工程學(xué)院畢業(yè)設(shè)計(jì)（論文）3設(shè) 計(jì) 人 員 高 效 的 設(shè) 計(jì) 繪 圖 。 本 課 題 是 基 于 DCL 的 交 互 式 標(biāo) 準(zhǔn) 件 輔 助 設(shè) 計(jì) ——銷 。因 此 本 文 的 研 究 對 象 是 以 《 機(jī) 械 設(shè) 計(jì) 手 冊 》 中 國 際 標(biāo) 準(zhǔn) 件 進(jìn) 行 參 數(shù) 化設(shè) 計(jì) ， 在 Auto CAD 二 次 開 發(fā) 的 基 礎(chǔ) 上 ， 針 對 當(dāng) 前 銷 設(shè) 計(jì) 存 在 的 問 題 ， 對 參數(shù) 設(shè) 計(jì) 技 術(shù) 進(jìn) 行 了 研 究 ， 通 過 對 Visual LISP 語 言 進(jìn) 行 二 次 開 發(fā) ， 實(shí) 現(xiàn) 了 銷的 參 數(shù) 化 設(shè) 計(jì) ， 并 對 其 進(jìn) 行 了 對 話 框 、 應(yīng) 用 程 序 等 設(shè) 計(jì) 。 主 要 利 用 Visual LISP 語 言 來 開 發(fā) ， 通 過 command 函 數(shù) 調(diào) 用 Auto CAD 內(nèi) 部 的 函 數(shù) ， 實(shí) 現(xiàn) 對銷 尺 寸 特 征 地 操 作 ， 不 僅 要 求 能 進(jìn) 行 正 確 的 參 數(shù) 設(shè) 計(jì) ， 而 且 希 望 能 正 確 地 繪制 出 可 謂 工 程 使 用 的 圖 紙 ， 設(shè) 計(jì) 一 個(gè) 銷 參 數(shù) 化 繪 圖 模 塊 ， 它 采 用 對 話 框 的 形式 交 互 式 輸 入 曲 線 數(shù) 據(jù) 為 入 口 ， 自 動(dòng) 地 繪 制 出 銷 的 二 維 設(shè) 計(jì) 圖 。通 過 對 銷 參 數(shù) 化 設(shè) 計(jì) ， 程 序 實(shí) 現(xiàn) 了 可 視 化 窗 口 操 作 ， 因 而 對 于 系 統(tǒng) 控 制或 對 數(shù) 據(jù) 操 作 ， 用 戶 只 須 用 鼠 標(biāo) 進(jìn) 行 點(diǎn) 取 即 可 。 這 無 疑 于 十 分 有 利 于 用 戶 的操 作 ， 提 高 了 輸 入 效 率 。 同 時(shí) 在 Visual LISP 集 成 環(huán) 境 下 開 發(fā) Auto LISP 程序 ， 這 樣 就 比 單 純 使 用 Auto LISP 更 加 便 捷 高 效 ， 可 以 得 到 運(yùn) 行 效 率 更 高 ，代 碼 更 加 緊 湊 ， 原 代 碼 得 到 保 護(hù) 的 應(yīng) 用 程 序 。2 軟件開發(fā)語言——Visual LISP 概述42 軟 件 開 發(fā) 語 言 ——Visual LISP 概 述考 慮 到 Auto CAD 用 戶 使 用 方 便 ， 在 程 序 設(shè) 計(jì) 中 ， 用 語 言 可 視 化 語 言Visual LISP 開 發(fā) 而 成 。 圖 形 輸 出 部 分 采 用 在 用 戶 中 有 較 大 影 響 的 Auto CAD 作 為 二 次 開 發(fā) 的 平 臺(tái) ， 在 對 話 框 的 操 作 界 面 中 實(shí) 現(xiàn) 了 簡 潔 明 快 、 操 作 方便 。Visual LISP 是 Auto LISP 的 發(fā) 展 ， 是 一 種 可 視 化 的 LISP 編 程 開 發(fā) 環(huán)境 ， 是 Auto LISP 語 言 的 擴(kuò) 展 和 延 伸 ， 可 以 通 過 接 口 與 對 象 交 互 。2.1 Visual LISP 概 述2.1.1 Visual LISP 語 言 的 特 點(diǎn)學(xué) 習(xí) Auto LISP 是 非 常 容 易 的 對 初 學(xué) 者 而 言 ， 即 使 沒 有 學(xué) 習(xí) 任 何 的 程 序語 言 ， 都 能 很 快 上 手 ， 寫 出 精 彩 漂 亮 的 Auto LISP 程 序 。a.語 法 簡 單不 用 特 殊 的 變 量 定 義 ， 非 常 富 有 彈 性 ， 比 起 其 他 的 程 序 語 言 ， 它 的 語 法可 說 是 非 常 簡 單 而 又 有 其 獨(dú) 特 的 風(fēng) 格 ；b.功 能 函 數(shù) 強(qiáng) 大除 一 般 性 的 功 能 函 數(shù) 外 ， 又 擁 有 為 數(shù) 不 少 配 合 Auto CAD 的 特 殊 函 數(shù) ，再 加 上 Auto LISP RJ 直 接 調(diào) 用 執(zhí) 行 所 有 Auto CAD 的 命 令 ， 以 及 掌 握 運(yùn) 用所 屬 的 Auto CAD 系 統(tǒng) 變 量 ， 功 能 之 強(qiáng) ；c.撰 寫 環(huán) 境 不 挑 剔只 要 是 一 般 的 窗 口 文 本 編 輯 軟 件 都 適 用 ， 例 如WORDPAD、 EDTT、 Visual LISP；d.直 譯 式 程 序不 用 再 作 編 譯 ， “即 寫 即 用 、 即 測 即 用 ”， 馬 上 可 以 在 Auto CAD 中響 應(yīng) 效 果 。2.1.2 Auto LISP 語 言 及 其 特 點(diǎn)LISP(LISP Processing Language)稱 為 符 號(hào) 式 語 言 ， 因 為 它 處 理 的 對 象是 符 號(hào) 表 達(dá) 式 。 LISP 語 言 的 程 序 和 數(shù) 據(jù) 都 以 符 號(hào) 表 達(dá) 式 的 形 式 來 表 示 ， 即一 個(gè) LISP 程 序 可 以 把 另 一 個(gè) LISP 程 序 作 為 它 的 數(shù) 據(jù) 來 處 理 。 Auto LISP是 為 擴(kuò) 展 和 自 定 義 Auto CAD 功 能 而 設(shè) 計(jì) 的 一 種 LISP 編 程 語 言 ， 它 嵌 入 在Auto CAD 的 內(nèi) 容 ， 是 LISP 和 Auto CAD 有 機(jī) 結(jié) 合 產(chǎn) 物 。2 軟件開發(fā)語言——Visual LISP 概述5Auto LISP 采 用 了 和 LISP 最 相 近 的 語 法 和 習(xí) 慣 約 定 ， 具 有 command LISP西安工業(yè)大學(xué)北方信息工程學(xué)院畢業(yè)設(shè)計(jì)（論文）6的 特 性 ， 但 又 針 對 Auto CAD 增 加 了 許 多 功 能 ， 例 如 ， 可 以 把 Auto LISP程 序 和 Auto CAD 的 繪 圖 命 令 透 明 地 結(jié) 合 起 來 ， 使 設(shè) 計(jì) 和 繪 圖 溶 為 一 體 。 還可 以 實(shí) 現(xiàn) 對 Auto CAD 當(dāng) 前 圖 形 數(shù) 據(jù) 庫 的 直 接 訪 問 、 修 改 ， 為 實(shí) 現(xiàn) 對 屏 幕 圖形 的 實(shí) 時(shí) 修 改 、 交 互 設(shè) 計(jì) 、 參 數(shù) 化 設(shè) 計(jì) 以 及 在 繪 圖 領(lǐng) 域 中 應(yīng) 用 人 工 智 能 提 供了 方 便 。 概 括 的 說 ， Auto LISP 綜 合 了 人 工 智 能 語 言 LISP 的 特 性 和 Auto CAD 強(qiáng) 大 的 圖 形 編 輯 功 能 的 特 點(diǎn) ， 可 謂 是 一 種 人 工 智 能 繪 圖 語 言 。Auto CAD2008 以 前 的 Auto LISP 屬 于 解 釋 執(zhí) 行 性 的 語 言 ， 在 Auto CAD2008 及 其 以 后 的 版 本 中 推 出 了 Visual LISP。 即 兼 容 以 前 的 Auto LISP程 序 ， 又 可 以 經(jīng) 編 譯 生 成 執(zhí) 行 程 序 ； 即 做 到 了 源 程 序 代 碼 的 保 密 ， 又 加 快 了程 序 的 運(yùn) 行 速 度 。 Auto LISP 有 如 下 特 點(diǎn) ；a.它 是 一 個(gè) 嵌 入 式 語 言 ， 它 不 是 運(yùn) 行 在 操 作 系 統(tǒng) 下 ， 而 運(yùn) 行 于 Auto CAD 的 環(huán) 境 下 ， 或 者 說 ， 它 嵌 入 在 Auto CAD 之 中 。b.采 用 了 LISP 語 言 的 語 法 。c.吸 收 了 LISP 語 言 的 主 要 語 句 的 主 要 語 句 （ 或 稱 函 數(shù) ） ， 具 有 LISP語 言 的 語 法 結(jié) 構(gòu) 。d.加 入 了 與 圖 形 處 理 有 關(guān) 的 語 句 。e.可 直 接 調(diào) 用 幾 乎 全 部 的 Auto CAD 命 令 。2.2 Visual LISP 程 序 設(shè) 計(jì) 語 言 概 述Visual LISP 是 為 加 速 Auto LISP 程 序 開 發(fā) 而 設(shè) 計(jì) 的 軟 件 工 具 ， 它 提 供 了一 種 完 整 的 集 成 開 發(fā) 環(huán) 境 ， 包 括 編 譯 器 、 調(diào) 試 器 和 其 他 工 具 ， 它 可 以 顯 著 提高 自 定 義 Auto CAD 的 效 率 。 Visual LISP 提 供 的 主 要 工 具 有 ： 文 本 編 輯 器 、格 式 編 排 器 、 語 法 檢 查 器 、 源 代 碼 調(diào) 試 器 、 檢 驗(yàn) 和 監(jiān) 視 工 具 、 文 本 編 譯 器 、工 程 管 理 系 統(tǒng) 、 上 下 文 相 關(guān) 幫 助 與 自 動(dòng) 匹 配 功 能 和 智 能 化 控 制 臺(tái) 等 。在 Visual LISP 集 成 環(huán) 境 下 可 以 便 捷 、 高 效 地 開 發(fā) Auto LISP 程 序 ， 可以 得 到 運(yùn) 行 效 率 更 高 、 代 碼 更 加 緊 湊 、 源 代 碼 受 到 保 護(hù) 的 應(yīng) 用 程 序 ，VLISP 是 新 一 代 Auto LISP 語 言 ， 它 對 Auto LISP 語 言 進(jìn) 行 了 擴(kuò) 展 。 Visual LISP 的 用 戶 界 面 良 好 ， 用 過 Microsoft 軟 件 的 用 戶 只 需 要 很 短 的 時(shí) 間 即 可 掌握 它 。2.3 對 話 框 設(shè) 計(jì) 語 言 ——DCL為 了 使 所 開 發(fā) 的 程 序 成 為 商 品 ， 讓 不 懂 編 程 的 用 戶 方 便 地 使 用 ， 必 須使 用 對 話 框 和 菜 單 與 用 戶 交 流 。 而 對 話 框 適 合 與 客 戶 友 好 地 交 流 數(shù) 據(jù) ， 設(shè) 計(jì)對 話 框 成 為 程 序 開 發(fā) 必 不 可 少 的 工 作 。西安工業(yè)大學(xué)北方信息工程學(xué)院畢業(yè)設(shè)計(jì)（論文）7單 純 的 Auto LISP 程 序 ， 都 是 使 用 文 字 操 作 模 式 。 用 戶 在 嵌 入 Auto LISP 程 序 之 后 ， 只 能 在 命 令 行 窗 口 根 據(jù) 系 統(tǒng) 提 供 的 提 示 語 句 輸 入 數(shù) 據(jù) ， 與系 統(tǒng) 進(jìn) 行 交 流 。 意 識(shí) 到 了 這 些 問 題 ， 為 了 與 客 戶 能 友 好 得 交 流 ， 本 文 開 發(fā) 的程 序 使 用 了 對 話 框 。 它 是 應(yīng) 用 DCL(Dialogue)2.4 數(shù) 據(jù) 文 件Auto LISP 語 言 和 其 它 高 級(jí) 語 言 一 樣 具 有 文 件 處 理 功 能 ， 即 提 供 了 文 件操 作 函 數(shù) 。 一 般 來 講 ， 文 件 是 建 立 在 外 部 介 質(zhì) 上 的 數(shù) 據(jù) 的 集 合 。Auto LISP 提 供 了 一 個(gè) Load 函 數(shù) ， 它 可 以 將 程 序 文 件 裝 入 內(nèi) 存 ， 并 對其 求 職 。 應(yīng) 此 ， 可 以 說 Load 的 數(shù) 是 一 個(gè) 特 殊 的 文 件 操 作 函 數(shù) 。 Auto LISP這 一 語 言 提 供 了 相 當(dāng) 的 文 件 操 作 函 數(shù) ， 這 些 函 數(shù) 不 但 能 存 取 一 般 的 數(shù) 據(jù) 文 件 ，而 且 ， 還 可 以 處 理 程 序 文 件 。3 銷的參數(shù)化程序設(shè)計(jì)83 銷 的 參 數(shù) 化 程 序 設(shè) 計(jì)3.1 銷 的 模 型 分 析銷 是 貫穿于兩個(gè)零件孔中, 主要用于定位, 也可用于連接或作為安全裝置中過載易剪斷元件的緊固件。以最新機(jī)械設(shè)計(jì)手冊為依據(jù)，題目銷類包括以下幾類：表 3.1 銷的分類表名稱圓柱銷 內(nèi)螺紋圓柱銷 螺紋圓柱銷 彈性圓柱銷GB/T119.1-2000GB/T119.2-2000GB/T120.1-2000GB/T120.2-2000GB/T878-1986 GB/T897.1-2000GB/T897.5-2000圓錐銷 內(nèi)螺紋圓錐銷 螺尾圓錐銷 開尾圓錐銷GB/T117-2000 GB/T118-2000 GB/T881-2000 GB/T877-1986槽銷 銷軸 帶孔銷 安全銷GB/T882-1986 GB/T880-1986①開口銷GB/T91-2000JB/ZQ 4355-1997本 設(shè) 計(jì) 以 《 機(jī) 械 設(shè) 計(jì) 手 冊 》 中 銷 的 參 數(shù) 圖 形 為 準(zhǔn) ， 以 標(biāo) 準(zhǔn) 圓 柱 銷 、 圓錐 銷 、 銷 軸 、 孔 銷 為 例 來 利 用 Visual LISP 語 言 說 明 參 數(shù) 化 繪 圖 。a.下 面 是 圓 柱 銷 的 參 數(shù) 說 明其 圖 形 為 ：西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）9圖 3.1 圓 柱 銷其圓 柱 銷 標(biāo) 準(zhǔn) 代 號(hào) 為 GB/T119.1—2000 l—為圓柱銷的長度；d—為圓柱銷的直徑；c—為圓柱銷的倒角水平長度。b.下 面 是 圓 錐 銷 的 參 數(shù) 說 明其 圖 形 為 ：圖 3.2 圓錐銷下 面 是 圓 錐 銷 的 參 數(shù) 和 參 數(shù) 表 的 說 明 ,其 標(biāo) 準(zhǔn) 代 號(hào) 為 GB/T117-2000l—為圓錐銷的長度；d—為圓錐銷的直徑；a—為圓錐銷的圓頂點(diǎn)到銷徑長度；r1—為圓錐銷的小圓半徑；r2—為圓錐銷的大圓半徑c.下 面 是 銷 軸 的 參 數(shù) 說 明其 圖 形 為 ：西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）10圖 3.3 銷 軸下 面 是 銷 軸 的 參 數(shù) 和 參 數(shù) 表 的 說 明 ， 其 標(biāo) 準(zhǔn) 為 GB/T882-1986l—為銷軸的長度；d—為銷軸的直徑；c—為銷軸的倒角水平長度；dk—為銷軸的小圓半徑；k—為銷軸的大軸厚；dt—為銷軸的圓直徑；r—為銷軸的倒角半徑。d.下 面 是 帶 孔 銷 參 數(shù) 說 明其 圖 形 為 ：圖 3.4 帶 孔 銷下 面 是 帶 孔 銷 的 說 明 ,其 標(biāo) 準(zhǔn) 為 GB/T880-2000l—為帶孔銷長度；d—為帶孔銷直徑；c—為帶孔銷與一邊水平長度；d1—為帶孔銷的兩圓半徑；le—為帶孔銷的圓心離邊的長度；lh—為帶孔銷兩圓心的距離；r—為帶孔銷的倒角半徑。3.2 主程序的編寫在進(jìn)行參數(shù)化設(shè)計(jì)繪圖設(shè)計(jì)時(shí)，圖形參數(shù)的值可以通過兩種途徑給定:1.有西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）11設(shè)計(jì)結(jié)果直接傳入；2.通過人際交互式輸入。通過以《機(jī)械設(shè)計(jì)手冊》中國標(biāo)指定的銷的參數(shù)進(jìn)行參數(shù)化設(shè)計(jì)。3.2.1 繪圖環(huán)境的設(shè)置編程作圖和交互作圖一樣，也需要設(shè)置作圖的環(huán)境，例如圖紙的范圍、繪圖單位、目標(biāo)的捕捉類型、圖層、顏色、線型、線寬、字樣等。如果缺少對作圖環(huán)境的設(shè)置，就只利用加載程序時(shí)其內(nèi)部提供的默認(rèn)環(huán)境。設(shè)置一個(gè)合適的作圖環(huán)境不僅可以提高作圖的精度和效率，又是還會(huì)影響到所繪制的圖紙是否滿足生產(chǎn)需求。在程序?qū)崿F(xiàn)設(shè)置作圖環(huán)境的功能可以通過command函數(shù)用相關(guān)的命令，或者通過SETVAR函數(shù)改變相應(yīng)系統(tǒng)變量的當(dāng)前值或當(dāng)前狀態(tài)。a.設(shè)置目標(biāo)捕捉類型交互式操作時(shí)，目標(biāo)捕捉類型的選擇是字符串，它以編碼的形式記錄在系統(tǒng)變量osmode內(nèi)。通過查看Auto CAD幫助文件，獲取 osmode代碼的具體含義如表所示 例如：通過command函數(shù)設(shè)置目標(biāo)捕捉類型：（command “osnap” “none”） ；不捕捉任何類型通過SETVAR函數(shù)設(shè)置目標(biāo)捕捉的類型：（setvar “osmode” 0） ；不捕捉任何類型通過上述兩種方式都可實(shí)現(xiàn)不捕捉任何類型。b.設(shè)置圖層、顏色、線型創(chuàng)建圖層：通過command函數(shù)創(chuàng)建一個(gè)當(dāng)前圖層（command “l(fā)ayer” “make” “zhongxian ” “color”“stype” “center”“ zhongxian” “tweight” 0.2“zhongxin”）設(shè)置圖形對象的顏色：command函數(shù)設(shè)置新圖形顏色（command “color ” 3）或通過SETVAR函數(shù)設(shè)置顏色（setvar “cecolor”“2”）設(shè)置圖形對象的線型：通過command函數(shù)設(shè)置線型（command“l(fā)inetype” “s”“center” “”）或者通過Setvar 設(shè)置（setvar “ceitype” “dashed”）3.2.2 繪圖坐標(biāo)點(diǎn)的設(shè)置和計(jì)算在編制繪圖程序時(shí)，圖形繪制、尺寸標(biāo)注及工程標(biāo)注都需要設(shè)置坐標(biāo)點(diǎn)，坐標(biāo)點(diǎn)設(shè)置與計(jì)算造繪圖程序中占有相當(dāng)大的比重，盡量減少坐標(biāo)點(diǎn)的設(shè)置，將會(huì)大大縮減繪圖程序。a.繪圖基點(diǎn)設(shè)置西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）12繪圖點(diǎn)坐標(biāo)的確定是很重要的，因?yàn)樗P(guān)系到所繪制的圖形在圖框中的布局。在考慮確定繪圖坐標(biāo)時(shí)，既要照顧視圖的布局是否合理，也要照顧尺寸標(biāo)注的布局是否得當(dāng)。根據(jù)圖形選擇合適的點(diǎn)位。b.繪 圖 坐 標(biāo) 點(diǎn) 的 計(jì) 算本 程 序 繪 圖 坐 標(biāo) 點(diǎn) 主 要 采 用 的 是 相 對 坐 標(biāo) 點(diǎn) 的 計(jì) 算 ， 一 般 是 從 基 本 點(diǎn) 開始 ， 根 據(jù) 前 面 的 已 知 點(diǎn) 的 坐 標(biāo) 計(jì) 算 未 知 點(diǎn) 的 坐 標(biāo) ， 即 計(jì) 算 相 對 坐 標(biāo) 。 計(jì) 算 點(diǎn)的 相 對 坐 標(biāo) 本 程 序 采 用 了 以 下 的 方 法 ：主 要 是 利 用 polar 函 數(shù) 計(jì) 算 相 對 點(diǎn) 坐 標(biāo) ， 即 計(jì) 算 相 對 坐 標(biāo) 。下 面 是 四 種 銷 的 點(diǎn) 位 圖 及 其 計(jì) 算 的 相 對 坐 標(biāo) ：（ 1） 圓 柱 銷 的 點(diǎn) 位 圖 如 圖 ：圖 3.5 圓 柱 銷 的 點(diǎn) 位 圖根 據(jù) 圖 選 出 點(diǎn) 位 ， 參 數(shù) 有 , , 三 個(gè) ， 設(shè) 計(jì) 者 可 從 《 機(jī) 械 手 冊 》 中 選 取 ，ldc圓 柱 銷 選 取 了 選 取 了 11 個(gè) 點(diǎn) 位 ， 還 可 結(jié) 合 鏡 像 來 選 點(diǎn) 。其 計(jì) 算 為 ：表 3.2 圓 柱 銷 的 點(diǎn) 位 計(jì) 算點(diǎn) 計(jì) 算p9 polar p0 alf cp4 polar p9 (+ alf (* 1.5 pi))(* 0.5 d)p1 polar p4 (+ alf (* 0.917 pi))(/ c (COS (* 0.083 pi)))p3 polar p9 (+ alf (* 0.5 pi))(* 0.5 d)p2 polar p3 (+ alf (* 1.083 pi))(/ c (COS (* 0.083 pi)))p5 polar p3 alf (- l (* 2 c))p6 polar p2 alf lp7 polar p1 alf lp8 polar p4 alf (- l (* 2 c))p10 polar p0 pi 5p11 polar p0 alf (+ l 5)西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）13這 些 計(jì) 算 中 用 到 了 polar 函 數(shù) ， 該 函 數(shù) 是 目 標(biāo) 點(diǎn) 表 函 數(shù) ： 函 數(shù) 依 據(jù) 點(diǎn) 、角 、 距 的 方 式 求 出 一 個(gè) 點(diǎn) 坐 標(biāo) ， 返 回 該 點(diǎn) 的 點(diǎn) 坐 標(biāo) 。 角 度 單 位 為 弧 度 ， 是 從x 軸 正 方 向 開 始 度 量 取 正 值 ， 順 時(shí) 針 取 負(fù) 值 。參 照 基 本 點(diǎn) p0 可 算 出 其 它 相 關(guān) 點(diǎn) 。 例 如 ： （ polar ‘(1 2 3) 0.785398 20） ； 返 回 （ 2.0 2 3.5）（ 2） 圓 錐 銷 的 點(diǎn) 位 圖 ：圖 3.6 圓 錐 銷 的 點(diǎn) 位 圖據(jù) 圖 選 取 了 圓 錐 銷 的 點(diǎn) 位 ， 參 數(shù) 有 , , ， r1,r2(r1≈ d,r2=(d/2)ldc+d+((0.02l)(0.02l))/8c))這 些 可 從 《 機(jī) 械 手 冊 》 中 選 取 。 此 圖 共 選 9 個(gè)點(diǎn) 位 。其 計(jì) 算 為 ：表 3.3 圓 錐 銷 的 點(diǎn) 位 計(jì) 算點(diǎn) 計(jì) 算r1 * 1 dr2 + (+ d (/ a 2)) (/ (* (* 0.02 l) (* 0.02 l)) (* 8 a))p4 polar p0 alf r1p3 polar p0 alf lp5 polar p3 pi r2p1 polar p5 (- pi (antn(/ (sqrt(- (* r1 r 1) (* (- r1 a) (- r1 a)))) r1))) r1p2 polar p7 (+ alf (atan(/ (sqrt(- (* r2 r 2) (* (- r2 a) (- r2 a)))) r2)))r2p6 polar p0 pi 5p7 polar p3 Alf 5圓 錐 銷 繪 圖 中 用 到 了 polar 求 目 標(biāo) 點(diǎn) 函 數(shù) 、 sqrt 求 平 方 根 函 數(shù) 、getpoint 點(diǎn) 輸 入 函 數(shù) 、 command 命 令 調(diào) 用 函 數(shù) 和 鏡 像 方 法 。 例 如 :（ sqrt 25） ； 返 回 5.0000； 25 的 平 方 根 為 5。 （ setq pt (getpoint “\n 輸 入 點(diǎn) ：”)） ； 點(diǎn) 的 輸 入 。 (command “l(fā)ine” pt1 pt2“”)； 指 的 是 劃 線 聯(lián) 接 pt1和 pt2 這 兩 個(gè) 點(diǎn) 。西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）14（ 3） 銷 軸 的 點(diǎn) 位 圖 ：圖 3.7 銷 軸 的 點(diǎn) 位 圖據(jù) 圖 選 取 了 圓 錐 銷 的 點(diǎn) 位 ， 參 數(shù) 有 l, d,, dk, k ,dt ,r, ,這 些 可 從c《 機(jī) 械 設(shè) 計(jì) 手 冊 》 中 選 取 。 此 圖 共 選 19 個(gè) 點(diǎn) 位 。其 計(jì) 算 為 ：表 3.4 銷 軸 點(diǎn) 位 計(jì) 算點(diǎn) 計(jì) 算p9 polar p0 Alf kp14 polar p0 Alf l p1 polar p0 (/ pi 2.0)(- (/ dk 2.0) r) p2 polar p9 (/ pi 2.0)(- (/dk 2.0) r)p12 polar p9 (/ pi 2.0) (/ d 2.0) p5 polar p12 Alf (- l c)p7 polar p5 (* 1.833 pi)(/ c (COS (* 0.167)))p6 polar p5 (* 1.5 pi) d p8 polar p6 (* 0.167 pi)(/ c (COS (* 0.167))) p11 polar p9 Alf lbp13 polar p6 pi (- l c)p4 polar p9 (* 1.5 pi)(- (/dk 2.0) r)p3 polar p0 (* 1.5 pi)(- (/dk 2.0) r)p10 polar p14 Alf 5p15 polar p0 pi 5p16 polar p20 (* 0.5 pi) rp17 polar p16 pi (- k (* 2 r)) p21 polar p4 pi rp19 polar p21 (* 1.5 pi) r 西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）15p18 polar p19 pi (- k (* 2 r))其 中 用 了 以 上 介 紹 的 polar 函 數(shù) 較 多 。（ 4） 孔 銷 的 點(diǎn) 位 圖 ：圖 3.8 帶 孔 銷 的 點(diǎn) 位 圖據(jù) 圖 選 取 了 圓 錐 銷 的 點(diǎn) 位 ， 參 數(shù) 有 l, , ,d1 ,le ,lh ,這 些 可 從 《 機(jī) 械 設(shè)c計(jì) 手 冊 》 中 選 取 。 此 圖 共 選 13 個(gè) 點(diǎn) 位 。其 計(jì) 算 為 ：表 3.5 帶 孔 銷 點(diǎn) 位 計(jì) 算點(diǎn) 計(jì) 算p9 polar p0 alf cp4 polar p9 (+ alf (* 1.5 pi))(* 0.5 d)p1 polar p4 (+ alf (* 0.833 pi))(/ c (cos (* 0.167 pi))) p3 polar p9 (+ alf (* 0.5 pi))(* 0.5 d)p2 polar p3 (+ alf (* 1.167 pi))(/ c (cos (* 0.167 pi)))p5 polar p3 alf (- l (* 2 c))p6 polar p2 alf lp7 polar p1 alf lp8 polar p4 alf (- l (* 2 c))p10 polar p0 pi 5p11 polar p0 alf (+ l 5)p12 polar p0 alf lep13 polar p12 alf lh3.2.3 繪圖參數(shù)值的輸入與傳輸用 Auto LISP 便 制 的 繪 圖 程 序 主 要 是 變 參 數(shù) 繪 圖 程 序 ， 變 參 數(shù) 圖 形 繪 圖程 序 可 繪 制 一 系 列 尺 寸 不 同 的 圖 形 。 但 在 利 用 該 程 序 繪 圖 時(shí) ， 必 須 輸 入 繪 圖參 數(shù) 值 ， 即 給 繪 圖 參 數(shù) 賦 值 。 因 此 ， 在 繪 圖 程 序 中 應(yīng) 包 括 繪 圖 參 數(shù) 值 的 輸 入西安工業(yè)大學(xué)北方信息工程學(xué)畢業(yè)設(shè)計(jì)（論文）16與 傳 輸 程 序 ， 繪 圖 參 數(shù) 值 必 須 采 用 適 當(dāng) 的 方 式 進(jìn) 行 傳 輸 ， 一 邊 供 給 繪 圖 、 標(biāo)注 尺 寸 數(shù) 值 和 填 寫 技 術(shù) 參 數(shù) 表 等 的 使 用 。主 要 是 采 用 交 互 式 輸 入 函 數(shù) ：（ get angle [點(diǎn) ][提 示 信 息 ]） ,該 函 數(shù) 暫 停 以 等 待 用 戶 輸 入 角 度 ， 可 以輸 入 角 度 或 者 輸 入 點(diǎn) 1 和 點(diǎn) 2。 如 （ setq alf (getangle p0 “\n 角 度 ： ”)）（ getpoint[點(diǎn) ][提 示 信 息 ]） ， 等 待 用 戶 輸 入 一 個(gè) 點(diǎn) ， 然 后 返 回 該 點(diǎn) 。 用 戶既 可 以 用 光 標(biāo) 拾 取 ， 也 可 以 在 命 令 行 以 坐 標(biāo) 形 式 輸 入 。 如 ： （ setq p0(getpoint“\n 輸 入 銷 的 定 位 點(diǎn) ： ”)）（ get dist[點(diǎn) ][提 示 信 息 ]） ， 以 交 互 式 的 方 式 等 待 用 戶 輸 入 一 個(gè) 距 離 。可 以 輸 入 一 個(gè) 數(shù) 值 ， 也 可 以 輸 入 兩 個(gè) 點(diǎn) 來 指 定 距 離 。 如 （ setq p0 “輸 入 銷的 直 徑 :”）3.2.4 尺 寸 標(biāo) 注在 Auto CAD 中 提 供 了 很 多 尺 寸 變 量 ， 這 些 尺 寸 變 量 有 其 提 供 的 默 認(rèn) 值 ，但 一 般 都 需 要 根 據(jù) 我 國 國 家 標(biāo) 準(zhǔn) 重 新 設(shè) 置 ， 例 如 ： 根 據(jù) 國 標(biāo) ， dimtih（ 尺寸 文 字 在 延 伸 線 線 內(nèi) 且 與 尺 寸 線 一 致 的 書 寫 方 位 ） 通 常 置 off， dimtoh(尺寸 文 字 的 延 伸 線 外 且 尺 寸 線 一 致 )亦 應(yīng) 設(shè) 為 off， dimtad（ 尺 寸 文 字 在 尺 寸線 上 的 書 寫 位 置 ） 應(yīng) 設(shè) 為 on。 還 有 幾 個(gè) 尺 寸 變 量 應(yīng) 根 據(jù) 國 標(biāo) 和 習(xí) 慣 設(shè) 置 數(shù)值 ， 如 dimtxt（ 尺 寸 文 字 的 高 度 ） ， dimexo（ 尺 寸 界 線 制 定 始 點(diǎn) 的 距 離 ） ，dimexe（ 尺 寸 界 線 終 點(diǎn) 超 出 尺 寸 線 距 離 ） 和 dimasz（ 箭 頭 尺 寸 ） 必 須 設(shè) 置數(shù) 值 ， 一 般 dimtxt 設(shè) 置 5， dimexe 設(shè) 置 3～ 5， dimasz 設(shè) 置 3。 一 般 有 兩 種設(shè) 置 方 法 ， 用 command 函 數(shù) 和 將 尺 寸 變 量 作 為 系 統(tǒng) 變 量 來 設(shè) 置 。 在 本 程 序中 主 要 用 到 的 有 ： 長 度 型 尺 寸 標(biāo) 注 ： （ command “dimlinear”p1 p2 “h” p3） ， 該 表 達(dá) 式 中 dimlinear 標(biāo) 注 長 度 型 尺 寸 的 命 令 ， p1,p2 為 尺 寸 界 線 的兩 端 端 點(diǎn) ， h 代 表 尺 寸 方 向 ， 在 此 表 示 為 水 平 ， 假 如 為 “v”則 表 示 豎 直 方向 。 P3 表 示 確 定 尺 寸 線 的 位 置 點(diǎn) 。 直 徑 型 和 半 徑 型 尺 寸 標(biāo) 注 ： （ command “dimdiameter” p1 p2） ， 其 中 dimdiameter 表 示 為 直 徑 的 標(biāo) 注 命 令 ， p1為 圓 上 的 選 擇 點(diǎn) ， p2 為 確 定 標(biāo) 注 的 點(diǎn) ： （ command “dimradius”p2 p3） ，其 中 dimradius 表 示 半 徑 的 命 令 ， p2 與 p3 與 上 ， 類 似 。雖 然 上 述