1、 江西制造職業技術學院 畢業設計 畢業課題 : autocad應用（銑刀頭）及二次開發系 別 ： 機電一體化班 級： 08機電三班學生姓名: 學生學號: 輔導老師： 目錄前言3第1章 緒 論 1.1 autocad二次開發的歷史71.2 autocad二次開發現狀 81.3 autocad二次開發工具選擇81.4課題研究的主要內容10第2章 開發工具的介紹2.1 visual lisp概述112.1.1 visuallisp的主要組成部分和功能112.2 22 visuallisp的調試功能13第三章 程序的編寫3.1程序的編寫15心得體會21主要參考文獻：21 前 言隨著工程技術的發展，計算

2、機輔助設計（cad技術）得到了迅速普及，已經成為電子信息技術的重要組成部分。它使得產品設計工作的內容和方式產生了根本性變革；是提高產品和工作設計水平、降低消耗、縮短科研和新產品開發周期、大幅度提高勞動生產率的一項關鍵技術；成為設計產品保持競爭優勢，開拓市場的主要技術手段。 伴隨著cad技術的發展和應用，各種商品化的cad軟件也應運而生并迅速發展，autocad軟件就是其中的優秀軟件之一。autocad是美國autodesk公司1982年推出的，目前世界上最為流行，最為成功的cad軟件。這不僅僅是因為它有非常強大的功能、支持的外設和平臺很多、價格又低、易學易用，最主要的是autocad具有開放式

3、的體系結構，允許用戶在幾乎所有方面對其進行修改和擴充，用以滿足各種用戶自己的特殊需要。通過對autocad功能的調整、擴充以滿足用戶特定要求的方法有時稱為對autocad的定制。通過定制，可以構造出符合用戶習慣的autocad系統，也可提高工作效率。由于autocad的每一部分都可以按要求定制，如定義一個對話框，生成一種特殊線型。因此，定制可能是應用autocad中最有創造性和最令人感興趣的工作。 本課題正是利用其能滿足特定用戶要求的各種定制功能，適應市場對基本零部件繪圖模塊的需求，對一些常用的液壓元件進行定制，包括：菜單、繪制圖形、幻燈片顯示，并介紹了auto lisp、visual lis

4、p、對話框控制語言（dcl），以及基于這部分的應用，實現一個完整的工程體。 通過本課題的實踐，綜合cad開發系統的特點，很容易讓我們發現，我們不必是autocad專家或程序員，只要知道autocad的基本命令，就可以完成對各種需求產品的定制。在程序編制過程中，由小程序出發，一步一步分段進行程序調試，極大的提高了整個工作過程的效率，使我們很輕松的完成了對常用液壓元件繪圖模塊的定制，實現了基于產品零件的autocad的二次開發。 注：本課程的工作任務都是根據圖1展開的。autocad標準屏幕菜單菜單定制對話框編輯（dcl）繪圖程序編制主調函數（visual lisp）okcancel cancel

5、 ok繪制圖形并顯示于屏幕 圖 1 實踐任務流程圖with engineering technology development, the computer aided design (cad technology) get the quick popularization electronic information technology, has become an important component. it makes the product design work produced the content and methods of fundamental reform; is

6、to improve product design level, work and lowering consumption and shorten the scientific research and new product development cycle, dramatically improve labor productivity a key technology; designing a product keep competitive advantage, to develop the market the main technical means. along with t

7、he development and application of cad technology, various commercial cad software also arises at the historic moment and rapid development, autocad software is one of the finest software one. autodesk autocad is the company launched in 1982, currently the worlds most popular, the most successful cad

8、 software. this is not just because it has very powerful function, support peripherals and platforms, low price and many, yi, the main reason is easy to open architecture with autocad, allows users in almost all aspects to modify and expand, to meet the special needs of various users themselves. thr

9、ough the adjustment of autocad function, expansion to meet customer specific requirements of the method is sometimes called the customization of autocad. constructed by custom, can meet user habits autocad system, also can improve the work efficiency. because each part of autocad according to reques

10、t, such as can be defined a dialog box, generating a special line. therefore, custom is probably the most creative application autocad and the most interesting work. this issue it is using its can satisfy the specific users various customization, adapt to the market of the basic parts drawing module

