《AutoCAD二次开发技术》实验指导书

《AutoCAD二次开发》

实验指导书

环境与建筑工程学院测绘教研室

实验1 Visual Lisp开发环境的认识和程序运行方法

【实验目的】

1．熟悉所用计算机系统的基本操作方法。

2．学习Visual Lisp的使用方法，掌握程序编辑、编译、打包、运行及查看运行结果的方法。

3．掌握Visual Lisp程序的基本结构。

【实验内容】

1．熟悉使用的计算机系统的基本操作，创建自己的工作目录，参照附录中介绍的方法，掌握Visual Lisp的启动方法（一种或多种），了解AutoCAD系统的安装路径和结构。2．进入Visual Lisp的工作环境，熟悉Visual LISP 用户界面。

3．熟悉Visual Lisp的系统菜单组成及功能。学习使用功能键和快捷键调用菜单项的方法。

掌握文件建立、编辑、修改和保存的方法。落实文件的存储位置是否是你的工作目录，如果不是，回第二步重新设置。

4．了解控制台窗口

5．了解Visual LISP 文本编辑器

6．加载和运行AutoLISP 程序

7．退出Visual LISP

实验2 Visual Lisp应用程序

【实验目的】

1．掌握Visual Lisp语言基本数据类型的概念，理解数据类型与运算的关系。

2．熟悉简单变量的定义和赋值方法，掌握不同类型数据之间赋值的规律。

3．学习Visual Lisp语言运算符优先级和结合性的概念，掌握算术表达式的计算方法及表达式计算中的类型转换方法。

4．掌握数学表达式的程序表示方法。

5．进一步熟悉Visual Lisp程序的编辑、编译、连接和运行的过程。

【实验内容】

1．掌握用Visual LISP 开发程序步骤

2．使用控制台窗口

3．使用文本编辑器

4．使用控制台和编辑器的编码辅助工具

5．用Visual LISP 设置代码格式

6．检查语法错误

7．通过样例学习调试程序

8．使用Visual LISP 调试功能

9．使用Visual LISP 数据查看工具

10．编译和链接程序

11．创建应用程序模块

样例程序：

(defun yinyang (/ origin radius i-radius half-r origin-x origin-y os) (setq os (getvar "OSMODE")) ;; Save OSNAP mode

(setvar "OSMODE" 0) ;; Turn off OSNAP

(setq origin (getpoint "\nOrigin of inyn sign: "))

(setq radius (getdist "\nRadius of inyn sign: " origin))

(setq i-radius (getdist "\nRadius of internal circle: "

origin)

)

(if (> i-radius radius) (setq i-radius (/ radius 4)))

(setq half-r (/ radius 2))

(setq origin-x (car origin))

(setq origin-y (cadr origin))

(command "_.CIRCLE" origin radius)

(command "_.ARC"

"_C"

(list origin-x (+ origin-y half-r)) ;;center

(list origin-x (+ origin-y radius)) ;;start point

origin ;;end point

)

(command "_.ARC"

"_C"

(list origin-x (- origin-y half-r)) ;;center

(list origin-x (- origin-y radius)) ;;start point

origin ;;end point

)

(command "_.CIRCLE"

(list origin-x (+ origin-y half-r))

;;centre

i-radius

)

(command "_.CIRCLE"

(list origin-x (- origin-y half-r))

;;centre

i-radius

)

(setvar "OSMODE" os) ;; Restore OSNAP mode

(princ)

)

实验3 Visual Lisp程序设计

【实验目的】

1．熟练掌握AutoLISP 表达式。

2．熟练掌握AutoLISP 数据类型。

3．熟练掌握AutoLISP 变量。

4．熟练掌握数字处理。

5．熟练掌握字符串处理

6．熟练掌握基本输出函数

7．熟练掌握等量和条件

8．熟练掌握表处理

9．熟练掌握符号和函数处理

10．熟练掌握错误处理

【实验内容】

1．编写一个解算二元一次方程的Visual Lisp应用程序。

2．编程计算半径r=2.5的圆面积、圆周长、球面积、球体积及球表面积。如果高h=4.5，计算圆柱体的表面积和体积。显示结果保留两位小数。

3．输入下面程序并运行

(defun fact2 (nber)

(if

(= nber 0)

1

(* nber (fact1 (1- nber)))

)

)

(defun fact1 (numbr)

(if

(= numbr 0)

1