组合碟形弹簧的Autolisp程序.docVIP

(defun c:diehuang() 调用VB中的数据 (setq file (open E:/CAD课程设计/diehuang.txt r)) (setq d10 (atof (read-line file))) (setq d20 (atof (read-line file))) (setq t10 (atof (read-line file))) (setq h10 (atof (read-line file))) (setq h20 (atof (read-line file))) (setq a (atof (read-line file))) (close file) (command ltscale 5 ) (command limits 0,0 297,210) (command zoom all) (command osnap off) (command lwdisplay 1) (setq d1 (* a d10)) (setq d2 (* a d20)) (setq t1 (* a t10)) (setq h1 (* a h10)) (setq h2 (* a h20)) (setq r1 (* 0.5 d1)) (setq r2 (* 0.5 d2)) ;基点为中心点 (setq p0 (148 105)) ;作图点 (setq p1 (polar p0 pi r2)) (setq p2 (polar p0 0 r2)) (setq p3 (polar p1 (* 0.5 pi) h1)) (setq p4 (polar p2 (* 0.5 pi) h1)) (setq p5 (polar p0 pi r1)) (setq p6 (polar p0 0 r1)) (setq p7 (polar p1 (* 0.5 pi) h2)) (setq p8 (polar p2 (* 0.5 pi) h2)) (setq p9 (polar p5 (* 0.5 pi) (- h2 h1))) (setq p10 (polar p6 (* 0.5 pi) (- h2 h1))) (setq p21 (polar p7 (* 0.5 pi) (- h2 h1))) (setq p22 (polar p8 (* 0.5 pi) (- h2 h1))) (setq p23 (polar p9 (* 0.5 pi) (- h2 h1))) (setq p24 (polar p10 (* 0.5 pi) (- h2 h1))) ;中心线点 (setq p15 (polar p0 (* 0.5 pi) (* 1.5 h2))) (setq p16 (polar p0 (* -0.5 pi) h2)) (setq p17 (polar p0 pi (* 1.1 r1))) (setq p18 (polar p0 0 (* 1.1 r1))) ;标注线点 (setq p11 (polar p0 (* -0.5 pi) (* 0.5 h2))) (setq p12 (polar p0 (* -0.5 pi) h2)) (setq p13 (polar p4 0 (* 1.5 (- r1 r2)))) (setq p14 (polar p1 (* 0.5 pi) (* 0.5 h1))) ;剖面线点 (setq p27 (polar p5 0 (/ (- r1 r2) 2))) (setq p28 (polar p6 pi (/ (- r1 r2) 2))) (setq p19 (polar p27 (* 0.5 pi) (+ (* 0.5 h1) (* 0.5 t1)))) (setq p20 (polar p28 (* 0.5 pi) (+ (* 0.5 h1) (* 0.5 t1)))) (setq p25 (polar p27 (* 0.5 pi) (+ (* 0.5 h1) (* 1.8 t1)))) (setq p26 (polar p28 (* 0.5 pi) (+ (* 0.5 h1) (* 1.8 t1)))) ;粗实线图层 (setq ss (getvar clayer)) (command -layer m 粗实线 c 7 粗实线 l continuous 粗实线 lw 0.35 粗实线 ) (command pline p5 p3 p4 p6) (command pline p9 p