Polyline filleting lisp request

Cheers!

If you don't know lisp or menu macros, you could always use the Action Recorder.

There is no such thing as a "rectangle". However, the rectangle command allows you to fillet the corners of the polyline that it creates.

Once fillet has been executed, you can type "p" and when you select a polyline, it will fillet all corners.

Command: f
FILLET
Current settings: Mode = TRIM, Radius = 0.0000
Select first object or [undo/Polyline/Radius/Trim/Multiple]: p
Select 2D polyline:

I should've checked for that... Schoolboy error! I think ill be able to put something together in light of this now. Cheers for the words of wisdom guys!

Yeah, it makes life a lot easier.

Good luck.

My question is similar but more complicated. I need a lisp routine to change the two ends of rectangles to arc's without shortening the long lines of the rectangle.

My question is similar but more complicated. I need a lisp routine to change the two ends of rectangles to arc's without shortening the long lines of the rectangle.

Do you need a lisp routine? If you fillet parallel lines, you get an arc.

We use bpoly to create outlines of 3D cabinet parts to cut on a CNC machine. When we have a dado in a part, we have to extend the dado beyond the part. We can either stretch the dados which are rectangles or explode them earase the ends and fillet them together. I am trying to come up with a lisp routine that will basically convert the ends of the rectangles into arcs.

We use bpoly to create outlines of 3D cabinet parts to cut on a CNC machine. When we have a dado in a part, we have to extend the dado beyond the part. We can either stretch the dados which are rectangles or explode them earase the ends and fillet them together. I am trying to come up with a lisp routine that will basically convert the ends of the rectangles into arcs.

Not difficult at all, just figure the param segment then vla-setbulge to 1 or -1. What do you have so far for code?

Try this on a LWPolyline, it will alter the first segment.

 (vla-setbulge (vlax-ename->vla-object (car (entsel))) 0 1)

That should get you started.

Just so you know, there's a much easier way to accomplish this w/o code. Granted, I'd still want to code it out.

The (vla-setbulge (vlax-ename->vla-object (car (entsel))) 0 1) is what i was looking for now i need to figure out how to use it similar to what Lee Mac did on this site to remove a line segment http://www.cadtutor.net/forum/showthread.php?t=39404

The (vla-setbulge (vlax-ename->vla-object (car (entsel))) 0 1) is what i was looking for now i need to figure out how to use it similar to what Lee Mac did on this site to remove a line segment http://www.cadtutor.net/forum/showthread.php?t=39404

You don't need all that code. Take what I've given you and check out vlax-curve-getparamatpoint.