lisp成套电气设计_AutoLISP在电气制图中的应用

计算机辅助设计在各行业已获得广泛的应用。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