第13章 综合应用实例 清华CAD二次开发 LISP.ppt

(setq jybj (+ fdybj (* bwxsh msh)));节圆半径=分度圆半径+变位量 (setq temy1 (* msh (+ chdjx chdgaoxsh)));齿顶高1+齿顶间隙0.25 (setq chtgen (+ jybj temy1));齿轮中心到齿条根部的距离 (setq chtdi (+ chtgen 3.0));齿轮中心到齿条底根部的距离 (setq chtdi (- (cadr chlzhx) chtdi));齿条下底的y (setq chtzuo (- (car chlzhx) (* 2 jybj)));齿条左边x (setq p01 (list chtzuo chtdi)) (setq chw (* pi msh));周节 (setq chtgeny(+ chtdi 3.0));齿条根y (setq p0 (list chtzuo chtgeny)) (setq chh (* 2.0 temy1));齿条全齿高 (setq chb (/ (* chh (sin ylj)) (cos ylj))) (setq cha (* 0.25 (- chw (* 2 chb)))) (setq chnu(* 0.5 chsh));齿条的齿数 (setq chnum 0.0) (command color white) (setq chtemp p0) (command pline p01 p0 ) (while( chnum chnu);绘制齿条轮廓线 (setq chnum (1+ chnum)) (command (setq p1 (list (+ cha (car p0)) (cadr p0)))) (command (setq p2 (list (+ chb (car p1)) (+ chh (cadr p1))))) (command (setq p3 (list (+ (* 2.0 cha) (car p2)) (cadr p2)))) (command (setq p4 (list (+ chb (car p3)) (- (cadr p3) chh)))) (command (setq p5 (list (+ cha (car p4)) (cadr p4)))) (setq p0 p5) ) (setq p02 (list (+ chtzuo (* chnum chw)) chtdi)) (command p02 p01 c);齿条轮廓线绘制完毕 (setq e1(entlast));获取齿条的图元名 (command region e1 );将齿条转换为面域 (setq tiao(entlast));获取转换为面域的齿条的图元名 (command color white) (command circle chlzhx dybj);绘制齿顶圆 (setq c1(entlast));获取齿顶圆的图元名 (command region c1 );将齿顶圆转换为面域 (setq c1(entlast));获取转换为面域的齿顶圆的图元名 (command circle chlzhx kbj);绘制轮孔圆 (setq c2(entlast));获取轮孔圆的图元名 (command region c2 );将轮孔圆转换为面域 (setq c2(entlast));获取转换为面域的轮孔圆的图元名 (command subtract c1 c2 );齿顶圆的面域减去轮孔圆的面域 (setq lun(entlast));获取齿轮毛坯的图元名 (setq dphi(/ 360.0 (* chsh qxcsh)));齿轮毛坯每次旋转角度 (setq chtydjl (/ chw qxcsh));齿条每次移动距离 (setq shjqxcsh 0);实际切削次数 (setq ydjl 0.0);累计移动距离 (while (= shjqxcsh (* qxcsh chsh)) (setq ydjl (+ ydjl chtydjl)) (setq dx chtydjl);齿条移动距离 (if (= ydjl chw) (progn;ydjl大于等于周节chw (setq ydjl 0.0) (setq dx (* (- 1 qxcsh) chtydjl));齿条退回一个周节 ) ) (command copy tiao (0 0) (0 0));原地复制齿条 (setq tiao1(entlast)) (command subtract lun tiao1 );齿轮毛坯减去齿条 (command rotate lun c