Topic: Delete an edge within hence split a polyline

[SteveK]

gday (hello),

My aim is to delete a line within a polyline (and therefore split a polyline). To do this I quickly wrote this code just making two lines and trim using these lines. You don't need to tell me there's better ways of doing this but I just wanted something fast with one select. Anyways, was wondering if anyone can (if you're bored) or has come up with something better.

Code: [Select]

; Split Polyline by trimming either side of a line (This is dodgy)
(defun c:trpl (/ MSPC PT LN1 LN2 VE1 VE2 VP1 VP2 TR)
  (vl-load-com)
  
  (setq mspc (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
tr (ssadd))

  (setq pt (cadr (entsel))
ve1 (car (nentselp pt))
ve2 (entnext ve1))

  (setq vp1 (cdr (assoc 10 (entget ve1)))
vp2 (cdr (assoc 10 (entget ve2))))

  (command "_UNDO" "BEGIN")

  (setq ln1 (vlax-vla-object->ename (vla-addline
     mspc
     (vlax-3d-point vp1)
     (vlax-3d-point (list
      (+ (car vp1) 1.)
      (+ (cadr vp1) 1.)
      (caddr vp1)
      ))
     )
     )
)
  (ssadd ln1 tr)

  (setq ln2 (vlax-vla-object->ename (vla-addline
     mspc
     (vlax-3d-point vp2)
     (vlax-3d-point (list
      (+ (car vp2) 1.)
      (+ (cadr vp2) 1.)
      (caddr vp2)
      ))
     )
     )
)
  (ssadd ln2 tr)

  (command "_TRIM" tr "" pt "")

  (setq tr nil)
  (entdel ln1)
  (entdel ln2)

  (command "_UNDO" "END")
    
  (princ)
  )
steve 

[alanjt]

This should make you laugh:

Code: [Select]

(defun c:test (/ e)
  (and (setq e (entsel "\nSelect *Polyline: "))
       (command "_.trim" e "" e ""))
  (princ))

[Serge J. Gianolla]

And not using lisp. 
Select Pline as cutting edge, then select segment to remove!

[DEVITG]

This should make you laugh:

Code: [Select]

(defun c:test (/ e)
  (and (setq e (entsel "\nSelect *Polyline: "))
       (command "_.trim" e "" e ""))
  (princ))

Hi AlanJT , please explain how or why it can be used the e as
as ENTITY despite it also hold the point .

(<Entity name: 7da769b8> (84.6011 56.7525 0.0))

Normally it is used as

Code: [Select]

(setq ent  ( car e))

[CAB]

Several commands will use the list (ename point), look at Break.

[DEVITG]

Ok , thanks , new for me .

[alanjt]

Several commands will use the list (ename point), look at Break.

or Lengthen

[SteveK]

This should make you laugh:

Code: [Select]

(defun c:test (/ e)
  (and (setq e (entsel "\nSelect *Polyline: "))
       (command "_.trim" e "" e ""))
  (princ))

  hahaha. dearie me . Thanks Alan.

And not using lisp. 
Select Pline as cutting edge, then select segment to remove!

Sorry what command is that?

[alanjt]

This should make you laugh:

Code: [Select]

(defun c:test (/ e)
  (and (setq e (entsel "\nSelect *Polyline: "))
       (command "_.trim" e "" e ""))
  (princ))

  hahaha. dearie me . Thanks Alan.

And not using lisp. 
Select Pline as cutting edge, then select segment to remove!

Sorry what command is that?

He's referring to doing exactly what I did, except w/o code.

Code: [Select]

Command: tr TRIM
Current settings: Projection=UCS, Edge=None
Select cutting edges ...
Select objects or <select all>: 1 found

Select objects:

Select object to trim or shift-select to extend or
[Fence/Crossing/Project/Edge/eRase/Undo]:

Select object to trim or shift-select to extend or
[Fence/Crossing/Project/Edge/eRase/Undo]:

[SteveK]

He's referring to doing exactly what I did, except w/o code.

Code: [Select]

Command: tr TRIM
Current settings: Projection=UCS, Edge=None
Select cutting edges ...
Select objects or <select all>: 1 found

Select objects:

Select object to trim or shift-select to extend or
[Fence/Crossing/Project/Edge/eRase/Undo]:

Select object to trim or shift-select to extend or
[Fence/Crossing/Project/Edge/eRase/Undo]:

Ah Right :ugly:. Ta

[alanjt]

Actually, now that I think of it, Lee wrote this exact same program a month or so back.