리습 막히네요 도와주세요

(defun c:11( / P1) 
   (SETQ P1 (GETPOINT “N시작점:”))
   (command “LINE” P1 “M2P” )   
 )    


두점의 중간점으로 계속 해서 라인을 만들어 나가는게 목적입니다.
M2P 라는 명령이 두점을 찍어주면 그  두점의 중간점을 생성하는 명령어입니다.
근데 위에 리습을 짠거 보시면 한번 밖에 적용이 안되어 있습니다
계속해서 M2P 가 적용이 되어서 쭉 쭉 라인이 만들어져야 합니다
계속해서 적용이 되도록 좀 수정해주세요
~~~~~