/TITLE,the gear model from bottom up /REPLOT WPSTYLE,,,,,,,,1 /PLOPTS,INFO,3 /PLOPTS,LEG1,1 /PLOPTS,LEG2,1 /PLOPTS,LEG3,1 /PLOPTS,FRAME,1 /PLOPTS,TITLE,1 /PLOPTS,MINM,1 /PLOPTS,FILE,0 /PLOPTS,LOGO,1 /PLOPTS,WINS,1 /PLOPTS,WP,0 /PLOPTS,DATE,2 /TRIAD,OFF /REPLOT !* /VIEW, 1 ,1,1,1 /ANG, 1 /REP,FAST /PREP7 !* 生成关键点 K,1,5.428,76.803,0, K,2,5.534,77.803,0, K,3,5.595,79.303,0, K,4,5.411,80.82,0, K,5,5.11,82.342,0, K,6,4.694,83.869,0, K,7,4.208,85.396,0, K,8,3.623,86.92,0, K,9,2.928,88.450,0, K,10,2.214,89.972,0, K,11,0,90,0, /DIST, 1 ,1.371742,1 /REP,FAST !* 连样条线 FLST,3,10,3 FITEM,3,1 FITEM,3,2 FITEM,3,3 FITEM,3,4 FITEM,3,5 FITEM,3,6 FITEM,3,7 FITEM,3,8 FITEM,3,9 FITEM,3,10 BSPLIN, ,P51X !* 镜像 FLST,3,1,4,ORDE,1 FITEM,3,1 LSYMM,X,P51X, , , ,0,0 /VIEW, 1 ,,,1 /ANG, 1 /REP,FAST !* 生成齿顶圆圆弧线 LARC, 13, 10, 11 !* 输入参数 *SET,a,360/28 !* 生成一个圆环面 CYL4, , ,66,90-a/2,77.2,90+a/2 !* 关键点生成面 FLST,2,4,3 FITEM,2,1 FITEM,2,10 FITEM,2,13 FITEM,2,12 A,P51X !* 面相加 FLST,2,2,5,ORDE,2 FITEM,2,1 FITEM,2,-2 AADD,P51X !* 改变当前坐标系 CSYS,1 !* 复制生成整个齿轮 FLST,3,1,5,ORDE,1 FITEM,3,3 AGEN,28,P51X, , , ,a, , ,0 !* 面相加 FLST,2,28,5,ORDE,2 FITEM,2,1 FITEM,2,-28 AADD,P51X !* 显示线 LPLOT !* 显示线 FLST,2,27,4,ORDE,5 FITEM,2,15 FITEM,2,253 FITEM,2,-268 FITEM,2,270 FITEM,2,-279 LCOMB,P51X, ,0 !* 将每个齿的齿底圆弧线相连 LPLOT FLST,2,2,4,ORDE,2 FITEM,2,101 FITEM,2,238 LCOMB,P51X, ,0 FLST,2,2,4,ORDE,2 FITEM,2,109 FITEM,2,239 LCOMB,P51X, ,0 FLST,2,2,4,ORDE,2 FITEM,2,117 FITEM,2,240 LCOMB,P51X, ,0 FLST,2,2,4,ORDE,2 FITEM,2,125 FITEM,2,241 LCOMB,P51X, ,0 FLST,2,2,4,ORDE,2 FITEM,2,133 FITEM,2,242 LCOMB,P51X, ,0 FLST,2,2,4,ORDE,2 FITEM,2,141 FITEM,2,243 LCOMB,P51X, ,0 FLST,2,2,4,ORDE,2 FITEM,2,149 FITEM,2,244 LCOMB,P51X, ,0 FLST,2,2,4,ORDE,2 FITEM,2,157 FITEM,2,245 LCOMB,P51X, ,0 FLST,2,...
