(defun c:masina()
(setq ptaskas (getpoint "\nIveskite piesinio apatinio kairiojo kampo
koordinates (x,y):") )
(command "osnap" "off" )
(setq ptx (car ptaskas) )
(setq pty (cadr ptaskas) )
(setq kt1 (list (+ ptx 0) (+ pty 0)))
(setq kt2 (list (+ (car kt1) 20) (cadr kt1)))
(setq kt3 (list (+ (car kt2) 5.8545) (+(cadr kt2) 13.8103)))
(setq kt4 (list (+ (car kt3) 11.7089) (+(cadr kt3) -27.6207)))
(setq kt5 (list (+ (car kt4) 11.7089) (+(cadr kt4) 27.6207)))
(setq kt6 (list (+ (car kt5) 11.7089) (+(cadr kt5) -27.6207)))
(setq kt7 (list (+ (car kt6) 11.7089) (+(cadr kt6) 27.6207)))
(setq kt8 (list (+ (car kt7) 11.7089) (+(cadr kt7) -27.6207)))
(setq kt9 (list (+ (car kt8) 5.8545) (+(cadr kt8) 13.8103)))
(setq kt10 (list (+ (car kt9) 20) (cadr kt9)))
(setq kt11 (list (+ (car kt10) 20) (cadr kt10)))
(setq kt12 (list (+ (car kt11) ) (cadr kt11)))
(setq kt13 (list (+ (car kt12) 0) (-(cadr kt12)20)))
(setq kt14 (list (+ (car kt13) 0) (-(cadr kt13)20)))
(command "CIRCLE" kt11 20 "")
(command "LINE" kt1 kt2 kt3 kt4 kt5 kt6 kt7 kt8 kt9 kt10 kt12 kt14 "")
)