안녕하세요 리습 좀 도와 주십시오 ㅜ

안녕하세요 리습 초보입니다. 선이나 호 등 시작점에서 시작해 원하는 길이만큼의 위치에서 끊어주는
기능의 리습을 제가 하나 가지고 있습니다. 이 리습에 대해 간략히 설명드리면 첨에 끊어야할 선 이나 호를 선택하면 전체길이가 확인이 되고 그다음 끊을 길이를 입력하면 끊을 길이만큼의 위치에서 끊어주는(break) 기능을 하는 리습입니다. 그리고 계속 연속적으로 자기가 원하는 길이를 입력하면 연속 작업도 가능하구요.. 하지만 제가 지금  Autocad 2016 버전을 사용중인데 이 리습이 명령어 실행 및 끊으야할 선 선택과 전체길이 확인까지만 실행이 되고 그다음 단계 동작인 끊어야할 길이를 입력하면 그 포인트가 
잡혀야 하는데 잡히지 않습니다. 혹시나 리습언어가 잘못 된건가 싶어 확인차 2010 버전에 적용해보니 아무 문제없이 동작이 됩니다. 그래서 제 판단으로는 리습언어 문제 보다 버전 차이에서 발생하는 문제라고 판단했습니다. 저는 지금 2016버전을 사용 하는지라 2016 버전에서 이 리습을 꼭 사용 하고 싶습니다.
혹시 이와 같이 비슷한 리습을 가지고 계신분이나.. 아님 제 문제를 해결해 주실 고수님들의 도움을 간절히 바랍니다. 위 리습 언어는 아래와 같으니 수정이 가능하다면 수정 부탁드립니다. ㅜㅡ
긴글 읽어 주셔서 감사 합니다.

(vl-load-com)
(defun c:bbb (/ *error* AT:GetSel AT:DrawX _getDist ent pnt cmd undo total add dist break)
  (defun *error* (msg)
    (and cmd (setvar 'CMDECHO cmd))
    (and *AcadDoc* (vla-endundomark *AcadDoc*))
    (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))
      (princ (strcat "nError: " msg))
    )
  )

  (defun AT:GetSel (meth msg fnc / ent)
    (setvar 'ERRNO 0)
    (while
      (progn (setq ent (meth (cond (msg)
                                   ("nSelect object: ")
                             )
                       )
             )
             (cond ((eq (getvar 'ERRNO) 7) (princ "nMissed, try again."))
                   ((eq (type (car ent)) 'ENAME)
                    (if (and fnc (not (fnc ent)))
                      (princ "nInvalid object!")
                    )
                   )
             )
      )
    )
    ent
  )

  (defun _getDist (total point / dist)
    (and undo (initget "Undo"))
    (cond ((not (setq dist (getdist (AT:DrawX point 4)
                                    (strcat
                                      "nDistance at which to break curve (Total= "
                                      (rtos total)
                                      (if undo
                                        ") [Undo]: "
                                        "): "
                                      )
                                    )
                           )
                )
           )
           nil
          )
          ((eq dist "Undo") dist)
          ((not (< 0. dist total))
           (princ (strcat "nValue must be between 0.0 and and " (rtos total) "!"))
           (_getDist total point)
          )
          (dist)
    )
  )

  (vla-startundomark
    (cond (*AcadDoc*)
          ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
    )
  )

  (if (setq ent (AT:GetSel
                  entsel
                  "nSelect curve to break: "
                  (lambda (x)
                    (and (wcmatch (cdr (assoc 0 (entget (car x))))
                                  "ARC,LINE,*POLYLINE,SPLINE"
                         )
                         (not (vlax-curve-isClosed (car x)))
                    )
                  )
                )
      )
    (progn
      (setq pnt (trans (cadr ent) 1 0)
            ent (car ent)
            cmd (getvar 'CMDECHO)
      )
      (setvar 'CMDECHO 0)
      (while
        (setq
          dist (_getDist (setq total (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent)))
                         (setq pnt
                                (trans (if (> (vlax-curve-getParamAtPoint
                                                ent
                                                (vlax-curve-getClosestPointToProjection ent pnt '(0. 0. 1.))
                                              )
                                              (vlax-curve-getParamAtDist ent (/ total 2.))
                                           )
                                         (progn (setq add total) (vlax-curve-getEndPoint ent))
                                         (progn (setq add 0.) (vlax-curve-getStartPoint ent))
                                       )
                                       0
                                       1
                                )
                         )
               )
        )
         (if (eq dist "Undo")
           (progn (vl-cmdf "_.U")
                  (setq ent  (caar undo)
                        pnt  (cadar undo)
                        undo (cdr undo)
                  )
           )
           (progn
             (setq break (trans (vlax-curve-getPointAtDist ent (abs (- add dist))) 0 1))
             (vl-cmdf "_.break" ent "_F" "_non" break "_non" break)
             (setq undo (cons (list ent pnt) undo))
             (and (zerop add) (setq ent (entlast)))
           )
         )
         (redraw)
         (foreach p (vl-remove (last undo) undo) (AT:DrawX (cadr p) 1))
      )
    )
  )
  (*error* nil)
  (princ)
)