AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第5章 AutoLISP文件.ppt

《AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第5章 AutoLISP文件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章AutoLISP文件1.了解AutoLISP文件操作的概念；2.掌握AutoLISP文件打开、关闭、读写相关函数的使用；3.能够用AutoLISP文件操作函数编写程序，实现程序设计；本章要求：AutoLISP语言和其它高级语言一样具有文件处理功能，提供了文件操作函数。在AutoLISP语言中，程序和数据二者都具有相同的结构，所以程序文件和数据文件二者无严格区别。AutoLISP提供的文件操作函数能处理数据文件，也能处理程序文件。另外，AutoLISP只支持ASCⅡ码的顺序文件。AutoLISP提供了一个Load函数，可以将程序文件装入内存，并对其求值。第5章Aut

2、oLISP文件5.1AutoLISP文件的特点AutoLISP文件的扩展名为.lsp，是由若干个AutoLISP表达式构成的。一个LISP文件可定义多个函数或AutoCAD命令。以下是一个表达式分写在若干行上的实例：(defunplus(xy)(+(*xy)x))以下是一行写若干个表达式的实例：(setqa2.0)(setqb4.0)(+ab)第5章AutoLISP文件5.1AutoLISP文件的特点由于在AutoLISP程序中含有大量的括号，使得程序代码不易阅读。解决这个问题的方法就是缩排对齐格式。(defunfun(x)(cond((>x0)1)((=x0)2)((

3、x0)1)((=x0)2)((

4、为AutoCAD命令，as为局部变元(setqas33)；设置as为第一个ASCII码33(while(<=as90)；while循环开始(princ(chras))；打印ASCII码的为as的字符(terpri)；换新行(setqas(1+as))；设置as为as的下一个ASCII码)；while循环结束)；命令定义结束第5章AutoLISP文件5.3在AutoCAD环境下加载AutoLISP文件1．命令行方式加载AutoLISP文件用load函数，调用load函数的格式如下：Command：(load"驱动器:\路径\文件名"["出错信息"])例如：文件fi1e

5、1.lsp最后一个表达式是定义函数func1，它的路径是d:user1。加载该文件的表达式如下：Command：(load"d:\user1\fi1e1""没有找到这个文件！")若加载成功，返回函数名func1，否则返回"没有找到这个文件！"这个信息。第5章AutoLISP文件5.3在AutoCAD环境下加载AutoLISP文件2．对话框方式选择下拉菜单Tools®LoadApplication项,或者选择下拉菜单Tools®AutoLISP®Load项,或者在“Command：”提示下键入appload，通过随后弹出的“Load/UnloadApplicatio

6、ns”对话框加载AutoLISP文件。3．自动加载AutoCAD在启动时，可以自动加载acad.lsp、acad2006.lsp、acaddoc.lsp和acad2006doc.lsp4个lisp文件。用户可以创建和维护这些文件，其中acad.lsp和acaddoc.lsp只能由用户来创建。第5章AutoLISP文件5.3在AutoCAD环境下加载AutoLISP文件4．间接自动加载如果把调用autoload函数的表达式写在自动加载的acad2006doc.lsp等文件内，在AutoCAD启动时，随着acad2006doc.lsp等文件的自动加载，被调用的autoloa

7、d函数还可以加载一些LISP文件。调用autoload函数的格式如下：Command：(autoloadlisp文件名命令表)第5章AutoLISP文件5.4搜索、获得文件的函数1.(FINDFILE<文件名>)FINDFILE函数搜索<文件>的路径，并返回此路径描述。若<文件>不存在，它就返回NIL。例如：若“Li.Lsp"文件在C:ACAD路径下则：(FINDFILE"Li.Lsp")返回"C:\ACAD\Li.Lsp"第5章AutoLISP文件5.4搜索、获得文件的函数2.(GETFILED"对话框标题""文件名""扩展名"标