선그리기 리습 수정 부탁 드립니다

zwcad2017 사용합니다 
첨부파일은  P라인을 그리는 리습입니다 한번 그리때마다  색상이 변경되는 리습입니다
이 리습에서  첫번째 라인은  1번색상으로 그리고  두번째 라인은 A를 입력하면 2번 색상으로 입력이 없으면 1번색상으로  라인을 그리는 리습으로 수정 부탁 드립니다.