計算機輔助設(shè)計在各行業(yè)已獲得廣泛的應(yīng)用。AutoLISP是一種內(nèi)嵌(polarp7(+angZlpi))2.1)(polarplo(+angZ(lpiZ))0.6)0弓.1J.1月.1PP、,.J尹于AutocAD中的表處理程序設(shè)計語言,屬于解釋型高級語言,能夠直接在AutoCAD內(nèi)部運行。我們可以利用Aut0USP語言,編寫一段簡單程序,并將其作成菜單命令和工具欄中的按鈕,這樣以后繪制電氣符號時,輕輕一點就能完成電氣符號的繪制。1.程序流程圖輸人命令拾取基點Pl給出符號的角度給出符號的代號計算PI一P12P61一P64各點的坐標(biāo)繪制常閉按鈕符號繪制常閉按鈕代號結(jié)束support子目錄下aead.Isp文件中(若無此文件則需創(chuàng)建一個名為acad.lsP的文件),這樣在以后,每次啟動Aut0CAD時,系統(tǒng)都會自動調(diào)人acad.lsP文件,并加載常開按鈕“kan”命令。繪圖時在“eommand:”提示下鍵人“kan”,即可運行該命令。;;繪制常開按鈕程序:(defunC:kan();以“kan”為常開按鈕的命令(eommand”osnap,,”end,‘);設(shè)定對象捕捉方式為端點(setqpl(getpoint即In輸人基點:”)):拾取繪制基點PI(command即osnap即即none。);關(guān)閉對象捕捉方式(setqangl(getangle,,/n輸人角度(0水平;l垂直)或用鼠標(biāo)給出方向:”));給出方向angl(setqsym(getsrring”n輸人按鈕代號:’‘));給出按鈕代號symif(=anglo)setqang20)setqangZ(lpi一2))etqpZ(polarplang26);定pl-了獷、、rf、了理、、、J苦產(chǎn)了勝、2.程序的編輯根據(jù)GB4728《電氣圖用符號》和GB6988(電氣制圖》中的規(guī)定,對于電氣符號大小不做具體要求,方向有水平、垂直兩種,只要給定了方向和基點,符號就可以確定了。現(xiàn)以電氣圖中常用的按鈕為例,我們命名它為“kan”,編輯程序可通過“command”下輸人“EDIT”命令,也可以用其他的文本編輯軟件進(jìn)行編輯,如果您使用的是AutoCAD2000版本,還可以用工具欄中TooL。~AutoLISP~visulLISPEditor方式來編輯。將編輯好的該程序保存在AutocAD的p4p6一pllp6_l一p6_4p3(polarplangZ12)p4(polarplangZ18)ps(polarp3(+angZ(+pi0.436))s)p6(polarp3(+angZ(+pi0.436))4)p7(polarp6(+angZ(/pi一2))3.2)p6_l(polarp6(+angZ(,pi一2))0.8)p6_2(polarp6(+angZ(/pi一2))1.2)p6_3(polarp6(+angZ(lpi一2))2)p6_4(即larp6(+angZ(/pi一2))2.4)ps(polarp7angZ2.1)pg(polarps(+angZ(zpiZ))0.6)(if(二angZo);根據(jù)角度angZ定plZ點坐標(biāo)(setqplZ(polarp3(/piZ)3))(setqplZ(polarp6(lpiZ)6)))(eommand"l叮er,‘即s即”o即”即);繪制常開按鈕符號(eommand即line”plpZ””)(eommand,,line”psp3p4””)(eommand即line即pgpsplopll””)(eommand即line即p6p6_l””)(command即line即p

總結(jié)

以上是生活随笔為你收集整理的lisp成套电气设计_AutoLISP在电气制图中的应用的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。