교차 색깔 바꾸는 리습

(defun C:B222 (/ a b)
 (graphscr)
  (setvar "cmdecho" 0)
  (setq a (entsel))
  (setq b (getpoint " break할 교차점을 찍어유 : ")) (terpri)
  (command "break" a "f" b "@")
   (command "_.chprop" (ssget "l") "" "la" "2″ "c" "bylayer" "lt" "bylayer" "")
   (princ)
)

저번에 올려주신 리습으로  두선 교차일때 세번으로 끊고 리습은 잘 실행 되었습니다.
한선 교차 되었을때 한번 두번 클릭하고 색깔 변하는 리습을 알고 싶어서 이렇게 글을 올립니다.
번거롭더라도 한번더 클릭해라고 생각하실수 있으시겠지만 그 클릭 하나의 공수가 모요서 시간이 많이 줄어들어 이렇게 부탁드립니다. 제가 바꿔서 연구를 해도 잘 안되니 리습 보시고 수정해 주시면 감사하겠습니다.