Topic: Adding polyline vertices in fixed intervals

[Lupo76]

Hi,
I found this lisp which adds vertices along a polyline at a predetermined distance:
https://www.cadforum.cz/cadforum_en/adding-polyline-vertices-in-fixed-intervals-tip10091

It works fine if there are no edges, otherwise the result is incorrect

Unfortunately on this occasion I don't have time to make a new lisp
Do you have which lisp ready to do this?

Thanks in advance!

[Lupo76]

Sorry,
laziness seems like a bad disease that clouds the brain.
Here is the solution:

Code: [Select]

(defun c:demo2 ()
 (if (and (setq pline (car (entsel "\nSelect Polyline:")))
          (eq (cdr (assoc 0 (entget pline))) "LWPOLYLINE")
          (setq int (getdist "\nEnter Interval:"))
          (setq in int)
    )
    (while (setq pt (vlax-curve-getPointAtDist pline int))
      (progn
        (command "_break" pline pt pt)
        (command "_pedit" pline "_j" (entlast) "" "")
       ;--
       (setq int (+ int in))
      )
    )
 )
)


[BIGAL]

Google pedit add vertice better than break and join.

[xdcad]

http://www.theswamp.org/index.php?topic=59023.0