Topic: Adding vertices to a pline using another PLine as a template?

[ronjonp]

Cool.  But alas it not what "Exactly" need.

Let me Zoom out a little and I post a bigger picture.  I use the express tools break line to go across a series of objects.  usually the center object get vertices added to it but not always.  Hence my question about using another pline as template

I'm still not following what you are trying to do

[CAB]

My guess is that the break symbol is not always the same size & not always in the middle and
the break symbol has extensions the extend past the pline rectangle.
Therefore he desires to match the existing break symbol.

[Krushert]

My guess is that the break symbol is not always the same size & not always in the middle and
the break symbol has extensions the extend past the pline rectangle.
Therefore he desires to match the existing break symbol.

Yep that is about it.  See the attached drawing.  You will notice that there are three break lines and they are interacting with the objects differently.  Hence I need place vertices to the objects that is getting "broken".  Like CAB said the break could be anywhere on the object. 

More background info:
You ask why not simply place the break symbol and trim the object to the break line.   Because I am using ADT's detail component tools to generate some of the objects.  If I explode or trim the object I lose the data that is assigned the object thus loosing the ability to use tools like "add selected" or the use of key noting.  Plus for other objects I loose efficiency of hatching objects due not being able to selelct object or ADT's another version of subtract and merge commands. 

[alanjt]

very nice ronjonp, thanks for sharing.

[ronjonp]

very nice ronjonp, thanks for sharing.

 

[CAB]

Here is a variation of Ron's routine.
Note that there is no error checking so you must use responsible.   

Code: [Select]

(defun c:breakitmeng (/ e e2 pt n obj param vlst)
  (vl-load-com)
  (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
  (vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
  (if (and (setq e (entsel "\nSelect segment on polyline to update: "))
           (setq pt (cadr e))
           (setq e (car e))
           (= (cdr (assoc 0 (entget e))) "LWPOLYLINE")
           (setq obj (vlax-ename->vla-object e))
           (setq pt (vlax-curve-getclosestpointto e pt))
           (setq param (fix (vlax-curve-getparamatpoint e pt)))
           (setq pt (vlax-curve-getpointatparam e param))
   (setq e2 (car (entsel "\nSelect polyline for breakline points: ")))
           (= (cdr (assoc 0 (entget e2))) "LWPOLYLINE")
           (setq vlst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget e2))))
           (setq vlst (cdr vlst) ; remove 1st & last vertex
vlst (reverse (cdr (reverse vlst))))
   (if (> (distance pt (car vlst))(distance pt (last vlst)))
     (setq vlst (reverse vlst))
     t
   )
           (setq n 0)
      )
    (foreach pt vlst
      (setq n (1+ n))
      (vlax-invoke obj 'addvertex (+ param n) pt)
    )
  )
  (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
  (princ)
)<edit prompts>
<edit added UNDO>