11、 demand, for some commonly used hydraulic components, including: customized menu, drawings, slide shows, and introduced the auto lisp lisp, dialog, visual control language (dcl), and based on this part of the application and achieve a complete engineering body. through the practice of this topic, th

12、e comprehensive cad development the characteristics of the system, it is easy to let us find that we need not be autocad experts or programmers, as long as know the basic command, autocad to various needs can be finished product customization. in programming process, by small program is to start, st

13、ep by step, program test greatly improves the efficiency of the whole process, make us very relaxed completion of the commonly used hydraulic components drawing module custom, realized based on parts of the autocad secondary development. note: this course work task is according to figure 1 launch. 、

14、第1章 緒論1.1 autocad二次開發的歷史autocad是目前在windows環境下應用最廣泛，使用人數最多的cad軟件。但autocad所提供給的只是一般的通用的cad功能，如造型、繪圖、編輯、注釋等，要想完成一個設計項目，尤其當項目中不同規格的同一零件（通常指標準件）數量龐大時，單純cad中的通用功能就顯捉襟見肘了。 因此，對autocad的二次開發十分必要。第一次浪潮源于autocad進入中國。1990年。那時autocad還是2.6版。這次浪潮促進了很多高校、科研院所和大型企業開始圍繞autocad進行二次開發。第二次浪潮源于科技部在“九五”期間推進“甩圖板工程”。這期間，cax

15、a（當時叫北航海爾）、高華（現在的英泰）、凱思、開目、大天、凱圖、大凱、ccad（深圳喬納森）等一批國內自主版權cad在政府和市場的雙重推動下成長起來。那時，對國產cad軟件最大的挑戰是與autocad盜版這種幾乎不要錢的軟件競爭；另外，與autocad的兼容性，企業的工程師使用autocad的習慣也是很大挑戰，并且這些自主版權軟件的開放性方面也存在不足。當時，caxa推出了400多元一套的二維cad軟件，徹底改變了市場格局，后來又推出了三維cad軟件，而caxa的cam也是一大特色。其它cad軟件公司則逐漸將重點轉向了capp/pdm等產品，并開始代理國外cad/plm巨頭的高端軟件產品。而

16、1998年，autodesk收購genuis，自己推出機械版和電氣版，使得國內基于autocad進行二次開發的cad軟件的生存空間減小了很多。值得贊賞的是，2001年，新洲協同軟件公司研發、推出了自主品牌的三維cad軟件solid2000（solid3000的前身）。由于微機加視窗9598nt操作系統與工作站加unix操作系統在以太網的環境下構成了cad系統的主流工作平臺，因此現在的cad技術和系統都具有良好的開放性。圖形接口、圖形功能日趨標準化。在cad系統中，綜合應用正文、圖形、圖像、語音等多媒體技術和人工智能、專家系統等技術大大提高了自動化設計的程度，出現了智能cad新學科。智能cad把

17、工程數據庫及其管理系統、知識庫及其專家系統、擬人化用戶接口管理系統集于一體。cad技術一直處于不斷的發展與探索之中，正是這種此消彼長的互動與交替，造就了今天cad技術的興旺與繁榮，促進了工業的高速發展。1.2 autocad二次開發現狀autocad應該是機械工程師最為熟悉的工程軟件了,而且在工程師眼中autocad幾乎成了cad軟件的代名詞了,一提到cad三個字母,首先會想到的是autocad。autocad發展到現在已經是一個比較通用的適合各個行業進行設計工作的平臺了，這是毋庸置疑的，在這里只談autocad的二維功能，可能有好多人都不知道autocad還能夠進行三維建模，不過比起其三維平

18、臺inventor的建模功底autocad的這點小伎倆可以忽略了。盡管autocad已經提供足夠強大的各種功能，但是為了提高效率、也為了滿足各個企業不同產品生產、設計的需求，可能會對autocad做一些可以滿足自己需求功能的二次開發，以提高自己的設計效率，例如建立自己公司產品的模型數據庫，對模型實現可參數化設計，一些快捷功能的開發等等。autocad 不是一個密閉的軟件，它給設計者預留了一扇通向autocad內部系統的大門api。對于autocad進行二次開發可以使用的語言工具有內部集成的autolisp、vba、外圍過象vb、c、及最新的.net平臺通過com對autocad 進行二次開發。

