AutoLisp trikampio arkos

Sveiki, noriu nubraizyti trikampi

(DEFUN C:PIRMAS()
(command "osnap" "off")
;------------------------------------------------------
(setq t1(getpoint "Nurodykite pirma taska"))
(setq arc1 (list (+(car t1) 110) (+ 110 ( cadr t1))))
(setq arc2 (list (+ (car arc1)-0.5) (+ 0.5 ( cadr arc1))))
(setq arc3 (list (+ 25 (car arc1)) (+ 25 ( cadr arc1))))
(setq t2 (list (+(car arc1) 25) (+( cadr arc1) 25)))
(repeat 6
    (setq arc1 (list (+(car arc1) 25) (+ 25 ( cadr arc1))))
    (setq arc2 (list (+ (car arc1)-0.5) (+ 0.5 ( cadr arc1))))
    (setq arc3 (list (+ 25 (car arc1)) (+ 25 ( cadr arc1))))
    (command "ARC" arc1 arc2 arc3 "")
 )
 (setq t3 (list (+(car arc3) 135) (+ 135( cadr arc3))))
 (command "LINE" t1 t2 "")
 (command "LINE" arc3 t3 "")
 ;------------------------------------------------------
 (setq t4 (list (+(car t3) 135) (+ -135 ( cadr t3))))
 (command "LINE" t3 t4 "")

(setq a1 (list (car t4) ( cadr t4)))
(setq a2 (list (+ (car t4) -0.5) (+ 0.5 (cadr t4))))
(setq a3 (list (+ 25 (car t4)) (+ +20 (cadr t4))))
(command "ARC" a1 a2 a3 "")
)

ir man reikia padaryti kad tos arkos atsidurtu kitoje trikampio puseje. Man tas niekaip neiseina, ka darau blogai?