CAD二次开发教程(AUTOLISP)
26页1、Cad二次开发-AUTOLISP 入门,一、LISP编程语言概述,AutoLISP是由Autodesk公司开发的一种LISP程序语言(LISP是List Processor的缩写)。第一篇关于LISP的参考文献是由John McCarthy 在1960年4月的ACM通讯中发表的。 除了FORTRAN和COBOL, 大多数在六十年代早期开发出来的语言都过时了,可是 LISP却生下来,并且已经成为人工智能(AI)的首选 程序序言。AutoLISP解释程序位于AutoCAD软件包中, 然而AutoCAD R2.17及更低版本中并不包含 AutoLISP解释程序,这样,只有通过AutoCAD 2.18及更高版本才可以使用AutoLISP语言。 AutoCAD软件包中包含大多数用于产生图形的命令,但仍有某些命令末被提供。例如,AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令。通过AutoLISP,你可以使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。事实上,可以用AutoLISP编制任何程序,或把它嵌入到菜单中,这样定制你的系统会取得更高的效率
2、。,二、基本语法,1、一个表达式必须使用配对的括号。2、数学运算1.加法 格式(+ num1 num2 num3.) 此函数()计算加号()右边所有数字的和(+ num1 num2 num3.) 2. 减法 格式(- num1 num2 num3.) 此函数()从第一个数中减去第二个数(num1-num2)4.除法 格式( / num1 num2 num3) 此函数()用第一个数除以第二个数。如果多于两个数,就用第一个数除以其后所有数的乘积num1/(num2 num3 .),3、关系表达式1.等于 格式(= atom1 atom2) 该函数(=)检查两个元素是否相等。若相等,条件为真,函数返回。同样,若指定的元素不相等,条件为假,函数返回nil2.不等于 格式(= atom1 atom2) 该函数(=)检查两个元素是否不相等。若不相等,条件为真,函数返回。同样,若指定的元素相等,条件为假,函数返回nil。 3.小于 格式(atom1 atom2) 该函数()检查第一个元素(atom)是否小于第个元素(atom)。若为真,函数返回,否则返回nil。 4.小于等于 格式(= atom1
3、atom2.) 该函数(=)检查第一个元素(atom1)的值是否大于等于第二个元素(atom2)。若是,函数返回,否则返回nil。,三、基本函数,1.defun函数 defun函数用于在AutoLISP程序中定义函数,其格式为: (defun nameargument) 其中name函数名 argument参数列表 示例: (defun ADNUM(),定义了一个函数ADNUM,此函数无参数,也无局部变量( Local symbols)。这就意味着程序中用到所有变量均为全局变量。全局变量的值在程序结束时不会丢失。(defun ADNUM (b c),定义了一个含有三个参数、 和c的函数ADNUM。变量、 、 从程序外部获取它们的值。 (defun ADNUM(/ ),定义了一个含有两个局部变量和的函数ADNUM。局部变量在程序的执行期间保留其值,而且只能在它所在的程序中使用。,(defun :ADNUM(),在函数名前加上:后,此函数就可以通过在AutoCAD的Command:提示符后输入其函数名来执行。如果没有使用:,函数名则必须置于圆括号中。注意 AutoLISP包含一些内置函数,
《CAD二次开发教程(AUTOLISP)》由会员油条分享,可在线阅读,更多相关《CAD二次开发教程(AUTOLISP)》请在金锄头文库上搜索。
最新学校新冠肺炎疫情突发事件应急处置办法和流程
最新疫情防控期间学校用餐与食堂管理规定和师生一日流程图
最新Xx省xx区返学师生员工健康登记表
诊所简介
高中英语-第二单元-《the-United-Kingdom》课件-新必修5
新版新目标英语七年级下unit4--Don't-eat-in-class课件
新版PEP六年级英语unit6-how-do-you-feel-A-Let's-talk
安徽专版2018秋八年级英语上册Unit5Doyouwanttowatchagameshow第6课时习题课件新人教目标版
酸的和甜的教学课件.doc
Lesson-1-Where-do-we-go-from-here概要
Docker技术与实践
七年级英语下册-Unit-9-What-does-he-look-like(第3课时)(Grammar-Focus-3d)同步语法精讲精练课件-(新版
《I'm-going-to-do-the-high-jump》PPT课件3
高二英语外研版-必修5-Module-2-A-Job-Worth-Doing-Reading课件
英语片段教学-I-can-do-it
Adobe公司简介
安徽专版2018秋八年级英语上册Unit5Doyouwanttowatchagameshow第2课时习题课件新人教目标版
第二单元全课件Unit2-What-time-do-you-go-to-school-全课件
第18课-Windows的磁盘管理与安全
第12章--Windows-Server-2008路由及远程访问
2024-02-09 36页
2024-01-31 31页
2024-01-28 18页
2024-01-28 31页
2024-01-28 24页
2024-01-28 27页
2024-01-28 24页
2024-01-28 25页
2024-01-28 10页
2024-01-24 52页