Auto_Lisp_语言结构

《Auto_Lisp_语言结构》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一、AutoLisp语言结构(DefunC:nnn(/)())二、Lisp语言的加载、编辑、与运行三、变量（1）变量类型由赋值时决定（2）赋值（setqk3）(setqkk‘(abc))表与原子的概念原子是不可再分的表是由原子构成的（setqpt‘(57)）可以同时给多个变量赋值（3）Set（seta500）set与setq的区别使用Set给变量名赋值要先对变量求值setq函数不对变量名求值例(setqa‘b)(seta500)结果a=500b=500例（2）（setqa100）(seta500)出错a已经是100不可能

2、再赋值（4）系统变量AutoCAD内部设定的内部变量(setvar“系统变量名”<数值>)(setvar“DIMTXT”3.5)（5）变量属性(setqk1020)打K就是1020打‘K就是K的名称例划线1,1到100,100（setqa(list11)）(setqb‘(100100))(command“line”ab“c”)四、数值计算函数1．+-*/2．求最大值（Maxxy….）3．求平方根(sqrtx)4．p求任意次方(exptxp)x5．求正弦函数值(sina)a弧度6．求最大公约数（gcdn1n2n3…..）7

3、．求两点的方位角(anglep1p2)8．实数化整数(fixx)9．求两点之间的距离(distancep1p2)10．求另一点的坐标(polarp1angd)11．求交点坐标（intersp1p2p3p4[方式]）缺省为T方式为Nil可以求出延长线上的交点。五、逻辑运算1．逻辑与(andLMN…..)只有都是真才是真2．逻辑或(orLMN….)只要其中一个真就是真3．非(notL)真是假假是真4．（LSHNt）数据移位t为正左移负右移5．(=ab…..)只有各值均相等才为真6．(/=ab)不等7．（>abcd…）只有依次

4、大于才为真8．（>=abcd…..）依次大于等于才为真9．(

5、测试函数17．（minuspx）表达式是否为负18．（Zeropx）零测试函数六、输入函数1．实型数输入（getreal[提示]）2．整型数输入(getint[提示])3．字符串输入(getString[][提示])当[CR]为T时可以输入空串4．坐标点的输入(getpoint[〈点〉][提示])有点则输入有橡皮筋5．距离输入函数(getdist[<基点>][提示])6．输入矩形对角函数（getcorner〈基点>[提示]〉7．角度输入函数（getangle〈基点>[提示]〉8．方位角输入函数（getorient

6、〈基点>[提示]〉9．输入控制函数（initget[<位置>][<关键字>]）位置意义1拒绝空输入2拒绝零输入4拒绝负值8不检查作图范围16必须返回三维点10．字符串输入控制函数（getkword[〈提示〉]）（initget“YesNo”）(setqx(getKword“……YesorNo”))则输入时，只能输入YYeYesNNo11．七、流程控制函数1．(If<条件><表达式>[<表达式>])（if(=13)“yes”“No”）2．复合语句(prong<表达式1><表达式2>…….<表达式n>)3．多分支(cond(

7、<条件1><表达式1>……..)(<条件2><表达式2>……..)………(<条件n><表达式n>……..))4．循环函数1)(while<条件><表达式1><表达式2>…….<表达式n>)2)(repeat<次数><表达式1><表达式2>…….<表达式n>)3)5．八、输入输出函数1．(load“c:\cad\abc.lsp”)2.(read“abcd”)去掉引号还原它的值3．（read_char[文件变量]）4．（read_line[文件变量]）从磁盘上读文件的主要方法5.(princ<表达式>[文件变量])6.(

8、print<表达式>[文件变量])printl7.(open<文件名>(状态))(setqf(open“data.dat”“w”))(print“abcd”f)九、表处理函数和其他函数((ab)70(g4))‘(ab)‘(setqa1)setq不是函数名，而是一个变量(setqa27)主功能和副功能主功能是27副功能