19、隨著autocad軟件在各行各業的應用日趨廣泛，其二次開發的應用研究也逐漸深入，不在局限于上述的領域的參數化設計。像利用autolisp二次開發語言對分形幾何圖形進行設計研究，用autolisp開發出注塑模澆注系統，用autocad二次開發技術實現了技術要求自動標注系統，用vba開發出了autocad標注圖紙圖欄系統等，等各種技術，從而為autocad二次開發的技術應用開辟了一條新路徑。1.3 autocad二次開發工具選擇要完成以上的要求，應有不同的軟件要求與之相對應，經過比較分析，選擇一種適合我們的軟件是很重要的，那將有助于課題實物的實現，并對工作進度起到事半功倍的效果。主要是在對繪圖程序

20、語言和對話框編輯語言的選擇上，將一些常用編制語言進行了比較。(1) autolispautolisp的全名是list processing language，她出現于1985年推出的autocad r2.18中，是一種嵌入在autocad內部的編程語言，是lisp原版的一個子集，她一直是低版本autocad的首選編程語言。它是一種表處理語言，是被解釋執行的，任何一個語句鍵入后就能馬上執行，它對于交互式的程序開發非常方便。其缺點是繼承了lisp語言的編程規則而導致繁多的括號。(2) adsads的全名是autocad development system，它是autocad的c語言開發系統，ad

21、s本質上是一組可以用c語言編寫autocad應用程序的頭文件和目標庫，它直接利用用戶熟悉的各種流行的c語言編譯器，將應用程序編譯成可執行的文件在autocad環境下運行，這種可以在autocad環境中直接運行的可執行文件叫做ads應用程序。ads由于其速度快，又采用結構化的編程體系，因而很適合于高強度的數據處理，如二次開發的機械設計cad、工程分析cad、建筑結構cad、土木工程cad、化學工程cad、電氣工程cad等。(3) objectarxobjectarx是一種嶄新的開發autocad應用程序的工具，她以c+為編程語言，采用先進的面向對象的編程原理，提供可與autocad直接交互的開發

22、環境，能使用戶方便快捷地開發出高效簡潔的auto cad應用程序。objectarx并沒有包含在autocad中，可在autodesk公司網站中去下載，其最新版本是objectarx for autocad 2000，它能夠對autocad的所有事務進行完整的、先進的、面向對象的設計與開發，并且開發的應用程序速度更快、集成度更高、穩定性更強。(4) vlispvlisp已經被完整地集成到autocad 2000中，她為開發者提供了嶄新的、增強的集成開發環境，一改過去在autocad中內嵌atuolisp運行引擎的機制，這樣開發者可以直接使用autocad中的對象和反應器，進行更底層的開發。其特

23、點為自身是autocad 2000中默認的代碼編輯工具；用它開發autolisp程序的時間被大大地縮短，原始代碼能被保密，以防盜版和被更改；能幫助大家使用activex對象及其事件；使用了流行的有色代碼編輯器和完善的調試工具，使大家很容易創建和分析lisp程序的運行情況。(5) vbavba 即mcrosoft office中的visual basic for applications，它被集成到autocad 2000中。vba為開發者提供了一種新的選擇，也為用戶訪問autocad 2000中豐富的技術框架打開一條新的通道。vba和autocad 2000中強大的activex自動化對象模型

24、的結合，代表了一種新型的定制autocad的模式構架。通過vba，我們可以操作autocad，控制activex和其它一些應用程序，使之相互之間發生互易活動。1.4課題研究的主要內容本文主要結合模具企業的技術要求來進行設計研究，主要通過autocad這個軟件平臺使用visual lisp進行編程，主要完成如下工作：（1）集成于autocad軟件的菜單（可通過任何一種編輯器）； （2）參數化輸入對話框的編制（dcl語言）或則opendcl ； （3）模具零件的參數化設計程序（visual lisp）； （4）對話框中幻燈片顯示（幻燈片的創建與庫的使用）； （5）完成開發系統的加載、調試、排錯；實

