;1. 2점선택->중간점산출->2번째점입력->직선작성...
;2. 반복문으로 구성했습니다.
;   (중간에 Space바나 Enter키를 누르면 반복문을 빠져나옵니다.)
;3. UrOSMODE 를 자주 사용하시는 OSMODE로 바꾸십시요.
 
(defun c:M2P ( / UrOSMODE OSMODE p0 p1 )
  (vl-load-com)
  ;;;Undo 초기화시작
  (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-ACAD-Object)))
  ;;;Undo 초기화시작

  ;현재 설정된 OSMODE가 아닌 현LISP에서만 사용하는 OSMODE로 설정
  (setq UrOSMODE 319)
  ;현재 설정값 OSMODE를 백업해둔다.
  (setq OSMODE (getvar "OSMODE"))

  ;1점 입력받음
  (setq p0 (getpoint "nStart Point(1점지시): "))
  (if (/= p0 nil)
    (progn
      ;2점 입력받음
      (setq p1 (getpoint "nEnd Point(2점지시): "))
   (setvar "orthomode" 1)
      (if (/= p1 nil)
        (progn
          (setq p1 (getpoint (setq p0 (list (/ (+ (car p0) (car p1)) 2) (/ (+ (cadr p0) (cadr p1)) 2) 0.0)) "n직선의 포인트지시: "))
          (setvar "errno" 0)
          (while (and (/= p0 nil) (/= p1 nil) (/= (getvar "errno") 52))
            (setvar "OSMODE" 0) 
            (vla-AddLine (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
              (vlax-3d-point (trans p0 1 0)) (vlax-3d-point (trans p1 1 0)))
            (setvar "OSMODE" UrOSMODE)
            (setq p0 (getpoint "nStart Point(1점지시): "))
            (if (/= p0 nil)
              (progn
                (setq p1 (getpoint "nEnd Point(2점지시): "))
                (if (/= p1 nil)
                  (setq p1 (getpoint (setq p0 (list (/ (+ (car p0) (car p1)) 2) (/ (+ (cadr p0) (cadr p1)) 2) 0.0)) "n직선의 포인트지시: "))
                )
              )
            )
          ) ;;;while
        )
      ) ;;;if
    )
  ) ;;;if

  (setvar "OSMODE" OSMODE)
  ;;;Undo 초기화끝
  (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-ACAD-Object)))
  ;;;Undo 초기화끝
  (princ)
) ;end of defun