机械CAD／CAM技术课件第6章

第六章第六章 机械机械CAD/CAM应用软件开发应用软件开发 6.1 6.1 软件工程基础软件工程基础 6.2 6.2 机械机械CAD/CAMCAD/CAM应用软件开发原则和步骤应用软件开发原则和步骤 6.3 6.3 机械机械CADCAD应用软件二次开发技术应用软件二次开发技术6.1 6.1 软件工程基础软件工程基础提提出出背背景景：是为解决20世纪60年代所出现的软件开发过程不容易控制、开发工作量估算困难、软件质量低、项目失败率高等“软件危机”问题而提出的一种软件产品开发的工程方法。软软件件工工程程定定义义：是指开发、运行、维护和修改软件的系统方法，即制定和采用合理的工程原则，以最低的成本、最短的时间、最好的质量开发出满足用户需求的软件。核核心心思思想想：把软件看作是一个工程来处理，把需求计划、可行性研究、工程审核、质量监督等工程化的概念引入到软件产品的开发设计过程，以期达到工程项目的三个基本要素精度、经费和质量综合优化。软件生存周期：软件生存周期：可行性研究与计划阶段需求分析阶段设计阶段软件编制测试阶段运行与维护阶段测试10%设计15%需求分析5%维护 67%运行3%软件开发各阶段成本软件开发各阶段成本 计划需求分析设计编码测试运行维护软件开发模型软件开发模型1.1.瀑瀑布布模模型型 各项软件工程活动如同瀑布流水，逐级下落，自上而下、相互衔接的固定次序。瀑布式软件开发模型瀑布式软件开发模型2.2.原原型型模模型型 根据已知需求，快速开发所需软件的原型，然后对软件原型进行评估和测试，进行修改和细化，直至完善为止。需求收集构造原型用户测试运行原型意见反馈原型修改补充完善原型式软件开发模型原型式软件开发模型3.3.螺螺旋旋模模型型 是瀑布模型与原型模型的有机结合，其开发过程经一次次迭代完成，每迭代一次，软件开发前进一个层次，直到得到用户满意。风险分析工程实施测试分析用户评估用户交流计划制定螺旋模型CAD/CAM应用软件开发原则：应用软件开发原则：高素质的软软件件开开发发人人才才，既掌握计算机应用技术，又懂得产品设计，熟悉了解用户的具体需求；所开发的软件应方便用户使用方便用户使用，无需对用户做过多的培训；应尽量使用户少少记各种操作规则记各种操作规则、专门术语和符号；采用灵活的信息提示信息提示；可以容忍的响应时间响应时间；良好的出错处理出错处理。应按照软件工程方法软件工程方法组织CAD/CAM应用软件的开发。6.2 6.2 机械机械CAD/CAMCAD/CAM应用软件开发原则和步骤应用软件开发原则和步骤CAD/CAMCAD/CAM应用软件开发要求应用软件开发要求1.明确对硬件性能指标要求，包括主机速度、存储容量、输入/输出设备等；2.明确所需的系统软件和软件工具,包括操作系统、编程语言、图形标准等；3.严格按软件工程的规范执行；4.制定软件质量保证计划，以确保所开发软件可靠、正确和实用；5.软件文档的编制应符合文档资料的完整、正确、规范的要求，并力求通俗易懂，避免含糊混淆术语的使用。CAD/CAMCAD/CAM应用软件开发步骤应用软件开发步骤1.1.可可行行性性研研究究 可行性论证报告；初步项目开发计划；合同书；软件质量保证计划。2.需需求求分分析析 软件需求说明书；数据要求说明书；修改后项目开发计划；测试计划；初步用户手册；软件配置管理计划。3.3.总体设计总体设计 总体设计说明书；数据库/数据结构设计说明书。4.4.详细设计详细设计 详细设计说明书；模块开发卷宗。5.软件编制软件编制 模块开发卷宗；初步操作手册。6.软软件件测测试试 可运行系统源程序清单；测试分析报告；用户手册和操作手册；项目开发总结报告。7.7.运行和维护运行和维护 运行日志；软件问题报告；软件修改报告。6.3 CAD应用软件二次开发技术应用软件二次开发技术CADCAD应用软件二次开发环境与工具应用软件二次开发环境与工具1.利用计算机高级语言开发，如VC、VB等；2.以商用CAD/CAM系统作为基础平台，利用其开发工具进行CAD应用软件的二次开发。3.构造面向CAD开发的CASE（Computer Aided Software Engineering,计算机辅助软件工程）环境。AutoCADAutoCAD二二次次开开发发工工具具：AutoCAD具有开放的体系结构和先进的ACIS图形造型内核，是应用最广泛的交互式辅助设计系统，提供了丰富的开发环境。1 1、AutoLISP/Visual LISPAutoLISP/Visual LISPAutoLISPAutoLISP：具有直观、方便、程序文件小、通用性强、易掌握特点，但运行速度慢、保密性差等不足。Visual LISPVisual LISP：可视化开发工具，克服了AutoLISP不足。装载运行步骤装载运行步骤：激活Visual LISP文本编辑器窗口,进行程序编辑；点击Run工具条按钮，提示“程序已经被装载”信息；在控制台提示处输入带有括号的AutoLISP程序名，便开始运行该程序。通过菜单FileExit或窗口关闭按钮退出。编辑器跟踪窗控制台状态行菜单区工具栏 Visual LISP工作界面ADS(Advanced Development System)ADS(Advanced Development System)是自AutoCAD R11版所提供的一种C语言开发工具，提供了一套应用程序接口API，可使用丰富的C语言函数库，能够完成一些AutoLISP无法完成的任务，运行速度明显提高。ADS实质是AutoLISP一种C语言版本，需要通过AutoLISP与AutoCAD通讯来运行自身应用程序,不能脱离AutoLISP环境独立运行。Object ARX(AutoCAD Runtime eXtension)Object ARX(AutoCAD Runtime eXtension)是自AutoCAD R13版所提供的面向对象VC+语言开发工具，是第三代用户开发工具。ARX采用面向对象技术，直接访问AutoCAD数据库，独立进行应用软件开发，是对AutoCAD的实时扩展。ARX应用程序实质为Windows动态连接库(DLL)，可共享AutoCAD进程和内存空间，可以与AutoCAD直接通信，允许直接访问AutoCAD图形库。ARX所需环境包括：支持ARX和AutoCAD平台的操作系统、VC语言编译系统、Object ARX所提供的开发软件包SDK等。VBAVBA（Visual Basic for Application programming environment）提供VB语言开发ADS应用程序的接口VBA，丰富了AutoCAD二次开发手段。这些接口文件成为AutoCAD的一个标准安装组建。AutoLISPAutoLISP编程技术编程技术AutoLISP是一种由一对对圆括号构造的表处理结构，可多层嵌套，采用“前缀表示法”。通用格式为：(函数名 参数)例如：数学表达式：X=(A+B)*CAutoLISP赋值函数:(setq X(*(+A B)C)表元素可为整数、实数、字符串、表、图元名、符号和变量等多种数据类型。常用AutoLISP函数有：计算函数、关系运算与逻辑运算函数、字符处理函数、命令函数、表处理函数、条件循环函数、文件处理函数、输入/输出函数、自定义函数等。类型函 数功 能计算函数(+)返回所有数的和(-)返回与后面所有数的差(*)返回所有数的乘积(/)返回除以的商(minusp)检查是否为负数，若为负数，返回T，否则返回nil(zerop)检查是否为零，若为零，返回T，否则返回nil(1+)返回加1后的值，注意1与之间不能有空格(1-)返回减1后的值，注意1与之间不能有空格(abs)返回的绝对值(sin)返回的正弦值，单位为弧度(cos)返回的余弦值，单位为弧度(atan)若无，返回的反正切，单位为弧度；若有，返回/的反正切；若为零，返回表组成LISP语言的程序LISP程序采用前缀形式：（元素0 元素1 元素2 ）构成LISP程序时，表中元素0必为函数名称，其后的各个元素为该函数（元素0）的变量。LISP程序对字母的大小写是不加区分的。例如（+1 2）是一个LISP程序的例子，其中为函数名，1和2为函数的变量。（二）LISP函数 LISP语言是一种函数型计算机语言，LISP语言拥有的功能是通过其函数表现出来的。LISP函数具有返回值和特定的功能。如（1 2）例中，函数返回值为3，函数的特定功能是求和。各种类型的LISP函数用来完成LISP语言所有的功能。1.代数运算函数代数运算函数用于完成代数运算，包括赋值函数（SETQ），四则运算函数（+、-、*、/），三角函数（SIN、COS、ATAN）以及其他代数函数（ABS、EXP、EXPT、SQRT）。代数运算函数的使用方法很容易掌握，唯一要注意的是LISP程序具有前缀结构的特点，各种函数运算都必须将函数名作为LISP表达式中最前面的元素。1)SETQ函数格式：（SETQ v1 e1 v2 e2 vn en）其功能是将ei的计算值赋予变量vi，函数返回值为en的计算值。（注：方括号部分是可选项，以下同。）例：（SETQ x 1 y （+1 2）将常数1的计算值1赋予变量x，LISP表达式（+1 2）的计算值3赋予变量y，函数返回值为3。2)+函数格式（+n1 n2 n3 nm）功能是对函数变量求和函数返回值为变量之和：n1+n2+n3+nm。例：（1 2 3）返回值63)函数格式：（-n1 n2 n3 nm）功能是对函数变量求差。当m1，函数只有一个变量n1时，函数返回值为0-n1，即-n1；当m2时，函数返回值为n1-(n2+n3+nm)。例1：（8）返回值8例2：（8 2 3）返回值3 4)*函数格式：（*n1 n2 n3 nm）功能是对函数变量求积函数返回值为变量的乘积：n1n2n3nm例：(*2 3)返回值65)函数格式：（/n1 n2 n3 nm）功能是求函数变量的商函数返回值为 n1 /（n2n3nm）。当函数变量均为整型数时，函数返回值也为整型数；当函数变量中至少有一个为实型数时，函数返回值为实型数。例1（/3 2）返回值为1例2（/3 2.0）返回值为1.56)SIN函数格式:（SIN n）功能是求函数变量n的正弦值函数返回n的正弦值。变量n的单位为弧度。例（SIN (/PI 2)）的返回值为1.0，式中PI为LISP符号变量，表示圆周率值。7)COS函数格式:（COS n）功能是求函数变量n的余弦值，函数返回n的余弦值。变量n的单位为弧度。用法与SIN函数相同。8)ATAN函数格式：（ATAN n1 n2）功能是求反正切值arc tan n1 或 arc tan（n1/n2）当只有一个函数变量时，函数返回值的范围为（-/2，/2）；当存在2个函数变量时，函数返回值的范围为（-,。函数返回值的角度单位为弧度。例：例：（ATAN 0ATAN 0）返回值返回值0.00.0（ATAN 1ATAN 1）返回值返回值0.7850.785（ATAN 1 1ATAN 1 1）返回值返回值0.7850.785（ATAN 1 1ATAN 1 1）返回值返回值2.3562.356（ATAN 1 1)ATAN 1 1)返回值返回值-0.785-0.785（ATAN 1 1)ATAN 1 1)返回值返回值-2.356-2.356（ATAN 1 0)ATAN 1 0)返回值返回值1.57081.5708（ATAN 1 0)ATAN 1 0)返回值返回值-1.5708-1.5708（ATAN 0 1)ATAN 0 1)返回值返回值3.143.14（ATAN 0 1)ATAN 0 1)返回值返回值0.00.09)ABS函数格式格式（ABS nABS n）功能是求绝对值功能是求绝对值函数返回函数返回n n的绝对值的绝对值ExamplesExamples(abs 100)(abs 100)100 100(abs-100)(abs-100)100 100(abs-99.25)(abs-99.25)99.25 99.2510)EXP函数格式格式（EXP nEXP n）功能是求功能是求e e的指数的指数函数返回函数返回e en nExamplesExamples(exp 1.0)(exp 1.0)2.718282.71828(exp 2.2)(exp 2.2)9.025019.02501(exp-0.4)(exp-0.4)0.67032 0.67032 11)EXPT函数格式（ESPT m n）功能是求m的指数函数返回mnExamples(expt 2 4)16(expt 3.0 2.0)9.012)SQRT函数格式（SQRT n）功能求 平方根函数返回n的平方根Examples(sqrt 4)2.0(sqrt 2.0)1.414212.自定义函数LISPLISP语言提供了许多基本函数，称为内部函数语言提供了许多基本函数，称为内部函数或系统函数，利用这些函数可以直接编写或系统函数，利用这些函数可以直接编写LISPLISP程序，例如程序，例如tantan的的LISPLISP程序可编写为（程序可编写为（/（SIN SIN x x）（COS xCOS x）。对于复杂的程序，直接利）。对于复杂的程序，直接利用基本函数编写程序并不是一个好方法，编写用基本函数编写程序并不是一个好方法，编写LISPLISP程序更多是利用自定义函数来编写程序。程序更多是利用自定义函数来编写程序。自定义函数是用户自己定义的函数，又被称为自定义函数是用户自己定义的函数，又被称为用户函数或外部函数。自定义函数的使用和系用户函数或外部函数。自定义函数的使用和系统函数的使用方法是一致的，用户在使用方面统函数的使用方法是一致的，用户在使用方面不会感觉到两者的差异。不会感觉到两者的差异。自定义函数DEFUN格式：(DEFUN name （A1 A2 AL /V1 V2 VM）e1 e2 en)上表中第0个元素DEFUN是自定义函数的函数名，第1个元素name是符号变量，为自定义函数所定义的用户函数的名称。用户函数名称后是用户函数的变量表，变量表后面是函数定义体，决定了函数name的功能和返回值。函数name的返回值是en的计算结果。变量表:（A1 A2 AL /V1 V2 VM）变量表中的元素都是所定义的用户函数的局部变变量表中的元素都是所定义的用户函数的局部变量，可分成以量，可分成以“”分隔的两个部分，方括号表分隔的两个部分，方括号表示可选项，表中示可选项，表中“”前的可选项前的可选项AA1 1 A A2 2 A AL L 为新设立的用户函数为新设立的用户函数namename的函数变量，表中另一的函数变量，表中另一可选项可选项/V/V1 1 V V2 2 V VMM 中的元素不是用户函数的中的元素不是用户函数的函数变量，它们仅仅是用户函数函数变量，它们仅仅是用户函数namename的局部变量。的局部变量。所谓局部变量是指仅仅在定义函数内部存在并起所谓局部变量是指仅仅在定义函数内部存在并起作用的变量，它对定义函数以外的程序无任何干作用的变量，它对定义函数以外的程序无任何干扰。变量表可以是空表（即表中不包含任何元素）。扰。变量表可以是空表（即表中不包含任何元素）。自定义函数举例：程序(defun add10 (x)(+10 x)(+10 x)调用(add10 5)返回值15(add10 2.0)返回值12.0自定义函数举例：程序(defun add5 (x)(+10 x)(+10 x)调用(add5 5)返回值15(add5 2.0)返回值12.0局部变量和全局变量(setq x 1 y 2 z 3)(print x)(print y)(print z)(defun try (x /y)(setq x 4 y 5 z x)(try 6)(print x)(print y)(print z)例：自定义正切函数自定义正切函数：(DEFUN tan (x /y)(SETQ y (COS x)(IF (/=y 0)(/(SIN x)y)调用正切函数(tan 0)，返还的正切函数值为0.0(tan pi)，返还的正切函数值为0.0(tan (/pi 4)，返还的正切函数值为1.0 可以看到，用户自定义的正切函数的使用方法与LISP系统函数SIN或COS的用法相同。Visual LISPVisual LISP是Auto LISP的换代产品。它与Auto LISP完全兼容，并提供它所有的功能，是新一代的Auto CAD LISP语言。作为开发工具，Visual LISP提供了一个完整的集成开发环境，包括编译器、调试器和其他工具，可以提高二次开发的效率。Visual LISP窗口LISP语言使用过程1.编程定义用户函数2.装载程序3.调用程序3.分支结构分支结构在LISP语言中有二分支结构和多分支结构两种，与此相关的函数有：关系运算函数(、/、上述函数的用法与函数相同，其功能如同其函数名所示。EQUAL函数格式：(EQUAL e1 e2 e3)功能：常用来比较两个实型数或表是否相等，相等时函数返回T，否则返回NIL。比较两个实型数e1和e2时，取一个很小的正数e3，其判断准则是当|e1-e2|e3 时函数返回T，否则返回NIL。2)AND函数AND函数的格式为（AND e1 e2 en）。当函数变量e1、e2、en中全部有值时，函数返回T，否则返回NIL。3)OR函数OR函数的格式为（OR e1 e2 en）。当函数变量e1、e2、en中至少有一个有值时，函数返回T，否则返回NIL。4)NOT函数NOT函数的格式为（NOT e）。当函数变量为有值时，函数返回NIL，否则返回T。5)IF函数格式：（格式：（IF IF e e1 1 e e2 2）功能是实现程序的二分支结构。功能是实现程序的二分支结构。当判别式的结果为非当判别式的结果为非NILNIL时，函数执行时，函数执行e e1 1并返回并返回e e1 1的的计算值，否则函数执行计算值，否则函数执行e e2 2并返回并返回e e2 2的计算值，若可选的计算值，若可选项项e e2 2不存在，则函数结束运行，返回不存在，则函数结束运行，返回NILNIL。(SETQ a (SETQ a （GETREAL “AGETREAL “A”）c c （GETREAL “CGETREAL “C”)(SETQ x (IF (/=a 0)(/c a)(SETQ x (IF (/=a 0)(/c a)(SETQ y (IF (a 0)(+c a)(SETQ y (IF (a 0)(+c a)（-c a)-c a)6)PROGN函数格式（PROGN e1 1 e2 2 en n）功能是将若干个LISP表达式归并为一个LISP表达式，常用于IF函数内，以便使IF函数能够在e1 1和e2 2的格式规定中作更多的事情。Example(if(=a b)(progn(progn(princ nA=B)(princ nA=B)(setq a(+a 10)b(-b 10)(setq a(+a 10)b(-b 10)7)COND函数格式（COND（测试式1 e11 e12 e1i）（测试式2 e21 e22 e2j）（测试式m em1 em2 emk）COND函数功能是实现多分支结构。COND函数的变量都为表，变量表中的第一个元素是测试式，其余元素是当测试结果为非NIL时顺序执行的LISP表达式。COND函数依次对测试式进行测试，当测试结果为非NIL时，顺序执行其后的LISP表达式。函数返回值为最后执行的表达式计算结果。变量表中可以只有一个元素，即可以只有测试式，此时的函数返回值为测试结果。例：编写下列分段函数的LISP程序解1：可以利用COND函数处理该分段函数，编写程序如下A)A)编写程序编写程序(DEFUN L3-1-1 (x)(DEFUN L3-1-1 (x)(COND(COND(AND (x -10)(x -10)(x -6)(x -6)(x -2)(x -2)(x 2)(x 2)(=x 6)1)(T 2)(T 2)B)B)调用程序（调用程序（SETQ n(L3-1-1 1)SETQ n(L3-1-1 1)），函数），函数L3-1-1L3-1-1返回返回0 0，并将该值赋予变量并将该值赋予变量n n。解2：利用COND函数顺序测试的特点，可以编写更简化的程序如下A)A)编写程序编写程序(DEFUN L3-1-2 (x)(DEFUN L3-1-2 (x)(COND(COND(=x -10)2)(=x -10)2)(=x -6)-2)(=x -6)-2)(=x -2)-1)(=x -2)-1)(=x 2)0)(=x 2)0)(=x 6)1)(=x 6)1)(T 2)(T 2)B)B)调用程序（调用程序（SETQ n (L3-1-2 1)SETQ n (L3-1-2 1)，函数，函数L3-1-2L3-1-2返回返回0 0，并将该值赋予变量并将该值赋予变量n n。4.交互式输入函数GET族函数交互式输入函数提供控制台输入，包括键盘输入和交互式输入函数提供控制台输入，包括键盘输入和光标设备输入。光标设备输入。交互式输入函数包括整型数输入函数（交互式输入函数包括整型数输入函数（GETINTGETINT）、）、实型数输入函数（实型数输入函数（GETREALGETREAL）、字符串输入函数）、字符串输入函数（GETSTRINGGETSTRING）、点输入函数（）、点输入函数（GETPOINTGETPOINT）、角）、角度输入函数（度输入函数（GETANGLEGETANGLE）、距离输入函数）、距离输入函数（GETDISTGETDIST）、关键字输入函数（）、关键字输入函数（GETKWORDGETKWORD）和）和初始化输入函数（初始化输入函数（INITGETINITGET）。）。交互式输入函数为专业软件的二次开发提供了与交互式输入函数为专业软件的二次开发提供了与AutoCADAutoCAD相同的交互界面，简化了软件的开发过程相同的交互界面，简化了软件的开发过程和推广工作。和推广工作。1)GETINT函数格式：（GETINT 提示信息）功能是输入整型数函数返回值为从键盘输入的整型数。提示信息为字符串，用于输入时给出提示。Examples(setq num(getint)(setq num(getint Enter a number:)2)GETREAL函数格式：（GETREAL 提示信息）功能是输入实型数函数返回值为从键盘输入的实型数。Examples(setq val(getreal)(setq val(getreal Scale factor:)3)GETSTRING函数格式：（格式：（GETSTRING GETSTRING 开关变量开关变量 提示信息提示信息）功能是输入字符串功能是输入字符串函数返回值为从键盘输入的字符串函数返回值为从键盘输入的字符串当不选用开关变量或开关变量无值时，输入字符当不选用开关变量或开关变量无值时，输入字符串可以用空格或串可以用空格或RETURNRETURN结束，输入字符串中无结束，输入字符串中无法包括空格。开关变量存在且有值时，则输入字法包括空格。开关变量存在且有值时，则输入字符串中可以包含空格，但必须用符串中可以包含空格，但必须用RETURNRETURN结束字结束字符串。符串。AuotLISPAuotLISP通过这种方式，使字符串输入方式与通过这种方式，使字符串输入方式与AutoCADAutoCAD一致。一致。GETSTRING函数应用实例(setq s(getstring Whats your first name?)Whats your first name?Gary Gary“(setq s(getstring T Whats your full name?)Whats your full name?Gary Indiana Jones Gary Indiana Jones4)GETPOINT函数格式：（GETPOINT pt 提示信息）功能是通过键盘或光标设备输入点可选项pt是一个表示点的表，当pt存在时，移动光标会出现从pt到光标的连线（皮筋线），此时pt也作为相对坐标系的原点对采用相对坐标输入点产生作用。当pt不存在时，相对坐标系的原点由AutoCAD系统变量LASTPOINT决定。函数返回值为表示点的表。GETPOINT函数示例Examples(setq p1(getpoint “First point:”)(setq p2(getpoint p1 Second point:)5)GETANGLE函数格式：（GETANGLE pt 提示信息）功能是通过键盘或光标设备输入角度。函数返回值为表示角度的实型数，单位为弧度。Pt的作用同前。AuotLISP通过这种方式，使角度输入方式与AutoCAD一致。GETANGLE函数示例(setq ang(getangle)(setq ang(getangle Which way?)6)GETDIST函数格式为（GETDIST pt 提示信息）功能是通过键盘或光标设备输入长度。函数返回值为表示距离的实型数。Pt的作用同前。AuotLISP通过这种方式，使长度输入方式与AutoCAD一致。GETDIST函数示例(setq dist(getdist)(setq dist(getdist(1.0 3.5)(setq dist(getdist How far)(setq dist(getdist(1.0 3.5)How far?)7)GETKWORD函数格式为（GETKWORD 提示信息）功能是通过键盘输入关键字。函数返回值定义为关键字的字符串关键字由下面的INITGET函数定义。8)INITGET函数格式：（INITGET bits 关键字）功能是控制GET族函数的输入。函数返回值为NILINITGET函数只对其后的GET族函数起一次作用 COMMAND函数格式：（COMMAND e1 e2 en）功能：在AutoLISP程序中执行AutoCAD命令。由于存在COMMAND函数，LISP程序可以调用几乎所有的AutoCAD命令。COMMAND函数使用要点1.COMMAND函数变量的个数、顺序和类型必须与所调用的命令严格一致。2.函数变量可以是常数、变量及LISP表达式但不允许出现GET族函数。3.不带变量的COMMAND函数，即(COMMAND)，相当于在AutoCAD中使用CTRL-C。4.空字符串“”则相当于在AutoCAD中使用回车。5.一个COMMAND函数可以执行多项AutoCAD命令，一项AutoCAD命令也可以用多个COMMAND函数完成。程序程序1 1：(SETQ(SETQp(GETPOINT“Center point:“)p(GETPOINT“Center point:“)d(GETDIST p“Diameter:“)d(GETDIST p“Diameter:“)(COMMAND(COMMAND“CIRCLE”p“D”d“CIRCLE”p“D”d“ZOOM”“E”“ZOOM”“E”)程序程序2 2：(SETQ p(GETPOINT“Center point:“)(SETQ p(GETPOINT“Center point:“)(COMMAND“CIRCLE”p)(COMMAND“CIRCLE”p)(SETQ d(GETDIST p“Diameter:“)(SETQ d(GETDIST p“Diameter:“)(COMMAND“D”d)(COMMAND“D”d)(COMMAND“ZOOM”“E”)(COMMAND“ZOOM”“E”)15.新建AutoCAD命令用用DEFUNDEFUN函数可以建函数可以建立新的立新的AutoCADAutoCAD命令命令对对DEFUNDEFUN函数有二点限制函数有二点限制:用户函数名前添加用户函数名前添加C:C:用户函数不带函数变用户函数不带函数变量量例例(defun c:add10()(defun c:add10()(+(getint“=X”)(+(getint“=X”)10)10)调用调用:Command:add10Command:add10X=5X=51515例：已知一板长L，宽为B，若在其上截取直径为B的圆形板料，画出排料图。(defun c:div()(setq p0 (getpoint Base Pointn)(setq L (getreal L=)(setq B (getreal B=)(setq R (*B 0.5)(setq p1 (polar (polar p0 0 L)1.5708 B)(command rectangle p0 p1)(setq num (fix(/L B)a 0 )(setq p2 (polar(polar p0 1.5708 R)0 R)(while(a num)(command circle p2 R)(setq p2 (polar p2 0 B)(setq a (1+a)LBVisualLisp的编辑运行步骤：的编辑运行步骤：1）在命令行键入）在命令行键入Vlisp命令，进入命令，进入VisualLisp环境环境2）编辑）编辑Lisp程序程序加载活动编辑窗口图标加载活动编辑窗口图标加载选定代码图标加载选定代码图标检查编辑窗口图标检查编辑窗口图标检查编辑窗口图标检查编辑窗口图标3）加载活动编辑窗口）加载活动编辑窗口4）在控制台键入）在控制台键入(程序名程序名)，便开始运行开发程序，便开始运行开发程序