基于AutoLISP的快速生成模板外輪廓和標(biāo)注外輪廓的AutoCAD二次開發(fā)

1、基于autolisp的快速生成模板外輪廓和標(biāo)注外輪廓的autocad二次開發(fā)2011年2月第2期(總第147期)曲狂,lguangxijournaloflightindustry計(jì)算機(jī)與信息技術(shù)基于autolisp的快速生成模板外輪廓和標(biāo)注外輪廓的autocad二次開發(fā)莫玉梅(肇慶科技職業(yè)技術(shù)學(xué)院,廣東肇慶526114)【摘要】介紹用autolisp對(duì)autocad進(jìn)行二次開發(fā),開發(fā)新命令,該命令能快速把模板的外輪廓及其尺寸和板的中心同時(shí)出現(xiàn)在畫面上,將可以省去很多繪圖時(shí)間,還可以減少錯(cuò)誤的出現(xiàn),使得繪圖的效率大大提高.【關(guān)鍵詞】autolisp;autocad;二次開發(fā)【中圖分類號(hào)】tp39

2、1.72【文獻(xiàn)標(biāo)識(shí)碼】a【文章編號(hào)】10032673(2011)0262021前言autocad是目前微機(jī)上應(yīng)用最為廣泛的通用交互式計(jì)算機(jī)輔助繪圖與設(shè)計(jì)軟件包.在工程設(shè)計(jì)各專業(yè)中,autocad以其強(qiáng)大的圖形支撐能力和開放的結(jié)構(gòu)體系,無可爭(zhēng)辯地成為cad市場(chǎng)的龍頭.隨著cad制圖的普及,在autocad上開發(fā)出的各專業(yè)軟件也越來越多,但由于這些軟件大多不是具體為用戶量身定做,具有一定的普及適用性;或者由于用戶各人習(xí)慣原因,不適用;或者達(dá)不到用戶要求的高效率.針對(duì)上述問題,各行業(yè)的工程師應(yīng)該利用相關(guān)的開發(fā)技術(shù),開發(fā)符合各自設(shè)計(jì)工作特殊需要的應(yīng)用程序,還有利于提高工作效率.autolisp語言是一

3、種嵌在autocad內(nèi)部的lisp編程語言,既具有一般高級(jí)語言的基本結(jié)構(gòu)和功能,包括賦值,打印,條件,循環(huán),文件等函數(shù).又具備autocad所特有的圖形處理能力.利用autolisp語言編制的程序可以直接增加,修改和調(diào)用autocad命令,在各種工程cad系統(tǒng)的開發(fā)中起著重要的作用.在autocad2000以后,通過visuallisprvlisp)集成開發(fā)環(huán)境(integrateddevelopmentenvironment,ide)所提供的編輯器,凋試器以及其他工具,用戶可方便地編寫和修改autolisp源程序代碼,調(diào)試,運(yùn)行autolisp程序.2開發(fā)目的針對(duì)某個(gè)運(yùn)用autocad軟件繪

4、圖的部門或公司,特別是生產(chǎn)模架的公司,繪圖中出現(xiàn)參數(shù)化的標(biāo)準(zhǔn)比較多,運(yùn)用autolisp對(duì)autocad進(jìn)行二次開發(fā),使得autocad具有更強(qiáng)大,更適用,更高效,更準(zhǔn)確的命令,使得該設(shè)計(jì)和繪圖部門有統(tǒng)一快捷的autocad新命令.在模具設(shè)計(jì)和模板的繪圖過程中,模板的外輪廓及其標(biāo)注是必不可少的,同時(shí)繪制模板所花去的時(shí)間在整個(gè)繪圖中占有相當(dāng)?shù)谋戎?這個(gè)必不可少的過程,對(duì)于有著多個(gè)模板的模具,如能達(dá)到使用一個(gè)命令就能把模板的外輪廓及其尺寸和板的中心同時(shí)出現(xiàn)在畫面上,將可以省去很多繪圖時(shí)間,還可以減少錯(cuò)誤的出現(xiàn),使得繪圖的效率大大的提高.3開發(fā)的關(guān)鍵技術(shù)和程序3.1程序的預(yù)期目標(biāo)把模板長(zhǎng)和寬設(shè)定為參

5、數(shù),希望能在輸入模板長(zhǎng)100和模板寬80后,自動(dòng)的將圖形根據(jù)輸入的長(zhǎng)和寬畫出,并自動(dòng)定義板的中心,同時(shí)板的輪廓尺寸自動(dòng)標(biāo)注,并注明x軸,y軸.程序運(yùn)行過程中,所有的所有的線型,比例,文本樣式等均做好設(shè)定.使用該命令能在20秒內(nèi)完成,如圖1所示.圖13.2構(gòu)思程序流程及相關(guān)變量構(gòu)思的程序流程圖(1)定出程序名為aa.1sp.(2)構(gòu)思程序流程,如圖2所示.圖2(3)相關(guān)變量的設(shè)定,如圖3所示.圖33.3程序編寫過程的程序fdefunc:aaf/filolderr0cmocooblolderroplopwplpwp1p2【作者簡(jiǎn)介】莫玉梅(1982一),女,廣西南寧人,機(jī)械工程專業(yè)課教師,機(jī)械工程

