I至扩散器的截面
我的代码需要很多爱，请在下面插入这个代码是我想要的，但作为rec top
尺寸用promt表示。不是isec。请调试
代码看起来像图片
(defun diff ()
(setq p1 (getpoint "\n Enter the starting point of diffuser: ")
l (getdist "\n Enter the length of diffuser: ")
w(getdist "\n Enter the width of duct: ")
t1 (getdist "\n Enter thickness of duct: ")
t2 (getdist "\n Enter length of duct: ")
p2 (list (+ (car p1) w) (cadr p1))
p3 (list (car p2) (+ (cadr p2) t1))
p4 (list (-(car p3) (/(-w t2) 2)) (cadr p3))
p5 (list (car p4) (+ (cadr p4) (-1 (* 2 t1))))
p6 (list (car p3) (cadr p5))
p7 (list (car p6) (+ (cadr p6) t1))
p8 (list (car p1) (+ (cadr p1) 1))
p9 (list (car p8) (- (cadr p8 t1))
p10 (list (- (car p5) t2) (cadr p5))
p11 (list (- (car p4) t2) (cadr p4))
p12 (list (car p1) (cadr p11))
)
(command "pline" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 "")
)
令人不快的图纸
页:
[1]