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

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

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

능력자분들 부탁드립니다.

파일첨부가 안되서 코드 올립니다.. cad 파일도 못올리는거네요 ㅠㅠ

(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)
)