6、助教,研究方向:軟件二次開發(fā).62p3p4p5p6p7p8sllllpw1)(setqolderrerror)(setqerroraiabort)(setqocm(getvarcmdecho;0cm獲得當(dāng)前作用命令(setqobl(getvarblipmode);0bl獲得當(dāng)前點(diǎn)記模式(setqoco(getvarcecolor);oco獲得當(dāng)前顏色(setvarcmdecho0);使用autolisp(c0mmand)函數(shù),不響應(yīng)提示與輸人數(shù)據(jù)(command一.undo一group)(setvarblipmodeo);關(guān)閉控制點(diǎn)記符號(hào)(十字光點(diǎn))(command一.1inetypescen

7、ter);加載中心線command一.1inetypeshidden);加載虛線command一.1inetypescontinuous);加載實(shí)線;$以下是模的外輪廓尺寸(setqpl(getreal(strcatn請(qǐng)輸入模板長(zhǎng):)pw(getreal(strcatn請(qǐng)輸入模板寬:);以下是獲取繪制的模板外輪廓的四個(gè)點(diǎn)p1p2p3p4和畫中心線的四個(gè)點(diǎn)p5p7p6p8料(setqp10ist(/pl2.0)一1)(/pw2.0)一1)p2oist(carp1)(牛一1cadrp1)p3oist(/pl2.o)(/pw2.0)p4oistearp3)cadrp1)p5oist(一earp1)(

8、/pl1oo)o)p6oist0(+(cadrp2)(/pl1o0)p7oistlcarp5)0)p80ist0(一1cadrp6);$以下是設(shè)置線的顏色及線型$setvarcecolor4,(setvarceltypecontinuous),.cacacacacacaca$以下是繪制模板的外輪廓%commandlinep1p2p3p4e,;$,ca$以下是設(shè)置標(biāo)注線與標(biāo)注點(diǎn)的距離$(setqs1(entlast)111(一(ear(getvarextmax)(car(getvarextmin)pw1(木(/0.5317)0.6ll1);半毋半卓術(shù)奉卓母半卓卓羋書宰豐以是繪制中心線卓宰宰羋卑豐

9、豐書羋卓掌豐commandtextstylestandarddimscale(/pl12)hseale(/pl500);設(shè)置尺寸比例和線型比例(commandcehypecentercecolor2);設(shè)置中心線的線型及顏色commandlinep5p7linep6p8,:;畫中心線(commandplinep5wpwlp7plinep6wpw1p8;加粗中心線;木豐牢豐水棗木木木宰術(shù)木幸豐木以下是標(biāo)注過程木術(shù)木木術(shù)*cacacacacacacehypecontinuouseecolor2;改變線型和線的顏色63dim;以下是尺寸的標(biāo)注ordinatepl0ist(一carp1)plo.02(

10、cadrp1)ordinatep20ist卜earp2)(半pl0.02)(cadrp2)ordinatep2(1istearp2)(+(pl0.02)(cadrp2)ordinatep3oist(carp3)(+pl0.02)eadrp3)ordinatep6(1istcarp6)(+plo.o1)(cadrp6)<>ftimes:h1.5x;+yordinatep5(1ist(一(carp5)pl0.01)(cadrp5)<>ftimes;|h1.5x;一xezoomezoom.8x,setvarcmdechooem)setvarblipmodeob1)(setva

11、rcecoloroco)(setqerrorolderr)command一.undo一e)(princ)4程序的加載和使用現(xiàn)以程序文件為aa.1sp為例,說明如何加載和使用新生成的命令:4.1加載當(dāng)程序aa.1sp加裁成功時(shí),autocad自動(dòng)生成了名為aa的新命令.此時(shí)我們就可以使用該命令了.4.2使用生成了新命令,即可使用.其方法如下:(1)在autocad命令窗口輸入aa再按enter鍵或按空格鍵;autocad命令窗口有指示:請(qǐng)輸入模板長(zhǎng):.如圖4所示.圖4(2)輸入模板長(zhǎng)度100,再按enter鍵或按空格鍵;隨后autocad命令窗口有指示:請(qǐng)輸入模板寬:.如圖5所示.圖5(3)輸入

12、模板寬8o,再按enter鍵或按空格鍵;隨后autocad顯示窗口將出現(xiàn)繪制完成的長(zhǎng)為100,寬為8o,并完成了標(biāo)注,同時(shí)繪有0點(diǎn)和x,y坐標(biāo)的圖形.如圖6所示.(下轉(zhuǎn)第72頁(yè))利用flash完成動(dòng)畫創(chuàng)作實(shí)現(xiàn)人機(jī)交互,在熟知課程重點(diǎn)和難點(diǎn)的基礎(chǔ)上,引入更多的經(jīng)典范例,演示難以記錄的變化過程,啟發(fā)學(xué)生的創(chuàng)新思維.4.3制作合成動(dòng)畫軟件課件系統(tǒng)最核心的環(huán)節(jié)是制作合成日1.其主要任務(wù)是根據(jù)制作腳本的要求和意圖設(shè)計(jì)教學(xué)過程,利用flash和authorware將各種素材進(jìn)行整合,制作成交互性強(qiáng),操作靈活,視聽效果好的多媒體教學(xué)系統(tǒng).4.4利用多種響應(yīng)方式實(shí)現(xiàn)人機(jī)交互根據(jù)課程內(nèi)容和教學(xué)目的,將課件的交互

13、性設(shè)計(jì)重點(diǎn)放在2個(gè)方面,一是用播放按鈕選擇課程內(nèi)容的播放,停止等,控制學(xué)習(xí)速度;二是以文字,圖形等按鈕響應(yīng),實(shí)現(xiàn)章節(jié)之間的跳轉(zhuǎn),控制學(xué)習(xí)的進(jìn)度.本課件將課程的各章學(xué)習(xí)內(nèi)容分別設(shè)置在不同場(chǎng)景,各節(jié)內(nèi)容分別占有一定數(shù)量的幀,故利用已設(shè)置在舞臺(tái)上圖板一側(cè)的章節(jié)按鈕和播放按鈕,便可以方便地選擇學(xué)習(xí)內(nèi)容,以便實(shí)現(xiàn)學(xué)習(xí)內(nèi)容的切換.服裝結(jié)構(gòu)設(shè)計(jì)課程比較適合采用選擇,判斷,問答,糾錯(cuò)等題型.選擇,判斷類題型可將答題項(xiàng)設(shè)置為按鈕,選擇答案后,題板上能以電影剪輯形式動(dòng)畫示意正確或錯(cuò)誤;對(duì)于問答題和糾錯(cuò)題,可將答案在此幾字或圖錯(cuò)誤的部分設(shè)置為按鈕,給按鈕編寫程序代碼,使之跳轉(zhuǎn)到各題對(duì)應(yīng)的正確答案所在幀.5結(jié)束語運(yùn)用

14、flash開發(fā)教學(xué)課件,圖形,動(dòng)畫等畫面都很好,服裝結(jié)構(gòu)設(shè)計(jì)課程引入計(jì)算機(jī)輔助教學(xué),不僅增加了課程信息容量,改進(jìn)了教學(xué)效果,也使學(xué)生加深了對(duì)課程重點(diǎn)和難點(diǎn)內(nèi)容的理解.并且,網(wǎng)上教學(xué)課程的開發(fā),也為自學(xué)該課程創(chuàng)造了條件,應(yīng)用的范圍會(huì)更加廣泛.服裝結(jié)構(gòu)設(shè)計(jì)動(dòng)畫軟件不僅能輔助課堂教學(xué),增加課堂的信息量,提高學(xué)生的學(xué)習(xí)興趣,還能進(jìn)行遠(yuǎn)程網(wǎng)絡(luò)教學(xué);不僅能促進(jìn)服裝教育體系和教學(xué)內(nèi)容的改革,還能大大推進(jìn)教與學(xué)方法的更新i41.參考文獻(xiàn)【11宋丹,王立紅,甘應(yīng)進(jìn).服裝結(jié)構(gòu)設(shè)計(jì)網(wǎng)絡(luò)教學(xué)課件系統(tǒng)的研發(fā)】.長(zhǎng)春工業(yè)大學(xué)(自然科學(xué)版),2004,25(3):7678.2】蔣麗君,甘應(yīng)進(jìn),閆良敏.服裝結(jié)構(gòu)設(shè)計(jì)多媒體網(wǎng)絡(luò)

15、課件的開發(fā)】.長(zhǎng)春工業(yè)大學(xué),2003,24(1):7275.3】徐東.基于flash的服裝結(jié)構(gòu)設(shè)計(jì)網(wǎng)絡(luò)教學(xué)課件的研究】.天津工業(yè)大學(xué),2002,21(4):6163.甘應(yīng)進(jìn),陳東生,蔣麗君.服裝結(jié)構(gòu)設(shè)計(jì)多媒體教學(xué)系統(tǒng)的研發(fā)】.紡織,2005,26(1):138140.(上接第63頁(yè))圖6(4)出現(xiàn)了如圖6證明了命令的完滿結(jié)束.5結(jié)論本文介紹了用autolisp對(duì)autocad進(jìn)行二次開發(fā),開發(fā)新命令,該命令能快速把模板的外輪廓及其尺寸和板的中心同時(shí)出現(xiàn)在畫面上.在模具設(shè)計(jì)和模板的繪圖過程中,模板的外輪廓及其標(biāo)注是必不可少的,同時(shí)繪制模板所花去的時(shí)問在72整個(gè)繪圖中占有相當(dāng)?shù)谋戎?現(xiàn)開發(fā)出新命令,將可以省去很多繪圖時(shí)間,還可以減少錯(cuò)誤的出