Разделить полилинию

;; pbreak.lsp

;; Разрыв полилинии в точке заданной по длине отсекаемой части

(defun pbreak  (/ cutpt dis endpt ent leng pickpt)

  (if

    (and

      (setq ent    (entsel
          "\n\t\t>> Выбрать полилинию ближе к нужному началу: "))

      (setq dis (getreal "\n\t\t>> Установить новую длину: ")))

     (progn


       (setq pickpt (cadr ent))

       (setq ent (car ent))

       (if (not (eq "LWPOLYLINE" (cdr (assoc 0 (entget ent)))))
     (progn
       (alert "Выбранный объект не является LWPOLYLINE")
       (exit)
       (princ)
       )
     )

       (setq leng
          (vl-catch-all-apply
        (function (lambda ()
                (vlax-curve-getdistatparam
                  ent
                  (- (vlax-curve-getendparam ent)
                 (vlax-curve-getstartparam ent)))))))

       (if (>= dis leng)
     (progn
       (alert "Новая длина превышает исходную")
       (exit)
       (princ)
       )
     )

       (princ (strcat "\nСуществующая длина = "
              (rtos leng 2 3)
              "; Новая длина = "
              (rtos dis 2 3))
          )

       (progn

     (if

       (not
         (vl-catch-all-error-p
           (setq cutpt (vl-catch-all-apply
                 (function (lambda ()
                     (vlax-curve-getclosestpointto
                       ent
                       (vlax-curve-getpointatdist ent dis))))))))

        (progn

          (if (> (-    (vlax-curve-getdistatpoint
              ent
              (vlax-curve-getclosestpointto ent pickpt)
              )
            (vlax-curve-getdistatparam
              ent
              (vlax-curve-getstartparam ent)
              )
            )

             (-    (vlax-curve-getdistatparam
              ent
              (vlax-curve-getendparam ent)
              )
            (vlax-curve-getdistatpoint
              ent
              (vlax-curve-getclosestpointto ent pickpt)
              )
            )
             )
        (progn

          (setq dis (- leng dis))

          (setq    cutpt (vl-catch-all-apply
                (function (lambda ()
                        (vlax-curve-getclosestpointto
                          ent
                          (vlax-curve-getpointatdist ent dis))))))
          )

        )
          (vla-startundomark
        (vla-get-activedocument
          (vlax-get-acad-object))
        )
          (command "_.break" ent "_non" cutpt "@")
          )
        )

     )
       )
     )
  (vla-endundomark
    (vla-get-activedocument
      (vlax-get-acad-object)))
  (princ)
  )

(prompt "\n   >>>   Разрыв полилинии в точке заданной по длине отсекаемой части   <<<")

(prin1)

(vl-load-com)

(pbreak)