CAD程序设计课程第一次作业.docx

1、 第一作业 Visual LISP练习一、 目的要求1、了解如何启动Visual LISP,熟悉VLISP编程界面。2、在Visual LISP环境下编辑并运行程序。3、Visual LISP环境下查找VLISP程序错误。4、了解VLISP赋值和求值函数及主要计算函数的功能、格式及应用。二、 作业内容 1、按下列步骤试运行程序1）启动Visual LISP启动AutoCAD后，可采用以下任一种方法进入VLISP：Command: VLISP或者VLIDE菜单ToolsAutoLISPVisual LISP Editor2）在文本编辑区键入以下程序该程序的功能是定义一个画矩形的函数，此函数有四个

2、形参：x 、y 、p1 及lw分别代表矩形的长、宽、基点和线宽，用户调用该函数时用实际的数值赋予该四个形参即可画出任意尺寸的矩形。注：程序中可能存在错误请自行查找3）保存文件： 下拉菜单FileSave 保存该文件，取名为：box.lsp4）文件装入内存 command: (load “box”)程序如无语法错误，将返回函数名box；如有语法错误，将返回错误提示用户需回到VLISP编辑器中，修改程序。注意：如果用load函数加载，后面的文件需要标明盘符/文件夹等5) 运行应用程序 在AutoCAD图形窗口中：Command: (box 80 60 (40 40) 0.4)并回车，程序执行结果自

3、动画出，基点在40,40点，宽80, 高60,线粗0.4的矩形。2、用VLISP表达式计算下列各式1).程序段：(setq x (expt 2.154 (/ 1.0 7)结果： 1.11585 2). 程序段：(setq x (/ (- (* 23.55 16.77) (* 18.33 11.45)(* 34.56 78.44)结果： 0.06826363).程序段： (setq x (expt (+ (expt 4.55 2) (/ (* 3.34 (expt 6.78 3) (+ (expt 2.55 2) (expt 8.99 3) 0.5)结果：4.703464)Log521 程序段：

4、(setq x (log (expt 5 21)结果：20.98495).tag45 程序段：(setq x (/ (sin(* 0.017453 45)(cos(* 0.017453 45)0.999974结果：0.999974 6).arcsin0.4程序段：(setq x (* (/ (atan (expt (- (/ 1 (- 1 (expt 0.4 2) 1) 0.5) pi) 180)结果：23.57823、求下列表达式的返回值程序段：_$ (setq LLL ( (1 A) (2 B) (3 C) (4 D) )(1 A) (2 B) (3 C) (4 D) )_$ (assoc

5、 2 LLL)(2 B)_$ (car LLL)(1 A)_$ (cadr LLL)(2 B)_$ (nth 3 LLL)(4 D)_$ (length LLL)4_$ (cadr (assoc 3 LLL)C 4、设(setq La (A B)(C)(D E) )从La表中取出元素A、B、C、D、E程序段：_$ (setq La (A B)(C)(D E)(A B) (C) (D E)_$ (car (car (car La)A_$ (last (car (car La)B_$ (car (cadr (car La)C_$ (car (car (cdr La)D_$ (last (cadr

6、La)E5、比较LIST、APPEND、CONS用法的区别（LIST (a b c) (x y z)）（APPEND (a b c) (x y z)）（CONS (a b c) (x y z)）程序段：_$ (list (a b c) (x y z)(A B C) (X Y Z)_$ (append (a b c) (x y z)(A B C X Y Z)_$ (cons (a b c) (x y z)(A B C) X Y Z) 6、实践练习：输入下面程序，查看结果：输出：本程序的功能是什么？ 答：本程序用于绘制直角三角形，三角形的直角顶点是pa点，两条底边长分别为ww、hh，斜边长为kk.

7、 PB夹角=53.1301度, PC夹角=36.8699度.三、思考题1、运行一个自定义的VLISP程序需要那几个步骤？1. 进入AutoCAD。2. Command：VLISP进入VLISP编程环境。3. 下拉菜单FileNew File创建一个新文件。4. 在文本编辑区键入自定义程序。5. 下拉菜单Load File Save，保存该文件。6. 下拉菜单ToolsLoad Text in Editor，加载当前编辑窗口的文件。7. 运行应用程序。2、如何利用VLISP的分色功能、括号匹配和设置断点检查程序的错误？ 分色功能：VLISP编程环境具有按照语法分色的功能，系统内的标准函数（如se

8、tq、defun、getpoint等）被显示为蓝色；而VLISP不能识别的内容将显示为黑色，如用户定义的变量；字符串用粉红色。如果应当是系统函数而没有呈蓝色显示，就一定是函数名拼写错误。如果字符串中的文字不为粉红色，一定是在当前程序的后方少了引号。括号匹配：将光标放在检查的起始位置上之后，按下相关的快捷键：Ctrl+：向程序前方匹配括号Ctrl+：向程序后方匹配括号设置断点：先在编辑器中选定需要检查的若干行程序片段，然后执行以下操作：菜单ToolsCheck Selection（检查编辑器中选定的程序）。如果有错误，就在编译输出窗口中双击这个错误信息，VLISP就会激活编辑窗口，并将光标放在出

9、错的程序行的头部，并亮显相关表达式。3、VLISP程序结构有什么特点？1. AutoLISP程序是一个由许多子表组成的一个大表。所谓表，就是由圆括号括起来的，用空格分隔的若干元素形成的数据结构形式，如表（A B C），表中有三个元素，表的长度为3.表的结构可层层嵌套，如（A （B C）（D），该表有三个元素，即一个原子A，两个子表（B C）和（D）。表是有序的，如（A B）不等于（B A）。若表中无元素，称为空表，可写作（）。2. 表中的两个元素之间至少有一个空格，多个空格的作用和一个空格的作用相同。3. 一段完整的LISP程序，左右括号数必须相同，即括号匹配的原则。4. AutoLISP语言采用前缀表示法，即运算符放在操作数之前。5. 可在程序的任何地方对程序进行注释，以分号标志开始到行末的全部内容为注释，AutoLISP对注释内容不解释也不执行。6. 除字符串外，AutoLISP程序中的字母可随意大小写。7. 程序中“”号表示回车。8. AutoLISP调用AutoCAD绘图命令的编程顺序和键入绘图过程对应。8 / 8