양쪽 offset 이거 수정좀

저두 어디서 받은건데
가끔 한방향으로 가버립니다.
예를 들자면 기준선을 중심으로 양쪽으로 1씩 옵셋 ( 아래 리습상으로 2로 해야지 1씩됨)
을 하면 잘되다가 어느순간 한방향으로 (왼쪽으로 그러는듯) 1씩 선 2개가 가버립니다.
왜 그런가요 ;;
(defun c:wa (/ cl os d1 d2 d3 cl st1 e1
               p1 p2 p3 p4 ang1 ang2 ang3)
   (setq cl (getvar “clayer”) os (getvar “osmode”))
   ;(setvar “osmode” 0)
   (setq d2 2)
   (if (/= wallthk nil)(setq d2 wallthk) )
   (setq st1 (itoa d2))
   (setq st1 (strcat “Enter wall thikness<” st1 “>:”))
   (prompt “nCommand: Wall Draw…”)(terpri)
   (setq d1 (getdist st1))
   (if (= d1 nil)(setq d1 d2) )
   (setq e1 (entsel “nPick line -> “))
   (setq d3 (/ d1 2))
   (while (/= e1 nil)
      (setq p1 (osnap (cadr e1) “END”)
            p2 (osnap (cadr e1) “MID”)
            ang1 (angle p1 p2)
            ang2 (+ ang1 (/ pi 2) )
            ang3 (- ang1 (/ pi 2) )
            p3 (polar p2 ang2 100)
            p4 (polar p2 ang3 100)
      )
      (command “offset” d3 e1 p3 “”)
      (command “change” “l” “” “p” “la” cl “”)
      (command “offset” d3 e1 p4 “”)
      (command “change” “l” “” “p” “la” cl “”)
       (setq e1 (entsel “nPick line -> “))
   )
   ;(setvar “osmode” os)
   (setq wallthk (fix d1))(princ)
)
;;=========