autolisp在cad2次开发中的应用毕业答辩.pptVIP

2011届本科毕业答辩;应用Auto lisp在AutoCAD中批量处理图形数据 ;*;一、Auto CAD的二次开发; 1.3 CAD二次开发的语言—AutoLISP Auto LISP语言是Autodesk公司为用户提供的在AutoCAD平台上进行二次开发的早期语言。 Auto LISP不仅具备一般高级基本结构与功能，而且还具有强大的图形处理功能。由于AutoLISP易于掌握，因此，是AutoCAD用户使用较为广泛的编程语言之一。 1.4 CAD二次开发的工具 1.3.1 Visual Lisp 基础 Visual Lisp 是为加速Auto LISP程序开发而设计的软件工具，它提供了一个完整的集成开发环境。无需单独安装，与 AutoCAD 捆绑安装在一起。 1.3.2 DCL 基础 AutoCAD有自己的一套对话框设计语言，称为对话框控制语言（ Dialog Control Language，简称DCL ）。;二、Auto Lisp 用于图层控制; 2.3 设计的过程 2.3.1 编写程序 on.lsp 程序 ; 选择物体单独打开其所在图层 (defun c:on (/ ss ent a en lay) (setq ss (ssget)) (setq ent (sslength ss)) (setq ent (- 1 ent)) (command layer off * y ) (setq a 0) (while ( = a ent) (setq en (ssname ss a)) ;返回选择集中的序号a指定的那个对象的图元名 (setq lay (cdr (assoc 8 (entget en)))) ;获得被选择物体所在的图层;8是图层的组码； (command _layer on lay ) ;打开所选的图层 (setq a (+ 1 a))) (princ) ) ;off.lsp 程序 ; 选择物体关闭其所在图层 (defun c:off (/ ss ent a en lay) (setq ss (ssget)) (setq ent (sslength ss)) (setq ent (- 1 ent)) (setq a 0) (while ( = a ent) (setq en (ssname ss a));返回选择集中的序号a指定的那个对象的图元名 (setq lay (cdr (assoc 8 (entget en))));获得被选择物体所在的图层;8是图层的组码；cdr是取得表第一个元素 （if (= lay (getvar clayer）);获得系统变量的值 (command _layer off lay y ) (progn (command _layer off lay ))) (setq a (+ 1 a))) (princ) ) ; 2.3.2 运行程序 （1）在LISP编辑器中打开LISP程序 （2）检验程序 调试程序 （3）加载程序 （4）程序运行 ; 2.3.3 成果显现;??、Auto LISP处理文字样式; 3.2 设计的过程 3.2.1 对话框的设计 a 设计程序 word.dcl b 对话框的窗口 ; 3.2.2 文字样式对话框驱动 a 编写驱动程序 word.lsp b 驱动过程 将 word.lsp 和word.dcl 文本拷贝到CAD的support中 在LISP编辑器中打开word.lsp文本 检查并修改word.lsp程序 加载word.lsp程序 运行word.lsp程序 ;;1 修改字体高度和宽度;四 自制菜单的生成;五 总结;THE END 谢谢大家GOODBYE!