Topic: [XDrX-PlugIn(1)]small pieces to remove

[xdcad]

https://www.theswamp.org/index.php?topic=57930.15

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt ()
2.   (defun _process-shortline (ss)
3.     (mapcar '(lambda (x)
4.                (if (< (xdrx-getpropertyvalue x "length") len)
5.                  (xdrx-entity-delete x)
6.                )
7.              )
8.             (xdrx-pickset->ents ss)
9.     )
10.   )
11.   (if (and (setq len (getreal "\nEnter shortest distance <exit>:"))
12.            (setq ss (xdrx-ssget
13.                       "\nSelect the curve to be processed <Exit>:"
14.                       '((0 . "*line,arc,ellipse"))
15.                     )
16.            )
17.       )
18.     (progn
19.       (xdrx-begin)
20.       (setq ents (xdrx-pickset->ents ss))
21.       (while (cdr ents)
22.         (setq e1 (car ents))
23.         (mapcar
24.           '(lambda (x)
25.              (if (and (setq ints (xdrx-entity-intersectwith e1 x))
26.                       (setq ss1 (xdrx-curve-getsplitcurves e1 ints))
27.                  )
28.                (_process-shortline ss1)
29.              )
30.            )
31.           (cdr ents)
32.         ) ;_ end of mapcar
33.         (setq ents (cdr ents))
34.       ) ;_ end of while
35.       (xdrx-end)
36.     )
37.   ) ;_ end of if
38.   (princ)
39. )

[domenicomaria]

yes, it's fine...
... but there is a side effect which is not good...

because the curves are interrupted at all intersection points... even where it's not needed...

xdrx-curve-getsplitcurves is certainly a very useful function in many situations,
but the algorithm must interrupt the curves
only when the small piece that sticks out is less than a certain distance...

... and that's it

[xdcad]

yes, it's fine...
... but there is a side effect which is not good...

because the curves are interrupted at all intersection points... even where it's not needed...

xdrx-curve-getsplitcurves is certainly a very useful function in many situations,
but the algorithm must interrupt the curves
only when the small piece that sticks out is less than a certain distance...

... and that's it

If it is disconnected, you can use xdrx-curve-join to merge it again.

[domenicomaria]

If it is disconnected, you can use xdrx-curve-join to merge it again.

But this will add in every intersection a new vertex to the curves.

[ribarm]

If it is disconnected, you can use xdrx-curve-join to merge it again.

But this will add in every intersection a new vertex to the curves.

Cinsider this answer : https://www.theswamp.org/index.php?topic=57930.msg617266#msg617266

[xdcad]

If it is disconnected, you can use xdrx-curve-join to merge it again.

But this will add in every intersection a new vertex to the curves.

In cycle

Code - Auto/Visual Lisp: [Select]

1. (setq ss (xdrx-curve-getsplitcurves e1 pts))

Interrupt at the point list. After the interruption, judge the short deletion.
Then add the selection set of the curves generated after the interruption,

After removing very short lines, all the selections that can be JOIN are JOIN together.

Code - Auto/Visual Lisp: [Select]

1. (xdrx-curve-join ss)