Zubbik

Пикабушники накидайте ржачных гифок
Плюсы не нужны, только гифки!!

Как в Lispe нарисовать штрихпунктирную линию?
Вот код программы:
(defun c:QAZ(/ d l l0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16)
(graphscr)
(setvar "cmdecho" 0)
(prompt "QAZ команда, строящая шпильку по заданным размерам")(terpri)
(setq S '(0 0))
(setq q '(-20 0))
(setq d (getreal "Введите значение параметра d:"))(terpri)
(setq l (getreal "Введите значение параметра l:"))(terpri)
(setq l0 (getreal "Введите значение параметра l0:"))(terpri)
(setq p1 (polar S 0 ( 0.15 d)))
(setq p2 (polar S (/ pi 2) ( 0.15 d)))
(setq p3 (polar S (/ pi 2) (- d ( 0.15 d))))
(setq p4 (polar p1 (/ pi 2) d))
(setq p5 (polar p4 0 (- (+ l d) ( 0.3 d))))
(setq p6 (polar p3 0 (+ l d )))
(setq p7 (polar p2 0 (+ l d )))
(setq p8 (polar p1 0 (- (+ l d) (* 0.3 d))))
(setq p9 (polar S 0 d))
(setq p10 (polar p9 (/ pi 2) d))
(setq p12 (polar S 0 (+ d (- l l0))))
(setq p11 (polar p12 (/ pi 2) d))
(setq p13 (polar p2 0 d))
(setq p14 (polar p3 0 d))
(setq p15 (polar p3 0 (+ d (- l l0))))
(setq p16 (polar p2 0 (+ d (- l l0))))
(setq p17 (polar q (/ pi 2) (/ d 2)))
(setq p18 (polar p17 0 (+ l0 (+ l d))))
(defun loplop ()
;(command "_line" p17 p18 "")
(command "_line" p3 p14 p13 p2 p1 p8 p7 p16 p15 p6 "")
(command "_pline" p1 p2 p3 p4 p5 p6 p7 p8 p1 p9 p10 p11 p12 p1 p4 p5 p8 "" "Ш" 1 1 ))
(if (> l l0)
(loplop)
(prompt " Error!!"))


)
И от точки p17 до точки p18 нужно нарисовать осевую(штрих-пунктирную) линию.
Что надо вставить в программу что бы эта линия нарисовалась??
Какой код?
Я перерыл уеву кучу сайтов и не нашел, может здесь кто знает??