, Times New Roman. , . .
(defun dtr(a) (* pi(/ a 180.)))
(defun c:letter()
(setq p1 (getpoint "\n :"))
(setq h (getdist "\n h:" p1))
(setq a (getangle "\n a:" p1))
(setq tt (/ h 6))
(setq ws (/ h 100))
(setq wl (/ h 10))
(setq ww (/ h 20))
(setq wm (* wl 1.5))
;
(setq p2 (polar p1 (+ a (dtr 0.)) tt))
(setq p3 (polar p2 (+ a (dtr 90.)) (* tt 0.5)));
(setq tc (polar p1 (+ a (dtr 90.)) (* tt 1.5)))
(setq p5 (polar p2 (+ a (dtr 90.)) h));
(setq p4 (polar p5 (+ a (dtr -90.)) (* tt 0.4)));
(setq p6 (polar p1 (+ a (dtr 90.)) h));
(setq tc1 (polar p6 (+ a (dtr -90.)) (* tt 1.5)))
(setq p7 (polar p2 (+ a (dtr 0.)) tt));
(setq tc2 (polar p7 (+ a (dtr 90.)) (* tt 1.2)))
(setq p8 (polar p7 (+ a (dtr 90.)) h));
(setq tc3 (polar p8 (+ a (dtr -90.)) (* tt 1.5)))
;
(setq p11 (polar p1 (+ a (dtr 0.)) (* tt 2.7)));
(setq p12 (polar p11 (+ a (dtr 0.)) tt))
(setq p13 (polar p12 (+ a (dtr 90.)) (* tt 0.5)));
(setq tc4 (polar p11 (+ a (dtr 90.)) (* tt 1.5)))
(setq p15 (polar p12 (+ a (dtr 90.)) h));
(setq p14 (polar p15 (+ a (dtr -90.)) (* tt 0.4)));
(setq p16 (polar p11 (+ a (dtr 90.)) h));
(setq tc5 (polar p16 (+ a (dtr -90.)) (* tt 1.5)))
(setq p17 (polar p12 (+ a (dtr 0.)) tt));
(setq tc6 (polar p17 (+ a (dtr 90.)) (* tt 1.2)))
(setq p18 (polar p17 (+ a (dtr 90.)) h));
(setq tc7 (polar p18 (+ a (dtr -90.)) (* tt 1.5)))
;
(setq p20 (polar p2 (+ a (dtr 90.)) (* tt 0.5)));
(setq p21 (polar p15 (+ a (dtr -90.)) (* tt 0.5)));
;
(command "_.OSNAP" "_NONE")
(command "_.PLINE" p2 "_W" wm wm p5 "");
(command "_.PLINE" p1 "_W" ws wl "_A" "_C" tc p3 "");
(command "_.PLINE" p4 "_W" wl ws "_A" "_C" tc1 p6 "");
(command "_.PLINE" p3 "_W" wl ws "_A" "_C" tc2 p7 "");
(command "_.PLINE" p8 "_W" ws wl "_A" "_C" tc3 p4 "");
|
|
;
(command "_.PLINE" p12 "_W" wm wm p15 "");
(command "_.PLINE" p11 "_W" ws wl "_A" "_C" tc4 p13 "");
(command "_.PLINE" p14 "_W" wl ws "_A" "_C" tc5 p16 "");
(command "_.PLINE" p13 "_W" wl ws "_A" "_C" tc6 p17 "");
(command "_.PLINE" p18 "_W" ws wl "_A" "_C" tc7 p14 "");
(command "_.PLINE" p20 "_W" ww ww p21 "");
(princ))