机械设计8二维几何建模方法PPT.ppt

8 二维几何建模方法;2.交互几何建模实例 绘制如下图所示法兰盘的零件图 。;8.2 参数化几何建模; 例如下图开槽圆柱头螺钉，如果采用参数化，只需输入它的定位点、旋转角和一组参数(d，L，L1，d k，n，k，t)，即可绘制完整的螺钉。; 采用图形参数化，还可以解决用交互式难以绘制的图形，例如下图所示的图形，两圆弧的圆心、半径已知，两直线与之相切。尽管条件是充分的，然而用绘制直线和绘制圆弧的命令不能简单地绘出该图。如果采用参数化，由程序计算出P1，P2，P3和P4点的坐标，再调用绘制直线和圆弧的命令，即可一次绘出该图。;3.图形参数化的步骤 1)确定参数;3)通过图形函数或者图形命令绘制图形 例如：C语言绘制直线P1P2的语句为 line(p1x，p1y，p2x，p2y)； AutoLISP绘制直线P1P2的语句为 (command line (list p1x p1y) (list p2x p2y) );(defun c:screw(/ p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 pl0 pll p12 p13 p14 p15 p16 p17 p18 p19 p20 pl pr d l alf dk k n tt d1 dk1 n1 d2 l1);这些参数是局部变量 (setq p0 (getpoint \n输入螺钉的定位点：)) (setq d (getdist \n输入螺钉直径：)) (setq l (getreal \n输入螺钉长度：)) (setq alf (getreal \n输入螺钉螺旋角：));(setq dk (* 1.5 d) k (* 0.6 d) n (* 0.2 d) tt (* 0.25 d) l1 (* 2 d)) (setq d1 (* 0.5 d) dk1 (* 0.5 dk) n1 (* 0.5 n) d2 (* 0.425 d)) (setq p1 (polar p0 (+ alf (* 0.5 pi)) d2) p2 (polar p0 (+ alf (* -0.5 pi)) d2)) (setq p3 (polar p0 (+ alf (* 0.5 pi)) d1) p4 (polar p0 (+ alf (* -0.5 pi)) d1)) (setq p5 (polar p0 (+ alf (* 0.5 pi)) dk1) p6 (polar p0 (+ alf (* -0.5 pi)) dk1)) (setq p7 (polar p5 (+ alf pi) k) p8 (polar p6 (+ alf pi) k)) (setq p9 (polar p7 (+ alf (* -0.5 pi)) (- dk1 n1)) p10 (polar p8 (+ alf (* 0.5 pi)) (- dk1 n1))) (setq p11 (polar p9 alf tt) p12 (polar p10 alf tt)) (setq p15 (polar p1 alf l) p16 (polar p2 alf l)) (setq p17 (polar p3 alf l) p18 (polar p4 alf l)) (setq pl (polar p0 (+ alf pi) (+ k 4)) pr (polar p0 alf (+ l 5)));(command linetype s center );画中心线 (command lweight 0) (command line pl pr ) (command linetype s bylayer ) (command lweight 0) (command line p5 p7 p9 p11 p12 p10 p8 p6 c) (command line p3 p17 p18 p4 ) (if ( l l1) (progn (setq l1 (- l l1));如果螺钉长度大于螺纹直径的两倍，则螺纹部分的长度为螺纹直径的两倍 (setq p19 (polar p3 alf l1) p20 (polar p4 alf l1)) (setq p13 (polar p1 alf l1) p14 (polar p2 alf l1)); (command line p19 p20 ) ) (setq p13 p1 p14 p2);如果螺钉长度不大于螺纹直径的两倍，则整个长度均有螺纹 ) (command lweight 0) (command line p13 p15 ) (command line p14 p16 ) (c