Topic: small pieces to remove

[It's Alive!]

Basically, splits the curve into segments, at each of the points in the argument
https://help.autodesk.com/view/OARX/2023/ENU/?guid=OARX-RefGuide-AcDbCurve__getSplitCurves_AcGePoint3dArray__AcDbVoidPtrArray__const

I don’t think it’s available to lisp though. I think Bigal’s suggestion might be a better alternative, just move the end, instead of splitting it and deleting the short ends

[DEVITG]

@domenicomaria Just do a google , and get it

https://www.google.com/search?q=getSplitCurves&sourceid=chrome&ie=UTF-8

Could you, please upload your sample dwg?

[domenicomaria]

@ Daniel & DEVITG

Thank you

[It's Alive!]

mine fails in some cases

[It's Alive!]

fixed it, getsplitcurves wants the points sorted 
added

Code - C: [Select]

1.             std::sort(item.second.begin(), item.second.end(), [&](const auto& a, const auto& b) -> bool
2.             {
3.                 double da, db;
4.                 pLine->getDistAtPoint(a, da);
5.                 pLine->getDistAtPoint(b, db);
6.                 return da < db;
7.             });
8.  

i attached the source and a binary for autocad 2021-2023.
the command is CHOPPER 

[It's Alive!]

BTW, the sort is a lambda expression in c++, just in case I can convert you to the darkside 

[domenicomaria]

Daniel, you are great !

I want try to translate it into vlisp

[xdcad]

@Daniel

Daniel, forgive my ignorance.
I'm trying to figure out what you did.
I know the C language very little.
And I would like to know what getSplitCurves does


Can you explain it to me?

Now you can try xdrx_curve_getSplitCurves

[xdcad]

Daniel, you are great !

I want try to translate it into vlisp

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. )
40.  

[domenicomaria]

@xdcad
... great !

[domenicomaria]

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

[ribarm]

I think there should be no lacks with ARCs when using CAB's BreakObjects.lsp that I modified and added (c:BreakAll-nogaps)... After breaking it's only needed to remove small pieces with length tolerance... I'll attach my version of BreakObjects.lsp if you or someone else is interested...

[BIGAL]

Like Ribarm used Cab's breakall, I used recently for a task, then just do a ssget and look at length of objects if short then delete.

[ribarm]

FYI,
I've changed posted *.lsp as I founded some lacks and I brefly remedy *.lsp...
You can find it here : https://www.theswamp.org/index.php?topic=57930.msg617266#msg617266

Regards,
HTH.
M.R.

[domenicomaria]

Like Ribarm used Cab's breakall, I used recently for a task, then just do a ssget and look at length of objects if short then delete.

but Cab's breakall will break all curves at all intersections!

So after that the curves are all broken !

And then if you join them again,
in each curve there will be some more vertices
where there were intersections...!

Or is what I'm saying incorrect?