隔一定距离打断多义线

544551616

自己写的隔一定距离打断PL线。但是打断完变的不成样子，不是一体的了，求大神帮忙啊。
(defun c:dib (/ obj piece plen ptlst dis npt)
  (setq        obj   (vlax-ename->vla-object (setq en (car (entsel "\n选择多义线: "))))
        piece (getint "\n间隔距离(米): ")
        plen
              (vlax-curve-getdistatpoint obj (vlax-curve-getendpoint obj))
        ;ptlss
              ;(list (vlax-curve-getstartpoint obj))
        dis
              0
  )
  (repeat (1- (fix(/ plen piece)))
    (setq dis        (+ dis  piece)
          npt        (vlax-curve-getpointAtdist obj dis)
          ptlst        (cons npt ptlst)
    )
  )
  ;(setq ptlst (reverse (cons (vlax-curve-getendpoint obj) ptlst)))
  (foreach pt ptlst
    (vl-cmdf "break" (list en pt) pt)
  )
;;;  ptlst
  (princ)
)

zhystar

打断完，肯定不是一体的多段线了啊

Yruz

打断完再结合成组

544551616

Yruz 发表于 2019-6-25 09:16
打断完再结合成组

对我就是想要这种的，你看怎么改啊。

544551616

zhystar 发表于 2019-6-25 08:01
打断完，肯定不是一体的多段线了啊

是不是一体的了，再自动连上就是一体的了，可我不知道怎么实现。

ll_j

Break以后，一个实体变成两个实体，靠近起点的一个实体保留原实体名，另一段由系统赋予新的实体名，所以，连续打断时，应从实体尾端开始打断，才能保证下一个需要打断的是“原实体”。
可以先把需要打断的点全部计算出来，然后从最后一个点打断，只到第一个点。
对于打断后生成的新实体，可以使用entnext（entlast）的方法收集，最后再组合。

544551616

ll_j 发表于 2019-6-25 10:42
Break以后，一个实体变成两个实体，靠近起点的一个实体保留原实体名，另一段由系统赋予新的实体名，所以， ...

entnext（entlast）这个具体怎么用呢？

544551616

打断的问题已经解决了

然后问题是打断成线段了。怎么让他们再自动连接上，闭合成一条多义线。