【正文】 軟件 最大的挑戰(zhàn)是與 AutoCAD 盜版這種幾乎不要錢(qián)的軟件競(jìng)爭(zhēng)；另外，與 AutoCAD 的兼容性，企業(yè)的工程師使用 AutoCAD 的習(xí)慣也是很大挑戰(zhàn)，并且這些自主版權(quán)軟件的開(kāi)放性方面也存在不足。那時(shí) AutoCAD 還是 版。但 AutoCAD 所提供給的只是一般的通用的 CAD 功能，如造型、繪圖、編輯、注釋等，要想完成一個(gè)設(shè)計(jì)項(xiàng)目，尤其當(dāng)項(xiàng)目中不同規(guī)格的同一零 件（通常指標(biāo)準(zhǔn)件）數(shù)量龐大時(shí)，單純 CAD 中的通用功能就顯捉襟見(jiàn)肘了。盡管把專(zhuān)家系統(tǒng)引入 機(jī)械設(shè)計(jì)也只有短短十幾年的歷史，但是由于機(jī)械設(shè)計(jì)專(zhuān)家系統(tǒng)（ MDES）可為現(xiàn)代化的機(jī)械 設(shè)計(jì)提供詳實(shí)、可靠、規(guī)范、高效的設(shè)計(jì)依據(jù)，所以已經(jīng)激發(fā)了大批企業(yè)的應(yīng)用熱情。所以，根據(jù)工藝用途、制造成本、機(jī)器性能等技術(shù)經(jīng)濟(jì)指標(biāo)，能夠靈活修改設(shè)計(jì)方案 ，適時(shí)分析結(jié)構(gòu)性能，準(zhǔn)確評(píng)價(jià)整機(jī)或關(guān)鍵部分的功能和性態(tài)，優(yōu)化結(jié)構(gòu)參數(shù)，為制造提供 高質(zhì)量、高水平的成套技術(shù)資料，是現(xiàn)階段機(jī)械制造行業(yè)孜孜追求的目標(biāo)，是促進(jìn) CAD技術(shù) 蓬勃發(fā)展的動(dòng)力源泉。 AumCAD 是一種具有高度開(kāi)放結(jié)構(gòu)和提供多種開(kāi)發(fā)工具的 CAD 軟件開(kāi)發(fā)平臺(tái)，它提供給編程者一個(gè)強(qiáng)有力的二次開(kāi)發(fā)環(huán)境”。這種新穎直觀的對(duì)話框大大簡(jiǎn)化 AutoCAD 二次開(kāi)發(fā)程序中的用戶(hù)操作，優(yōu)化專(zhuān)業(yè)設(shè)計(jì)環(huán)境，提高軟件的使用效率。程序的主體部分采用 LISP 語(yǔ)言編寫(xiě)，人機(jī)交互界面用 DCL 編寫(xiě)，程序與外界的接口主要采用 AutoCAD ActiveX 軟件技術(shù)。利用DCL開(kāi)發(fā)的用戶(hù)界面，具有 Windows 風(fēng)格，操作簡(jiǎn)單，易于推廣。 關(guān)鍵詞 ： AutoLISP 液壓系統(tǒng) 設(shè)計(jì) 二次開(kāi)發(fā) ABSTRACT In this thesis, development and application of hydraulic system design is realized with the seconddevelopment of AutoCAD. The main body of the program is written with AutoLISP, and the interface between person and puter is written with DCL, furthermore the software technology of AutoCAD ActiveX is used in the joint between program and outer environment adopts. Its UI (User Interface) made by DCL (Dialog Control Language) has the style of Windows and is very friendly. It can make the design easy and suitable for popularization. Just input some basic parameters of the hydraulic cylinder, and the others parameters will be provided. Software can shorten the design period and improve design at the same time. Through an example the structure and position of the dialog control box (DCB) in AutoCAD have been illuminated .The method and the skill of programming on DCL 天津理工大學(xué) 2021屆畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 2 has been introduced in detail. The experimental examples shows that this work may greatly simplify user39。 CAD 軟件二次開(kāi)發(fā)徹底改變了傳統(tǒng)設(shè)計(jì)方法，能提高產(chǎn)品的設(shè)計(jì)質(zhì)量，對(duì)于實(shí)現(xiàn)設(shè)計(jì)的科學(xué)性和創(chuàng)造性有積極的意義。今天，是否掌握 CAD 應(yīng)用技術(shù)已經(jīng)成為衡量一個(gè)企業(yè)能否邁入信息時(shí) 代的重要標(biāo)志。基于專(zhuān)家系統(tǒng)、面向微機(jī)的液壓機(jī)本體 CAD 系統(tǒng)，可望把我國(guó)液壓機(jī)本體設(shè)計(jì)技術(shù)從落后的 圖板作業(yè)水平提高到現(xiàn)代設(shè)計(jì)的先進(jìn)水平。 因此，對(duì) AutoCAD 的二次開(kāi)發(fā)十分必要。這次浪潮促進(jìn)了很多高校、科研院所和大型企業(yè)開(kāi)始圍繞 AutoCAD 進(jìn)行二次開(kāi)發(fā)。 當(dāng)時(shí)， CAXA 推出了 400 多元一套的二維 CAD 軟件，徹底改變了市場(chǎng)格局，后來(lái)又推出了三維 CAD軟件，而 CAXA的 CAM也是一大特色。 由于微機(jī)加視窗 95／ 98／ NT操作系統(tǒng)與工作站加 Unix 操作系統(tǒng)在以太網(wǎng)的環(huán)境下構(gòu)成了 CAD 系統(tǒng)的主流工作平臺(tái)，因此現(xiàn)在的 CAD 技術(shù)和系統(tǒng)都具有良好的開(kāi)放性。 CAD技術(shù)一直處于不斷的發(fā)展與探索之中，正是這種此消彼長(zhǎng)的互動(dòng)與交替，造就了今天 CAD 技術(shù)的興旺與繁榮，促進(jìn)了工業(yè)的高速發(fā)展。 AutoCAD 不是一個(gè)密閉的軟件，它給設(shè)計(jì)者預(yù)留了一扇通向 AutoCAD 內(nèi)部系統(tǒng)的大門(mén) —天津理工大學(xué) 2021屆畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 3 — API。 天津理工大學(xué) 2021屆畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 4 第三章 課題的研究?jī)?nèi)容、方法與手段 以 Windows 作為工作平臺(tái)，以 AutaCAD 為基礎(chǔ)繪圖軟件，通過(guò)對(duì)其二次開(kāi)發(fā)，實(shí)現(xiàn)液壓系統(tǒng)原理圖的計(jì)算機(jī)輔助設(shè)計(jì)與繪制功能。液壓系統(tǒng)是利用液壓泵將原動(dòng)機(jī)的機(jī)械能轉(zhuǎn)換為液體的壓力能，經(jīng)各種控制閥、管路和液壓執(zhí)行元件將液體的壓力能轉(zhuǎn)換成為機(jī)械能，來(lái)驅(qū)動(dòng)工作機(jī) 構(gòu)，實(shí)現(xiàn)直線往復(fù)運(yùn)動(dòng)和會(huì)回轉(zhuǎn)運(yùn)動(dòng)?？梢缘倪@就減少了設(shè)計(jì)人員的設(shè)計(jì)、檢查時(shí)間，提高設(shè)計(jì)效率，有更多的精力投入到設(shè)計(jì)中去。 （ 2） 對(duì)話框的組成 對(duì)話框由若干控件組成，控件可以是按鈕、切換開(kāi)關(guān)、編輯框、列表或圖像等。 width=15。 alignment=centered。 fixed_width=true。 fixed_width=true。 fixed_width=true。 width=15。 width=15。程序由一個(gè)主程序和七個(gè)子程序組成，其主程序的流程如圖 天津理工大學(xué) 2021屆畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 8 圖 中典型模塊的編寫(xiě) （ 1）主程序 (defun c:Fe(/ D S HBS F id sdt) (setq D 1) (setq S 1) (setq HBS 1) (setq F 1) (setq id (load_dialog C:/Documents and Settings/Administrator/桌面 /畢設(shè) /lisp/dcl 文件/)) (if ( id 0) (exit)) (if (not (new_dialog F id)) (exit)) (action_tile button (getdata)(jisuan)) (action_tile accept (done_dialog 1)) (action_tile cancel (done_dialog 1)) (setq sdt (start_dialog)) (unload_dialog id) (princ) ) （ 2）獲取數(shù) 值子程序 (defun getdata() (setq D (atof(get_tile D))) 天津理工大學(xué) 2021屆畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 9 (setq S (atof(get_tile S))) (setq HBS (atof(get_tile HBS))) ) （ 3） 計(jì)算 子程序 與顯示計(jì)算結(jié)果 (defun jisuan() (setq F (* (* (* (expt HBS ) (expt S )) D) )) (set_tile Fe (rtos F 2 2)) 加載程序，在 AutoCAD 命令欄中輸入 dia32，點(diǎn)擊 “運(yùn)算 ”與 “保存結(jié)果 ”，無(wú)誤。 key=μ。 key=G。 :edit_box {label=Ff(N):。 } :button {key=button。 fixed_height=true。 } 如圖 (defun c:Ff(/ F μ G id sdt) (setq F 1) (setq μ 1) (setq G 1) (setq id (load_dialog C:/Documents and Settings/Administrator/桌面 /畢設(shè) /lisp/dcl 文件/摩擦阻力 )) (if ( id 0) (exit)) (if (not (new_dialog Ff id)) (exit)) (action_tile button (getdata)(jisuan)) (action_tile accept (done_dialog 1)) (action_tile cancel (done_dialog 1)) (setq sdt (start_dialog)) (unload_dialog id) (princ) ) (defun getdata() (setq μ (atof(get_tile μ))) (setq G (atof(get_tile G))) ) (defun jisuan() (setq F (* μ G)) (set_tile Ff (rtos F 2 2)) )如圖 計(jì)算慣性負(fù)載 的程序開(kāi)發(fā) F:dialog 圖 {label=慣性負(fù)載的計(jì)算 。 width=15。 width=15。 width=15。 圖 key=Fi。 label=計(jì)算 。 fixed_width=true。 spacer。 fixed_width=true。 fixed_width=true。 fixed_width=true。 width=15。 width=15。 alignment=centered。 :column{ :edit_box {label=油液密度 ρ(kg/m):。 } :edit_box {label=油液粘度 ν:。 } :edit_box {label=管道內(nèi)徑 d(m):。 } :edit_box {label=進(jìn)、回油管長(zhǎng)度 l(m):。 天津理工大學(xué) 2021屆畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 19 } 圖 :edit_box {label=最大回油量 q(L/min):。 } :boxed_row {label=計(jì)算結(jié)果 。 fixed_width=true。 height=1。 } } } ok_cancel。 key=ν。 key=d。 key=q。 :edit_box {label=Re:。 } :button {key=button。 fixed_height=true。 }如圖 (defun c:Re(/ r ν d q id sdt) 天津理工大學(xué) 2021屆畢業(yè)設(shè)計(jì)說(shuō)明書(shū) 21 (setq ν 1) (setq d 1) (setq q 1) (setq r 1) (setq id (load_dialog C:/Documents and Settings/Administrator/桌面 /畢設(shè) /lisp/dcl 文件/)) (if ( id 0) (exit)) (if (not (new_dialog R id)) (exit)) (action_tile button (getdata)(jisuan)) (action_tile accept (done_dialog 1)) (action_tile cancel (done_dialog 1)) (setq sdt (start_dialog)) (unload_dialog id) (princ) ) (defun getdata() (setq ν (atof(get_tile ν))) (setq d (atof(get_