i need lisp, trim all short line at intersection

[haryandi55]

i need lisp, trim all short line at intersection

[hak_vz]

You can use either TRIM or EXTEND commands very efficiently for this task. Start desired command, let say TRIM,

Select all entities, to trim entity pick at side, to extend press <SHIFT>. And that's it.

There has been similar lisps before so search true the forum's history.

[Kent1Cooper]

What the image shows is not just Trimming.  A routine that Trimmed off the shortest part of a Line that crosses another would take off one or another of the red-wrapped ends here:

or maybe both?  And would do nothing with the vertical Lines at the ends.  You need a more nuanced description of what you really want to do.

[ВeekeeCZ]

This could help. It's just what I have, no adjustments to your imgs - feel free to make those if necessary.

[Udo_Huebner]

Perhaps you could use "MAPCLEAN" from AutoCAD MAP to solve this task very quickly and without additional Lisp programming.

https://help.autodesk.com/view/MAP/2024/ENU/?guid=GUID-BA31C81D-C08E-4D92-A52E-FABB74B8DDA0

[calderg1000]

Regards @haryandi55 

Try this code, to trim the shortest length of crossing lines, by selecting the cutting edge.

;;;___
(defun c:trm (/ s sn sp ep ssint pnt)
  (princ "\nSelect cutting edge/Lwpolyline object...")
  (if (setq s (ssget "_+.:E:S" '((0 . "*line")))
      )
    (progn
      (setq
        sn    (ssname s 0)
        sp    (vlax-curve-getstartpoint sn)
        ep    (vlax-curve-getendpoint sn)
        ssint (ssget "_f" (list sp ep))
      )
      (repeat (setq i (1- (sslength ssint)))
        (setq snl  (ssname ssint (setq i (1- i)))
              snld (entget snl)
              spl  (vlax-curve-getstartpoint snl)
              epl  (vlax-curve-getendpoint snl)
              ipl  (vlax-invoke (vlax-ename->vla-object sn)
                                'IntersectWith
                                (vlax-ename->vla-object snl)
                                acExtendboth
                   )
        )
        (if (< (distance spl ipl)
               (distance ipl epl)
            )
          (entmod (subst (cons 10 ipl) (cons 10 spl) snld))
          (entmod (subst (cons 11 ipl) (cons 11 epl) snld))
        )
      )
    )
  )
  (princ "\nInvalid Object Selected; Select Line/Lwpolyline...")
  (princ)
)

[Sea-Haven]

Try breakall.lsp by CAB then you do a ssget of the same area again and look for lines below a certain length then erase, Just did that for another task and worked well.

[Kent1Cooper]

---

@Sea-Haven wrote:

Try breakall.lsp by CAB ....

---

According to its description [I haven't loaded and tried it], that will have the same issue I described in Message 3.  It will not make the corners at left and right in the "after" part of the image in Message 1.  I still think we need a more detailed explanation from the OP.