25、現整個工程的鏈接； （6）運用系統完成模具標準件圖形的繪制。 下圖1.1為本文所涉及的模具標準件設計內容以及整個系統15的框架圖。 圖1.1 模具系統開發框架圖第2章 開發工具的介紹2.1 visual lisp概述visual lisp是 autocad自帶的一個集成的可視化autolisp開發環境，最早的autolisp程序需要用文本編輯工具如記事本等編輯，然后在autocad中加載調試，很不方便。從autocad2000開始，有了集成的開發環境：visual lisp。作為開發工具，visual lisp提供了一個完整的集成開發環境（ide），包括編譯器、調試器和其他工具，可以實時調試a

26、utolisp命令。定義autocad的效率。 visual lisp具有自己的窗口和菜單，但它并不能獨立于autocad運行。2.1.1 visuallisp的主要組成部分和功能作為開發工具，visual lisp提供了一個完整的集成開發環境（ide），包括編譯器、調試器和其他工具，可以提高自定義autocad的效率。另外，visual lisp提供了發布用autolisp編寫的獨立應用程序的工具。visual lisp沒有任何特殊的硬件需求，能運行autocad系統即可運行visual lisp。功能如下：(1) 語法檢查器：可識別autolisp語法錯誤和調用內置函數時的參數錯誤。(2)

27、 文件編譯器：改善了程序的執行速度，并提供了安全高效的程序發布平臺。(3) 源代碼調試器：專為autolisp設計，利用它可以在窗口中單步調試autolisp源代碼，同時還在autocad圖形窗口顯示代碼運行結果。(4) 文字編輯器：可采用autolisp和dcl語法著色，并提供其他autolisp語法支持功能。(5) autolisp格式編排程序：用于調整程序格式，改善其可讀性。(6) 全面的檢驗和監視功能：用戶可以方便地訪問變量和表達式的值，以便瀏覽和修改數據結構。這些功能還可用來瀏覽autolisp數據和autocad圖形的圖元。(7) 上下文相關幫助：提供autolisp函數的信息。強

28、大的自動匹配功能方便了符號名查找等操作。(8) 工程管理系統：維護多文件應用程序更加容易。(9) 打包功能：可將編譯后的autolisp文件打包成單個模塊。(10) 桌面保存和恢復能力：可保存和重用任意vlisp任務的窗口環境。(11) 智能化控制臺窗口：它給autolisp用戶提供了極大的方便，從而大大提高了用戶的工作效率。控制臺的基本功能與autocad文本屏幕類似，還提供了許多交互功能，例如歷史記錄功能和完整的行編輯功能等。2.1.2 visual lisp的啟動和界面由于visual lisp集成于autocad系統內部，因此用戶必須先啟動autocad，然后才能進入visual li

29、sp ide環境。啟動visual lisp的方式為：菜單：【tools（工具）】【autolisp】【visual lisp editor（visual lisp編輯器）】命令行：vlide（或vlisp）啟動visual lisp后，其主要界面如圖2-1所示。圖2-1 visual lisp的環境界面2.13文本編輯器概述主要功能：1.彩色代碼顯示2.文本格式化3.括號匹配4.執行autolisp表達式（不離開文本編輯器）5.在多文件間進行查找6.語法檢查2.14運行autolisp程序(1) 確認編輯窗口處于前臺狀態，選擇菜單【tools（工具）】【load text in editor

30、（加載編輯器中的文字）】，則該程序被加載并運行。系統將返回autocad窗口，并提示用戶選擇一點，并以指定點為基點來繪制文字。(2) 如果用戶退出visual lisp環境并返回autocad系統窗口，則需要對該程序進行加載后，才能運行。選擇菜單【tools（工具）】【load appcation.（加載應用程序）】，彈出load/unload applications（加載/卸載應用程序）對話框。查找并選擇上一步中所創建的hello.lsp文件，并單擊按鈕進行加載。加載后的文件名稱將顯示在loaded applications（已加載的應用程序）列表中，并在對話框的左下部顯示加載信息。(3)

