計算機輔助設計在各行業已獲得廣泛的應用。AutoLISP是一種內嵌(polarp7(+angZlpi))2.1)(polarplo(+angZ(lpiZ))0.6)0弓.1J.1月.1PP、,.J尹于AutocAD中的表處理程序設計語言,屬于解釋型高級語言,能夠直接在AutoCAD內部運行。我們可以利用Aut0USP語言,編寫一段簡單程序,并將其作成菜單命令和工具欄中的按鈕,這樣以后繪制電氣符號時,輕輕一點就能完成電氣符號的繪制。1.程序流程圖輸人命令拾取基點Pl給出符號的角度給出符號的代號計算PI一P12P61一P64各點的坐標繪制常閉按鈕符號繪制常閉按鈕代號結束support子目錄下aead.Isp文件中(若無此文件則需創建一個名為acad.lsP的文件),這樣在以后,每次啟動Aut0CAD時,系統都會自動調人acad.lsP文件,并加載常開按鈕“kan”命令。繪圖時在“eommand:”提示下鍵人“kan”,即可運行該命令。;;繪制常開按鈕程序:(defunC:kan();以“kan”為常開按鈕的命令(eommand”osnap,,”end,‘);設定對象捕捉方式為端點(setqpl(getpoint即In輸人基點:”)):拾取繪制基點PI(command即osnap即即none。);關閉對象捕捉方式(setqangl(getangle,,/n輸人角度(0水平;l垂直)或用鼠標給出方向:”));給出方向angl(setqsym(getsrring”n輸人按鈕代號:’‘));給出按鈕代號symif(=anglo)setqang20)setqangZ(lpi一2))etqpZ(polarplang26);定pl-了獷、、rf、了理、、、J苦產了勝、2.程序的編輯根據GB4728《電氣圖用符號》和GB6988(電氣制圖》中的規定,對于電氣符號大小不做具體要求,方向有水平、垂直兩種,只要給定了方向和基點,符號就可以確定了。現以電氣圖中常用的按鈕為例,我們命名它為“kan”,編輯程序可通過“command”下輸人“EDIT”命令,也可以用其他的文本編輯軟件進行編輯,如果您使用的是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);根據角度angZ定plZ點坐標(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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。