[编程交流] 在顶点处打断多段线

(defun c:sample        (/ pd ent)
 (setq pd (getvar 'PEDITACCEPT))
 (setvar 'PEDITACCEPT 1)
 (while (setq ent (ssget '((0 . "LWPOLYLINE"))))
  (repeat (setq i (sslength ent))
    (setq en (ssname ent (setq i (1- i))))
    (repeat (- (cdr (assoc 90 (entget en))) 2)
              (command "_pedit" en "_E" "_N" "_B" "_G" "_X" "")
        (setq en (entlast))
      )
   )
   )
 (setvar 'PEDITACCEPT pd)
)

(defun c:BPV (/ _chop ss i e)
 ;; Break lwPolyline at each Vertex
 ;; Alan J. Thompson, 09.14.11
 (vl-load-com)
 (defun _chop (lst e)
   (if (vlax-curve-isClosed e)
     (cdr lst)
     (reverse (cdr (reverse (cdr lst))))
   )
 )
 (if (setq ss (ssget "_:L" '((0 . "LWPOLYLINE") (-4 . ">") (90 . 2))))
   (repeat (setq i (sslength ss))
     (foreach point (_chop (apply 'append
                                  (mapcar '(lambda (x)
                                             (if (eq (car x) 10)
                                               (list (trans (cdr x) 0 1))
                                             )
                                           )
                                          (entget (setq e (ssname ss (setq i (1- i)))))
                                  )
                           )
                           e
                    )
       (vl-cmdf "_.break" e "_F" "_non" point "_non" point)
       (setq e (entlast))
     )
   )
 )
 (princ)
)