31、 完成加載后，單擊按鈕關閉對話框，系統將運行hello.lsp程序。22 visuallisp的調試功能調試程序往往是程序開發過程中最費時間的過程，所以visuallisp提供了一個強大的調試器，它的功能包括：（1）跟蹤程序執行過程（2）跟蹤程序執行過程中的變量值（3）查看表達式的求職順序（4）檢驗函數調用時的參數值（5）中斷程序的執行（6）單步執行程序（7）檢驗堆棧提供的調試程序工具有：檢驗窗口：在“檢驗”對話框中顯示指定對象的詳細信息，如圖2-2所示。圖2-2檢驗對話框“符號服務”對話框：符號可以使變量或函數名。通過符號服務對話框可以查看變量的當前值、函數的定義和設置變量及函數的一些特性斷

32、點循環模式：在程序內部設置斷點，中斷程序的執行，并允許用戶在中斷時查看和修改對象值監視窗口：在程序執行過程中查看變量的值，如圖2-3和2-4所示。圖2-3 添加監視窗口圖2-4 監視顯示結果2.3 控制臺操作1.控制臺的功能這里是用命令操作的地方（visuallisp命令、autolisp命令），并能看到結果，類似于autocad的命令行窗口如：(setqa“hello,theworld!”)查看a的值時在控制臺窗口用：a（表示回車）autocad命令：！a2.visuallisp控制臺窗口中的獨特特性可以在新的一行上輸入上一行沒有完成的autolisp表達式可在前輸入多個表達式，并在visu

33、allisp給控制臺返回一個值之前將為每一個表達式求值光標在任意位置均可用移至提示符所在行上，如果選中的有文本，則同時移至提示符所在行（此功能可以復制）使用tab鍵可獲得以前輸入的文本，每按一次即可將上一次的文本顯示，循環執行。shift+tab與tab類似，只是方向相反使用tab鍵可以實現關聯查找，如輸入“（+tab”會在以前輸入的文本中查找以“（+”開頭的文本esc鍵清除提示符下的所有字符，shift+esc則離開當前行上的文本，并在新的提示符下準備接受用戶的輸入3.系統控制臺的快捷菜單單擊右鍵第3章程序的編寫3.1 程序的編寫name (vlxls-app-init) usage imp

34、ort microsoft excel type library, set prefix of msxl- for all of the :methods-prefix; :properties-prefix & :constants-prefix. this function can detect excels installation path automatically from windows registry so that it can run smoothly on any language platform of windows and office. input none n

35、o arguments retval true boolean msxl-xl24hourclock fail boolean nil (defun vlxls-app-init (/ osvar ggg olb8 olb9 olb10 tlb out msg msg1 msg2) (if *chinese* (setq msg n 初始化微軟excel msg1 042初始化excel錯誤042 msg2 (strcat 042 警告 n = n 無法在您的計算機上檢測到微軟excel軟件 n 如果您確認已經安裝excel, 請發送電子郵 n 件到kozmosovia獲取更多的解決方案042

36、 ) ) (setq msg n initializing microsoft excel msg1 042initialization error042 msg2 (strcat 042 warning n = n can not detect excel97/200x/xp in your computer n if you already have excel installed, please email n us to get more solution via kozmosovia042) ) ) (if (null msxl-xl24hourclock) (progn (if (

37、and (setq ggg (vl-registry-read hkey_local_machinesoftwaremicrosoftwindowscurrentversionapp pathsexcel.exe path ) ) (setq ggg (strcase (strcat ggg excel.exe) ) (progn (foreach osvar (list systemroot windir winbootdir systemdrive username computername homedrive homepath programfiles ) (if (vl-string-

38、search (strcat % osvar %) ggg) (setq ggg (vl-string-subst (strcase (getenv osvar) (strcat % osvar %) ggg ) ) ) ) (setq olb8 (findfile (vl-string-subst excel8.olb excel.exe ggg) olb9 (findfile (vl-string-subst excel9.olb excel.exe ggg) olb10 (findfile (vl-string-subst excel10.olb excel.exe ggg) ) (cond (= (vl-filename-base (vl-filename-directory ggg) office12 ) (setq tlb ggg out 2007 ) )(= (vl-filename-base (vl-filename-directory ggg) office11 ) (setq tlb ggg out 2003 ) ) (= (vl-filename-ba