参数化绘图ppt课件.ppt

《参数化绘图ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2.6函数的定义1.自定义函数(defun符号参数表标准表)符号即函数名称，参数表包括形参和局部变量，用/隔开，没有则空()。如果有多个参数，则相互之间用空格隔开。功能：不对参数求值，仅仅建立函数的定义，返回用户函数名调用：标准表调用时返回定义体中最后一个标准表的值(defunsymbol_name(args/local_variables)expressions)注意前后有空格1机械CAD变量作用域：全局变量：不在参数列表中的变量局部变量：参数列表中的变量尽量设置为局部变量，必要时通过全局变量传递数据。局部变量占用栈(STACK)空间，可回收利用，

2、全局变量占用堆(HEAP)空间，永久占用。2机械CAD2．应用开发实用函数例：(akey)3机械CAD；角度变弧度函数:(defundtr(a)(*a(/pi180.0)))；按小数点两位四舍五入函数(defuncfix(a)(/(fix(+(*a100)0.5))100.0))4机械CAD；海伦公式求三角形面积(defunarea()(setqa3.5b4.5c7.5)(setqp(*0.5(+abc)))(setqs(sqrt(*(-pa)(-pb)(-pc))))(prints))5机械CAD增加命令(defunc:akey();;)注意不能带

3、形参。6机械CAD全局变量与局部变量Myline.lsp(defunmyline1()(setqp1(getpoint"thefirstpoint"))(setqp2(getpoint"thesecondpoint")))(defunmyline2()(command"line"p1p2""))7机械CADMyline1.lsp(defunmyline()(command"zoom""all")(myline1)(myline2)(printp1)(printp2))8机械CAD三角带轮尺寸查询(defunlundim()(setqao(list"O

4、"2.59.51285.510.2)aa(list"A"3.5121510613.5)ab(list"B"5152012.57.517.4)ac(list"C"62025.5171022.6)ad(list"D"8.52837241232.9)ae(list"E"103344.5291538.9)af(list"F"12.54258381850.6)a(listaoaaabacadaeaf))9机械CAD(setqutype(getstring"type(O,A,B,C,D,E,F)=?"))(setqls(assocutypea)he(nth1ls

5、)h(nth2ls)e(nth3ls)f(nth4ls)h1(nth5ls)b0(nth6ls))(listhehefh1b0))用参数传递型号？10机械CAD绘制图框(defuntxhj()(command"layer“"n"1"n“2"n"3"n“4"n“5"c"11"c"22"c"33"c"44"c"55""))11机械CAD(defunxt(lwp1lw/p3)(setqp3(list(+(carp1)l)(+(cadrp1)w)))(command"pline"p1"w"lw""(polarp10l)p3(polarp1(/pi2.0)w)

6、p1""))12机械CAD(defunth()(initget1"012345")(princ"---------------可供选择的图框号有：0,1,2,3,4,5------------------")(setqn0(read(getkword"请根据零件几何尺寸的大小，选择合适的图号：")))(setqtkl'(1189841594421297210148))(setqtkc(nthn0tkl);tkc外图框长度tkk(nth(1+n0)tkl);tkk外图框宽度)(if(<=n03)(set1ctk10)(setqctk5)))13机械

7、CAD(defuntk(/pp)(th)(txhj)(command"layer""s"3"""limits"'(00)(listtkctkk)"zoom""a")(xttkctkk'(00)0.1)(setqpp(list25ctk))(xt(-tkcctk25)(-tkk(*2ctk))pp0.4))14机械CAD2.7分支结构1关系运算函数=<<=>>=/=对数值型表达式的值的大小进行比较，返回逻辑值T或nil。(<1234)T(<1253)nil(<“A”“B”“C”)T(/=1234)T(/=1124)nil15机械CAD2逻辑运算函数(a

8、nd表达式)如果任何一个表达式的求值结果为nil，本函数就停止进一步的求值并返回nil，否则返回T。如果不带