topic Re: Extrim is not working properly! in Visual LISP, AutoLISP and General Customization Forum

Extrim is not working properly!

abbas.baghernezhad — Sun, 31 Dec 2023 20:24:10 GMT

I need to use EXTRIM alot but I've discovered that this command sets an imaginary offset for trimming so it doesn't work all the time. Most surprisingly it would work for some other polylines in the same drawing.

I'm confused !

Here I have attached an example. here it works for the green polylines and doesn't work for the red one!

How can I solve this problem? Is there a macro to replace EXTRIM?

I just found out that there is a EXTRIM.lsp file in

C:\Program Files\Autodesk\AutoCAD 2021\Express

Maybe editing this file can make that imaginary offset disappear or smaller! But I don't know anything about LISP!

Re: Extrim is not working properly!

Ed__Jobe — Mon, 01 Jan 2024 00:25:20 GMT

I tried your example and I don't see any failure. Perhaps you can post a screenshot or better yet a video of how you are using EXTRIM. Use ScreenToGif to create a video.

Re: Extrim is not working properly!

abbas.baghernezhad — Mon, 01 Jan 2024 04:44:02 GMT

I also tested the file on my computer at work with the same version of AutoCAD. I got different results. My computer at home needed the polylines to be more overlapped.

Re: Extrim is not working properly!

Ed__Jobe — Mon, 01 Jan 2024 21:26:19 GMT

The jpg helped. I was able to reproduce the problem. If you move the red pline down towards the center of the green pline, then the trim operation works. I briefly examined extrim.lsp, and there might be a limitation with it. However, I haven't worked with lisp in many years and so it would take me longer to see what the limitation is and if there is a solution. I will move this to the lisp forum to see if someone over there can help you. Keep in mind that this is supplied by Autodesk. So if you make any modifications to extrim.lsp, then you have to be careful that updates to the program don't overwrite your changes. Keep a backup.

Re: Extrim is not working properly!

Sea-Haven — Mon, 01 Jan 2024 23:27:52 GMT

Inside Extrim.lsp is the function call (ETRIM you can use that directly rather than using the Extrim command, you just (load "Extrim") first have a look for it.

This example uses a pline then the (getvar 'Extmax) to pick a point at extremes of the dwg. Ps plus a little bit more.

(load "Extrim") (etrim (entlast) pmax)

Re: Extrim is not working properly!

abbas.baghernezhad — Tue, 02 Jan 2024 05:35:30 GMT

Thank You.

I opened the EXTRIM.lsp and I searched for ETRIM .

I'm very new to lisp. SO as I realized I need to load EXTRIM first. (Isn't it already loaded? I don't understand how to do it.)

Then with

(etrim (entlast) pmax)

I make some modification to the EXTRIM command, right?
I don't know how to do this either.

Please explain more ! I need it.

Re: Extrim is not working properly!

Sea-Haven — Tue, 02 Jan 2024 22:36:19 GMT

Try this

(If (not etrim)(load "Extrim")) (setq ent (car (entsel "\nPick green pline "))) (setq maxpt (getvar 'extmax)) (setq maxpt (mapcar '+ maxpt (list 1.0 1.0 0.0))) (etrim ent maxpt)

Re: Extrim is not working properly!

abbas.baghernezhad — Wed, 03 Jan 2024 04:28:44 GMT

Thank You.

The problem was with the The Red polyline! I need to edit my extrim.lsp some how that:

1- it doesn't ask for selecting entities. (doing the job in a VBA for-next loop.)

2-Always trims "Inside". (Doesn't ask for the second click)

3-It contains the modification you wrote.

So I could use it in my macro and save a lot of time. That would be very nice!

Re: Extrim is not working properly!

Sea-Haven — Wed, 03 Jan 2024 07:24:27 GMT

2-Always trims "Inside". (Doesn't ask for the second click)

Try this for shapes where a centre point is inside note a "U" or "L" shape may not work.

(setq ptc (osnap (vlax-curve-getStartPoint obj) "gcen"))

Re: Extrim is not working properly!

abbas.baghernezhad — Wed, 03 Jan 2024 10:35:32 GMT

We can offset inside the polyline and pick a Vertex. This works! no matter the polyline is convex or not. But I can't use this in VBA because we are using SendCommand and this way we can't use variables for vertex coordinates.

Can we do this in LISP?

Re: Extrim is not working properly!

Sea-Haven — Thu, 04 Jan 2024 00:19:41 GMT

VBA can call a lisp and likewise a lisp can call a VBA. So use the Etrim as above.

Re: Extrim is not working properly!

abbas.baghernezhad — Sun, 11 Feb 2024 08:18:25 GMT

Thank you.

It took me a while to learn more about lisp commands... still learning.

I hope these line can solve my problem but i need to use extrim in reverse. I want to remove everything that is "Inside" my polylines!

The strange thing is that "extrim" works fine for green polyline but it does not for the red one. I can't trim everything inside the red one!