절단선 리습인데 수정좀 부탁드려요!!ㅠㅠ

안녕하세요!
절단선 리습인데요 절단선 표시가 dimscale의 2배가 되게하는 거랑
절단선 형상의 가운데 부분이 직각으로 올라가게 하는거 말고 사선으로 올라가게 수정하고싶습니다
도와주세요!ㅠㅠ

(defun c:cut(/ os lts p1 p2 mip ang p3 p4 p5 p6)
 (prompt “n>> 절단선 표기”)
 (setq os (getvar “osmode”))
 (setq lts (getvar “dimscale”))
 (setq p1 (getpoint “n첫번째 점!:”))
 (if p1
  (progn
   (setq p2 (getpoint p1 “n두번째 점!:”))
   (if p2
    (progn
     (setq mip (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)))
     (setq ang (angle p1 p2))
     (setq p3 (polar mip (+ ang pi) lts ))
     (setq p4 (polar mip ang lts ))
     (setq p5 (polar mip (+ ang (+ (/ pi 2) pi)) (* lts 2)))
     (setq p6 (polar mip (+ ang (/ pi 2)) (* lts 2)))
     (setvar “osmode” 0)
     (setvar “osmode” 0)
     (command “pline” p1 p3 p5 p6 p4 p2 “”)
    )
   )
  )
 )
(setvar “osmode” os)
(princ)
)