六单元机械CADCAM应用软件开发教程.ppt

(if testexprthenexpr[elseexpr ] ）： 注：一个语句 ( if( x 0) (setq xx 0.0) (setq xx 1.0))) (while testexpr [expr...]) (setq n 1) (while (= n 10) (print (strcat (itoa n) “x” (itoa n) “=“ (itoa (* n n))) (setq n (1+ n)) ) (repeat int [expr...]) (repeat 4 (setq a (+ a 10)) (setq b (+ b 100))); 500 (foreach x list expr) (foreach n (list 1 2 3 4 5 6 7)(print n))=A B C 第六章 机械CAD/CAM应用软件开发 控制结构语句 (progn ()) :一次条件计算多个表达式 (if (= a b) (progn (princ \nA = B ) (setq a (+ a 10) b (- b 10)) ) ) 第六章 机械CAD/CAM应用软件开发 控制结构语句 Lisp 中的空格：每个元素间原则上应有空格，但括号间可以省略空格； (setq pt1 (list 12.0 50.0))； (setq pt2(getpoint “enter a point:”))； (command “line” pt1 pt2 )； (command “ ”)； Lisp 中的“‘”: 表示引用 Lisp 中的“\\” and “/”: （load “d:\\…\\filename”) （load “d:/…/filename”) 第六章 机械CAD/CAM应用软件开发 路径设计： 编程画一个任意角度的矩形 设p1为基点，长为length宽为width角度为ang (defun c:rec() (setq p1 (getpoint “Base point:”) p1x (car p1) p1y (cadr p1) length (getdist p1”Length:”) Width (getdist p1 “width:”） Ang (getangle p1 “angle:”) Y2 (* length (sin ang)) x2 (* length (cos ang)) Y4 (* width (cos ang)) x4 (* width (sin ang)) ) (command “pline” p1 (list (+ p1x x2)(+ p1y y2)) (list (+ p1x (- x2 x4)) (+ p1y y2 y4)) (list (- p1x x4)(+ p1y y4)) “c” ) ) (p1x,p1y) x2 y2 x4 y4 第六章 机械CAD/CAM应用软件开发 第六章 机械CAD/CAM应用软件开发 何 钢 机电工程学院 河海大学 机械专业课程 第六章 机械CAD/CAM应用软件开发 主要内容 §1 应用软件开发的意义 §2 软件工程基础 §3 CAD软件的研制方法 §4 基于AutoCAD的开发环境 §1 应用软件开发的意义 系统软件的通用性好、适应性好，但效率低 企业的要求千差万别 二次开发，提高CAD系统的运行效率 企业软件具有专有技术， 专用软件价格昂贵 商品化CAD/CAM软件系统均配备有用户二次开发接口和工具 AutoCAD系统提供有AutoLisp、ADS、ARX 应用软件的开发具有较强的针对性和实用性，开发工作量和开发难度一般都很大。因此，应用CAD/CAM软件的开发必须结合具体应用的特点、专门知识和要求，制定合适的技术路线，遵循软件工程的原则进行具体实施 第六章 机械CAD/CAM应用软件开发 CAD/CAM应用软件开发应遵循的原则 软件要求： 所开发的软件应方便用户使用，无需训练。不必具有计算机方面的专门知识和程序编制技术。 应使用户尽量少记各种操作规则、专门术语和符号。注重界面友好性。 采用灵活的提示信息。 可以容忍的响应时间。 良好的出错处理、容错能力。 对