【正文】 32. {33. jiaodu1 = 0。34. jiaodu2 = 20。35. }36. // 鈍角處延長 延長槽深/cos(斜角) 豎料槽深*tan(斜角)37. DJ = ZhongHengCaoShen/cos(jiaodu2) ShuLiaoCaoShen*tan(jiaodu2)。38. // 銳角處延長 延長槽深/cos(斜角) + 豎料槽深*tan(斜角)39. RJ = ZhongHengCaoShen/cos(jiaodu2) + ShuLiaoCaoShen*tan(jiaodu2)。40. //計算第 2 版41. a2 = 0。42. b2 = a2 + w2 * tan(jiaodu2)。43. _a2 = a2 + ZhongHengCaoShen + DJ。44. _b2 = b2 + ZhongHengCaoShen + RJ。45. //上橫規(guī)格 40 下橫規(guī)格 50 中橫規(guī)格 50 ，下橫槽深 4046. a3 = b3 = (h 40 50 50)/2 。47. //可見部分 + 上橫槽深 + 中橫槽深48. _a3 = _b3 = a3 + 40 + ZhongHengCaoShen。49. a1 = h 50 50 40 b3 b250/cos(jiaodu2)。50. _a1 = a1 + ShangHengCaoShen + DJ。51. b1 = a1 + w1*tan(jiaodu2)。52. _b1 = b1 +ShangHengCaoShen + RJ。53. //平中橫 = 成品門寬 2*豎料規(guī)格 + 2*豎料中橫卡口54. PingZhongHeng = w 2 * 50 +2*2。 55. //斜中橫 = 平中橫 / cos(jiaodu2)。56. XieZhongHeng = _w2 /cos(jiaodu2) 。57. //中橫計算完畢58. 輸出型材(39。斜中橫39。,XieZhongHeng,2*c)。59. 輸出型材(39。平中橫39。,PingZhongHeng,2*c)。60. 輸出梯形(39。梯形大板39。, _a1 , _b1 , _w1 , jiaodu1 , jiaodu2 , c)。61. 輸出梯形(39。梯形小板39。, _a2 , _b2 , _w2 , jiaodu1 , jiaodu2 , c)。62. 輸出長方形(39。長方形板39。,_a3,_w3,2)。 (2)普通組合移門1. h = 門洞高；2. w = 門洞寬；3. c = 門扇數(shù)；4. h1 = h3 = h5 = 200。5. h2 = h4 = ( h h1*3 144)/2。6. w1 = w2 = w3 = w4 = w5 = w 80。7. 輸出長方形(39。1 3 5 板39。,h1,w1,c*3)。8. 輸出長方形(39。2 4 板39。,h2,w2,c*2)。9. shangxiaheng = w 80。10. 輸出型材(39。上下橫39。, shangxiaheng, c*2)。11. shuliao = h 35。 12. 輸出型材(39。豎料39。, shuliao, c*2)。13. 設(shè)置產(chǎn)品(39。上下腰39。)。格條計算 （1）適用方格條、扁格條1. h = 門洞高；2. w = 門洞寬；3. c = 門扇數(shù)；4. 輸出空白。5. 如果( 詢問 (39。是否帶中空鋁條39。) ) 6. {7. //計算格條前必須先計算門的基本材料8. x = 格條計算輸入寬 16。9. y = 格條計算輸入高 16。10. }11. 否則12. {13. x = 格條計算輸入寬 4。14. y = 格條計算輸入高 4。15. }16. //邊緣豎條固定值17. by = 140。18. 如果( x = 900)19. {20. by = 130。21. }22. //中間豎條固定值23. zj = 90。24. 如果( x = 900)25. {26. zj = 80。27. }28. xuanze = 多種選擇(39。隔條種類選擇39。,39。方格條39。,39。扁格條39。)。29. 如果(xuanze == 39。方格條39。)30. {31. //水平方向32. 輸出格條(39。水平格條長39。,x,c)。33. x1 = (x 3*15)/4。34. x2 = x1*2 + 15。35. 設(shè)置加工描述(x+39。開槽39。,x1,x2)。36. 輸出格條(39。水平格條短39。,x2,c)。37. 設(shè)置加工描述(x2+39。開槽39。,x1)。38. 輸出格條(39。水平格條最短39。,x1,c)。39. //豎直方向40. 輸出格條(39。豎格條39。,y,2*c)。41. //從上到下42. yc1 = x1。43. yc2 = x1*2 + 15。44. //通過加工描述設(shè)置開槽位置45. 設(shè)置加工描述(y+39。槽2個口39。,yc1,yc2)。46. 設(shè)置加工描述(y+39。槽1個口39。,yc1)。47. }48. 如果(xuanze == 39。扁格條39。)49. {50. //水平方向51. x1 = (x 3*15)/4。52. 輸出格條(39。x139。,x1,7*c)。53. //豎直方向,短的為正方形54. 輸出格條(39。小段豎格條39。,x1,6*c)。55. //從上到下56. y1 = y 3*x1 3*18。57. 輸出格條(39。次長豎格條39。,y1,c)。58. y2 = y 2*x1 2*18。59. 輸出格條(39。最長豎格條39。,y2,c)。60. } （2）帶菱形1. h = 門洞高；2. w = 門洞寬；3. c = 門扇數(shù)；4. 款式自動命名。5. 輸出空白。6. 如果( 詢問 (39。是否帶中空鋁條39。) ) 7. {8. x = 格條計算輸入寬 16。9. y = 格條計算輸入高 16。10. }11. 否則12. {13. x = 格條計算輸入寬 4。14. y = 格條計算輸入高 4。15. }16. //菱形對角線 dj17. //菱形邊長 bc18. 如果( x = 800)19. {20. dj = 210。21. bc =120。22. }23. 如果( x 800)24. {25. dj = 355。26. bc =219。27. }28. //豎直方向29. //上下定長 30. y1 = y4 = 200。31. y2 = y3 = (y 2*dj 18)/2。32. 輸出格條(39。y139。,y1,2*c)。33. 輸出格條(39。y239。,y2,2*c)。34. //水平方向35. x1 = (x dj)/2。36. x12 = (x 18)/2。37. 輸出格條(39。長橫格條‘，x1,2*c)。38. 輸出格條(39。短橫格條‘，x12,4*c)。39. //菱形格條40. 輸出格條(39。菱形格條‘，bc,8*c)。 （3）帶福字1. h = 門洞高；2. w = 門洞寬；3. c = 門扇數(shù)；4. 款式自動命名。5. 輸出空白。6. 如果( 詢問 (39。是否帶中空鋁條39。) ) 7. {8. x = 格條計算輸入寬 16。9. y = 格條計算輸入高 16。10. }11. 否則12. {13. x = 格條計算輸入寬 4。14. y = 格條計算輸入高 4。15. }16. //菱形對角線 dj17. //菱形邊長 bc18. 如果( x = 800)19. {20. dj = 210。21. bc =120。22. }23. 如果( x 800)24. {25. dj = 355。26. bc =219。27. }28. //豎直方向29. y1 = y4 = 90。30. y2 = y3 = (y 2*dj 18)/2。31. 輸出格條(39。y139。,y1,2*c)。32. 輸出格條(39。y239。,y2,2*c)。33. //水平方向34. x1 = (x dj 2*18)/2。35. x2 = dj。36. 輸出格條(39。x1‘，x1,6*c)。37. 輸出格條(39。x2‘，x2,2*c)。38. //菱形格條39. 輸出格條(39。菱形格條‘，bc,4*c)。 第 37 頁 共 37 頁