CAD课程设计圆柱螺旋扭转弹簧二次开发

1、(defun C:th() (setq f1 (open "e:printdate.txt" "r") (setq d (atof (read-line f1);簧丝直径 (setq dd (atof (read-line f1) ;弹簧中径 (setq Yn (atof (read-line f1);弹簧的最大扭转角度 (setq N (atof (read-line f1);有效圈数 (setq Y1 (atof (read-line f1);弹簧的最小扭转角度 (setq Mj (atof (read-line f1);弹簧的极限工作扭矩 (set

2、q M1 (atof (read-line f1);弹簧的最小工作扭矩 (setq Yj (atof (read-line f1);弹簧的极限扭转角度 (setq H0 (atof (read-line f1);弹簧自由状态下的长度 (setq L (atof (read-line f1);弹簧展开长度(setq Mn (atof (read-line f1);弹簧的最大工作扭矩(setq s (atof (read-line f1)(setq N1 (atof (read-line f1) (close f1) (setq p0 (list 50 80) (setq r1 (/ dd 2)

3、(setq r (/ d 2) (setq p1 (polar p0 pi r1) (setq p2 (polar p0 0 (* 6 dd) (setq p3 (polar p0 (* 0.5 pi) r1) (setq p4 (polar p3 pi r1) (setq p5 (polar p3 0 (* 6 dd) (setq p6 (polar p0 (* 0.5 pi) dd) (setq p7 (polar p6 pi r1) (setq p8 (polar p6 0 (* 6 dd) (setq p9 (polar p0 0 r) (setq p10 (polar p0 0 d)

4、 (setq p11 (polar p6 (* 0.5 pi) r1) (setq p12 (polar p11 0 d) (setq p13 (polar p6 0 (* 3 r) (setq p14 (polar p6 0 d) (setq p15 (polar p13 0 r) (setq p16 (polar p3 0 (+ d 0.2 ) (setq p17 (polar p9 0 (+ d 0.4) (setq p18 (polar p17 0 r) (setq p19 (polar p17 pi r) (setq p20 (polar p13 0 (+ d 0.4) (setq

5、p21 (polar p20 0 r) (setq p22 (polar p20 pi r) (setq p23 (polar p16 0 d) (setq p24 (polar p17 0 r1) (setq p25 (polar p24 pi r) (setq p26 (polar p24 0 r) (setq p27 (polar p20 0 r1) (setq p28 (polar p27 pi r) (setq p29 (polar p27 0 r) (setq p42 (polar p24 (* 0.5 pi) r1) (setq p30 (polar p42 0 (+ r 0.2

6、) (setq p31 (polar p24 0 (+ d 0.4) (setq p32 (polar p31 pi r) (setq p33 (polar p31 0 r) (setq p34 (polar p27 0 (+ d 0.4) (setq p35 (polar p34 pi r) (setq p36 (polar p34 0 r) (setq p37 (polar p30 0 d) (setq p38 (polar p37 0 0.4) (setq p39 (polar p31 0 (+ d 0.4) (setq p40 (polar p39 pi r) (setq p41 (p

7、olar p39 0 r) (setq p42 (polar p9 (* 0.5 pi) d) (setq p43 (polar p9 (* 1.5 pi) d) (setq p44 (polar p13 (* 0.5 pi) d) (setq p45 (polar p13 (* 1.5 pi) d) (setq p46 (polar p20 (* 0.5 pi) d) (setq p47 (polar p20 (* 1.5 pi) d) (setq p48 (polar p17 (* 0.5 pi ) d) (setq p49 (polar p17 (* 1.5 pi) d) (setq p

8、50 (polar p24 (* 1.5 pi) d) (setq p51 (polar p24 (* 0.5 pi) d) (setq p52 (polar p27 (* 1.5 pi) d) (setq p53 (polar p27 (* 0.5 pi) d) (setq p54 (polar p31 (* 0.5 pi) d) (setq p55 (polar p31 (* 1.5 pi) d) (setq p56 (polar p34 (* 0.5 pi) d) (setq p57 (polar p34 (* 1.5 pi) d) (setq p58 (polar p39 (* 0.5

9、 pi) d) (setq p59 (polar p39 (* 1.5 pi) d) (setq p60 (polar p3 pi (* 0.5 r1) (setq p61 (polar p11 (* 0.5 pi) r1) (setq p62 (polar p3 0 (* 4.5 dd) (setq p63 (polar p62 (* 1.5 pi) (- r1 r) (setq p64 (polar p62 (* 1.5 pi) (+ r1 r) (setq p65 (polar p64 pi (* dd 0.8) (setq p66 (polar p65 (* 0.5 pi) d) (s

10、etq p67 (polar p63 pi (sqrt(- (* (+ r1 r) (+ r1 r) (* (- r1 r) (- r1 r) (setq p68 (polar p62 (* -0.25 pi) (+ r1 r) (setq p69 (polar p68 (* 0.25 pi) (* r1 3) (setq p70 (polar p69 (* 0.75 pi) d) (setq p121 (polar p62 (* -0.25 pi) (- r1 r) (setq p71 (polar p121 (* 0.25 pi) (sqrt(- (* (+ r1 r) (+ r1 r)

11、(* (- r1 r) (- r1 r) (setq p72 (polar p62 (* 0.5 pi) dd) (setq p73 (polar p62 (* 1.5 pi) dd) (setq p74 (polar p69 (* 0.25 pi) r1) (setq p75 (polar p65 pi r1) (setq p76 (polar p62 (* 0.5 pi) (* 4 r1) (setq p77 (polar p76 pi 40) (setq p78 (polar p77 (* 0.5 pi) 20) (setq p79 (polar p76 pi 30) (setq p80

12、 (polar p79 (* 0.5 pi) 15) (setq p81 (polar p76 pi 20) (setq p82 (polar p81 (* 0.5 pi) 10) (setq p83 (polar p76 (* 1.5 pi) 8 ) (setq p84 (polar p83 (* 1.5 pi) 8) (setq p150 (polar p62 pi dd) (setq p85 (polar p84 (* 1.5 pi) 8) (setq p86 (polar p77 (* 1.5 pi) 24) (setq p113 (polar p9 (* 1.5 pi) r) (se

13、tq p114 (polar p13 (* 0.5 pi) r) (setq p115 (polar p17 (* 1.5 pi) r) (setq p116 (polar p27 (* 0.5 pi) r) (setq p117 (polar p31 (* 1.5 pi) r) (setq p118 (polar p34 (* 0.5 pi) r) (setq p119 (polar p39 (* 1.5 pi) r) (setq p120 (polar p62 (* 0.5 pi) (+ r1 r) (setq p121 (polar p114 pi d) (setq p122 (pola

14、r p41 (* 0.5 pi) (* 4 r1) (setq p123 (polar p20 (* 0.25 pi) (* 0.25 r) (setq p124 (polar p24 (* 0.25 pi) (* 0.25 r) ;*以下模块段中定义的点用于扭矩标注* (setq p89 (polar p82 (* 0.25 pi) 25) (setq p90 (polar p89 0 4) (setq p91 (polar p90 (* 0.5 pi) 2) (setq p92 (polar p91 0 8) (setq p93 (polar p92 (* 1.5 pi) 4) (setq

15、 p94 (polar p90 (* 1.5 pi) 2) (setq p107 (polar p94 (* 0.25 pi) 1) ;*定义弹簧处于最小扭矩状态下M1的信息* (setq p108 (polar p107 0 2.5) (setq p95 (polar p80 (* 0.25 pi) 25) (setq p106 (polar p95 0 4) (setq p96 (polar p106 (* 0.5 pi) 2) (setq p97 (polar p96 0 8) (setq p98 (polar p97 (* 1.5 pi) 4) (setq p99 (polar p10

16、6 (* 1.5 pi) 2) (setq p109 (polar p99 (* 0.25 pi) 1) ;*定义弹簧处于最大扭矩状态下Mn的信息* (setq p110 (polar p109 0 2.5) (setq p100 (polar p78 (* 0.25 pi) 25) (setq p101 (polar p100 0 4) (setq p102 (polar p101 (* 0.5 pi) 2) (setq p103 (polar p102 0 8) (setq p104 (polar p103 (* 1.5 pi) 4) (setq p105 (polar p101 (* 1

17、.5 pi) 2) (setq p111 (polar p105 (* 0.25 pi) 1) ;*定义弹簧处于极限扭矩状态下Mj的信息* (setq p112 (polar p111 0 2.5) (setq p125 (polar p81 (* 1.25 pi) 10) (setq p126 (polar p125 pi 0.2) (setq p127 (polar p126 (* 0.5 pi) 2) (setq p128 (polar p127 pi 8) (setq p129 (polar p128 (* 1.5 pi) 4) (setq p130 (polar p126 (* 1.

18、5 pi) 2) (setq p131 (polar p129 (* 0.25 pi) 1) ;*定义弹簧处于最小扭矩状态下扭转角Y1的信息* (setq p132 (polar p131 0 2.5) (setq p133 (polar p79 (* 1.25 pi) 18) (setq p134 (polar p133 pi 0.2) (setq p135 (polar p134 (* 0.5 pi) 2) (setq p136 (polar p135 pi 8) (setq p137 (polar p136 (* 1.5 pi) 4) (setq p138 (polar p134 (*

19、1.5 pi) 2) (setq p139 (polar p137 (* 0.25 pi) 1) ;*定义弹簧处于最大扭矩状态下扭转角Yn的信息* (setq p140 (polar p139 0 2.5) (setq p141 (polar p77 (* 1.25 pi) 25) (setq p142 (polar p141 pi 0.2) (setq p143 (polar p142 (* 0.5 pi) 2) (setq p144 (polar p143 pi 8) (setq p145 (polar p144 (* 1.5 pi) 4) (setq p146 (polar p142 (

20、* 1.5 pi) 2) (setq p147 (polar p145 (* 0.25 pi) 1) ;*定义弹簧处于最大扭矩状态下扭转角Yj的信息* (setq p148 (polar p147 0 2.5) (setq p151 (polar p61 0 10) (setq p152 (polar p151 (* 0.5 pi) 2) (setq p153 (polar p152 0 8) (setq p154 (polar p153 (* 1.5 pi) 2) (setq p155 (polar p153 (* 1.5 pi) 4) (setq p156 (polar p151 (* 1

21、.5 pi) 2) (setq p157 (polar p156 (* 0.25 pi) 1) ;*定义弹簧处于自由状态下长度H0的信息* (setq p158 (polar p157 0 2.5);*画点划线* (setq ss (getvar "clayer" );获取系统变量函数 (command "lweight" 0.3) ;*设置图层：粗实线* (command "arc" p0 p113 p10) ;*画弹簧中的圆弧部分* (command "arc" p15 p114 p14) (command &

22、quot;arc" p19 p115 p18) (command "arc" p29 p116 p28) (command "arc" p32 p117 p33) (command "arc" p36 p118 p35) (command "arc" p40 p119 p41) (command "arc" p64 p120 p67) (command "circle" p20 r) ;*画弹簧中的圆部分* (command "circle" p

23、24 r) (command "circle" p62 (- r1 r) (command "line" p0 p11 "") ;*画弹簧中的直线部分 (command "line" p11 p12 "") (command "line" p12 p10 "") (command "line" p10 p16 "") (command "line" p14 p19 "") (c

24、ommand "line" p15 p18 "") (command "line" p23 p22 "") (command "line" p21 p18 "") (command "line" p25 p28 "") (command "line" p26 p30 "") (command "line" p28 p32 "") (command "

25、;line" p29 p33 "") (command "line" p35 p37 "") (command "line" p33 p38 "") (command "line" p35 p40 "") (command "line" p36 p41 "") (command "line" p64 p65 "") (command "line"

26、p65 p66 "") (command "line" p66 p63 "") (command "line" p68 p69 "") (command "line" p69 p70 "") (command "line" p70 p71 "") ;*画剖面线* (setvar "clayer" ss) (command "lweight" 0.1) (command &quo

27、t;bhatch" "p" "ansi31" 0.2 0 p123 "") (command "bhatch" "p" "ansi31" 0.2 0 p124 "") (setq ss (getvar "clayer" ); (command "lweight" 0.1) (command "line" p76 p77 "") (command "line&

28、quot; p77 p78 "") (command "line" p76 p78 "") (command "line" p79 p80 "") (command "line" p81 p82 "") (command "line" p82 p89 "") (command "line" p89 p90 "") (command "line" p90 p9

29、1 "") (command "line" p91 p92 "") (command "line" p92 p93 "") (command "line" p93 p94 "") (command "line" p94 p90 "") (command "line" p80 p95 "") (command "line" p95 p106 "&qu

30、ot;) (command "line" p106 p96 "") (command "line" p96 p97 "") (command "line" p97 p98 "") (command "line" p98 p99 "") (command "line" p99 p106 "") (command "line" p78 p100 "") (com

31、mand "line" p100 p101 "") (command "line" p101 p102 "") (command "line" p102 p103 "") (command "line" p103 p104 "") (command "line" p104 p105 "") (command "line" p105 p101 "") (com

32、mand "line" p81 p125 "") (command "line" p125 p126 "") (command "line" p126 p127 "") (command "line" p127 p128 "") (command "line" p128 p129 "") (command "line" p129 p130 "") (comm

33、and "line" p130 p126 "") (command "line" p79 p133 "") (command "line" p133 p134 "") (command "line" p134 p135 "") (command "line" p135 p136 "") (command "line" p136 p137 "") (comma

34、nd "line" p137 p138 "") (command "line" p138 p134 "") (command "line" p77 p141 "") (command "line" p141 p142 "") (command "line" p142 p143 "") (command "line" p143 p144 "") (comman

35、d "line" p144 p145 "") (command "line" p145 p146 "") (command "line" p146 p142 "") (command "line" p61 p151 "") (command "line" p151 p152 "") (command "line" p152 p153 "") (command

36、 "line" p153 p155 "") (command "line" p155 p156 "") (command "line" p156 p151 "") (command "line" p154 p122 "") (command "line" p65 p75 "") (command "line" p69 p74 "") (command &qu

37、ot;line" p114 p121 "") (command "line" p41 p122 "") (command "line" p11 p61 "") (setq M1 (FIX M1) (setq Mn (fix Mn ) (setq Mj (fix Mj ) (setq Y1 (fix Y1 ) (setq Yn (fix Yn ) (setq Yj (fix Yj ) (setq H0 (fix H0 ) (setq L (fix L ) (setq N (fix N )

38、 (command "text" p107 "0.8" "0" "M1=") ;*弹簧处于最小扭矩状态下M1* (command "text" p108 "0.8" "0" M1) (command "text" p109 "0.8" "0" "Mn=") ;*弹簧处于最大扭矩状态下Mn* (command "text" p110 "0.8&quo

39、t; "0" Mn) (command "text" p111 "0.8" "0" "Mj=") ;*弹簧处于极限扭矩状态下Mj* (command "text" p112 "0.8" "0" Mj) (command "text" p131 "0.8" "0" "Y1=") ;*弹簧处于最小扭矩状态下扭转角Y1* (command "text&q

40、uot; p132 "0.8" "0" Y1) (command "text" p139 "0.8" "0" "Yn=") ;*弹簧处于最大扭矩状态下扭转角Yn* (command "text" p140 "0.8" "0" Yn) (command "text" p147 "0.8" "0" "Yj=") ;*弹簧处于极限扭矩状态下扭转

41、角Yj* (command "text" p148 "0.8" "0" Yj) (command "text" p157 "0.8" "0" "H0=") ;*弹簧处于自由状态下长度H0* (command "text" p158 "0.8" "0" H0);* (setvar "clayer" ss) (command "lweight" 0.1) (co

42、mmand "dimdsep" "." "") (command "dimaligned" p24 p31 p50) ;*标注长度* (command "dimaligned" p113 p121 "t" "%c<>" p4) (command "dimaligned" p0 p6 "t" "%c<>" p60) (command "dimaligned"

43、; p35 p36 "t" "%c<>" p34) (command "dimangular" p75 p69 p150) ;*画点划线*(setq ss (getvar "clayer" );获取系统变量函数 (command "-layer" "m" "my1" "c" "red" "my1" "l" "center" "my1&q

44、uot; "") ;设置图层 (command "lweight" 0.1) (command "line" p1 p2 "") (command "line" p4 p5 "") (command "line" p7 p8 "") (command "line" p42 p43 "") (command "line" p44 p45 "") (comman

45、d "line" p46 p47 "") (command "line" p48 p49 "") (command "line" p50 p51 "") (command "line" p52 p53 "") (command "line" p54 p55 "") (command "line" p56 p57 "") (command "line

46、" p58 p59 "") (command "line" p72 p73 "") (command "ltscale" 5) ;*改变点划线的线形比例* (setvar "clayer" ss) ;设定图框层 (command "layer" "m" "sx" "on" "sx" "c" 7 "sx" "lw" 0.4 &qu

47、ot;sx" "")； (command "lweight" 0.3) (command "line" "0,0" "297,0" "") (command "line" "297,0" "297,210" "") (command "line" "297,210" "0,210" "") (command

48、"line" "0,210" "0,0" "") ;设定表格 (command "layer" "m" "sx1" "on" "sx1" "c" 7 "sx1" "lw" 0.2 "sx1" "")； (command "line" "117,56" "117,0&qu

49、ot; "")(command "line" "117,56" "297,56" "")(command "line" "297,56" "297,0" "")(command "line" "297,0" "117,0" "")(command "line" "197,56" "197,

50、0" "")(command "line" "247,56" "247,0" "")(command "line" "297,38" "247,38" "")(command "line" "117,28" "247,28" "")(command "line" "197,18" &quo

51、t;297,18" "")(command "line" "129,0" "129,28" "") (command "line" "141,0" "141,21" "")(command "line" "152,0" "152,28" "")(command "line" "169,0"

52、 "169,56" "")(command "line" "181,0" "181,56" "")(command "line" "127,56" "127,28" "")(command "line" "137,56" "137,28" "")(command "line" "153,5

53、6" "153,28" "")(command "line" "117,7" "197,7" "")(command "line" "117,14" "197,14" "")(command "line" "117,21" "197,21" "")(command "line" "

54、;117,28" "197,28" "")(command "line" "117,35" "197,35" "")(command "line" "117,42" "197,42" "")(command "line" "117,49" "197,49" "")(command "line&quo

55、t; "117,56" "197,56" "")(command "line" "197,9" "247,9" "")(command "line" "197,28" "247,28" "")(command "line" "223,28" "223,9" "")(command "lin

56、e" "235,28" "234,9" "")(command "line" "203.5,18" "203.5,9" "")(command "line" "210,18" "210,9" "")(command "line" "216.5,18" "216.5,9" "") (comm

57、and "_style" "w" "txt,gbcbig" "" "" "" "n" "n" "n" ) (command "lweight" 0.1) (command "text" "119,2" "5" "0" "工艺 ")(command "text" "119

58、,9" "5" "0" "审核 ")(command "text" "119,16" "5" "0" "制图 ") (command "text" "129,16" "4" "0" " 陈康 ")(command "text" "119,23" "5" "0&

59、quot; "设计 ") (command "text" "129,23" "4" "0" " 张海翔")(command "text" "119,30" "5" "0" "标记")(command "text" "129,30" "5" "0" "处数")(command &q

60、uot;text" "142,30" "5" "0" "分区")(command "text" "155,30" "4" "0" "更改文件号")(command "text" "171,30" "5" "0" "签名") (command "text" "181,30"

61、; "4" "0" "年 月 日") (command "text" "182,23" "2" "0" "2014.01.15 ")(command "text" "156,23" "4" "0" "标准化") (command "text" "170,23" "4" "

62、;0" "陈康")(command "text" "157,2" "5" "0" "批准")(command "text" "205,36" "9" "0" "")(command "text" "203,20" "5" "0" "阶段标记")(command &quo

63、t;text" "225,20" "5" "0" "重量")(command "text" "237,20" "5" "0" "比例") (command "text" "237,11" "4" "0" "1:1")(command "text" "199,2" &qu

64、ot;5" "0" "共 1 张 第 1 张 ")(command "text" "254,44" "8" "0" " 南通大学") (command "text" "240,24" "8" "0" " 圆柱螺旋扭转弹簧")(command "text" "254,6" "4" "

65、;0" " 1010012025")(command "text" "25,60" "8" "0" "技术要求:") (command "text" "25,50" "4" "0" " 1.有效圈数N=") (command "text" "55,50" "4" "0" N) (comma

66、nd "text" "25,30" "4" "0" " 3.展开长度L=") (command "text" "55,30" "4" "0" L) (command "text" "25,20" "4" "0" " 4.热处理后硬度：4550HRC")(command "text" "37,20" "5" "0" "") (cond (= N1 1) (command "text" "25,40" "4" "0" " 2.旋向：右旋") (= N1 2) (command "text" "25,40" "4&quo