리습수정 부탁드립니다 고수님들...

cad 파일에 있는것처럼 기존리습은 양쪽으로 끝선을 남기는겁니다

여기에 추가로 남겨진 직선의 센터에 한쪽당 남겨진 길이의 1/3  을 지름으로 가지는 반원이 그려지고 그사이에

선은 잘라져서 없어지는 기능이 추가 됐으면 합니다..  그리고 새로 생기는 반원은 자동으로 노란색이 만들어지면 좋겠습니다

능력자분들 부탁드립니다. (.LSP파일이 첨부가 안되는거같아 코드 적습니다)

(defun c:AA( / sl-mapcar-ens ss)
(defun sl-mapcar-ens (func ss) (mapcar func (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(princ "n선 양끝 남기기")
(and
(setq ss (ssget '((0 . "LINE"))))
(or *dis* (setq *dis* 20))
(setq *dis* (cond ((getdist (strcat "n남길 길이 입력 <" (vl-princ-to-string *dis*) ">:"))) (*dis*)))
(sl-mapcar-ens
'(lambda (en / ent1 len ep ent2 sp)
(setq ent1 (entget en) len (vlax-curve-getdistatparam en (vlax-curve-getendparam en)))
(if (> len *dis*)
(progn
(setq ep (vlax-curve-getpointatdist en *dis*) sp (vlax-curve-getpointatdist en (- len *dis*)))
(setq nen (entmakex (vl-remove '(lambda (-1 5)) (entget en))) ent2 (entget nen))
(entmod (subst (cons 10 sp) (assoc 10 ent1) ent1))
(entmod (subst (cons 11 ep) (assoc 11 ent2) ent2))
)
(princ "n입력한 길이보다 선이 짧습니다.")
)
)
ss
)
)
(princ)
)