topic how to fillet with continuous lines? in Visual LISP, AutoLISP and General Customization Forum

how to fillet with continuous lines?

thsa2501 — Sun, 24 Oct 2021 08:49:52 GMT

hi everyone,

i am having trouble with in lisp code. how to get fillet autolisp function to write with this code?why not getting fillet with these two points after the offset while putting the continuous lines.

(defun c:line () (setq p1 (getpoint "\npickt first point:")) (while (/= nil (setq p2 (getpoint p1 "\npick second point: "))) (command "line" p1 p2 "") (setq p1 p2) (command "offset" "0.2" p1 p2 "") (command "fillet" p1 p2 ) ) )

Re: how to fillet with continuous lines?

Kent1Cooper — Sun, 24 Oct 2021 11:24:35 GMT

Your p1 and p2 variables are on the original Line, never on the one resulting from the Offset, and by the time it gets to the Fillet command, they're at the same place. So the Offset will go to the side AutoCAD chooses, not necessarily the side you want it to. And the first time, the Line you want to Fillet that Offset result with doesn't even exist yet.

It could be worked out with a lot of additional code, the biggest complication being the side to which to Offset and ensuring that always goes the right way with any turn in direction. BUT AutoCAD will figure it all out for you without any custom command, with the MLINE command.

Re: how to fillet with continuous lines?

Sea-Haven — Mon, 25 Oct 2021 03:55:37 GMT

Like Kent why not just draw a pline then offset ? You can do a pick points in a lisp.

Just one of many ways to do a pline. The offset will be right to the 1st leg direction, a -ve offset will go left. Close is still valid finish.

(defun c:plpts ( / pt) (setq off (getreal "\nOffset distance + -")) (setq pt (getpoint "\nStarting point of Pline : ")) (command "_pline" pt) (while (= (getvar "cmdactive") 1 ) (command (getpoint (getvar 'lastpoint))) ) (vla-offset (vlax-ename->vla-object (entlast)) off) (princ) )

Re: how to fillet with continuous lines?

john.uhden — Tue, 26 Oct 2021 00:21:03 GMT

Umm, shouldn't that be...

(command (getpoint "\nNext point: " (getvar 'lastpoint)))

or do you guys from down under just expect the bartender to pass you another Great Northern without prompting?

And where is the Undo option? 😖

Re: how to fillet with continuous lines?

Sea-Haven — Tue, 26 Oct 2021 03:30:35 GMT

Yes a hint is always a good idea,

Re: how to fillet with continuous lines?

thsa2501 — Wed, 27 Oct 2021 10:23:42 GMT

hi kent

sorry for the delay message. thanks for the reply. yes, i agree your point. why additional code need for fillet function?

just not like come offset by given points for fillet.

Re: how to fillet with continuous lines?

thsa2501 — Wed, 27 Oct 2021 10:31:12 GMT

hi sea_haven

thanks for the reply. yes, I totally forget to put the pline there.

i would like to know. why put their function? i totally confused. can you clarify?

(while (= (getvar "cmdactive") 1 )
(command (getpoint (getvar 'lastpoint)))
)

Re: how to fillet with continuous lines?

Kent1Cooper — Wed, 27 Oct 2021 12:57:46 GMT

@thsa2501 wrote:

.... why additional code need for fillet function? ....

Because, for example, the things you want to Fillet are the results from Offsetting the things that you actually draw. That means code would be required after each Offset to get information [such as endpoints] about the last object, and save it somewhere, and then after the next source Line is drawn and Offset, more code to get information about what is now the last object, so that the Fillet operation can use some location on each of those newer Lines. But it can't use just any point on them. In this situation [with the white being the ones you draw and the red being the results of Offsetting those]:

using just the start point or the end point of each red Line could result in any of these:

or it might even "see" one of the white Lines in Filleting. So code would be needed to find some unambiguous place on each red Line that is not on a white Line, such as its midpoint, and even that could lie on some other object that the Fillet command might see instead of the right one:

Have you tried MLINE yet? It will do what you want, with no custom command definition.

Re: how to fillet with continuous lines?

john.uhden — Wed, 27 Oct 2021 14:01:01 GMT

@Kent1Cooper,
It's not quite as difficult as that.
The FILLET command is actually looking for 2 picks, a pick being a list of
ename and point, exactly as returned by entsel. So as long as the picks
provided include the ename of the offsets, you don't need to worry about
"seeing" other objects.
But I do think the points need to be more than the radius away from the
intersection point.

I don't remember how this started, but couldn't he achieve the correct
result by joining the original lines into a polyline and offsetting with
OFFSETGAPTYPE set to 1?

Re: how to fillet with continuous lines?

Kent1Cooper — Wed, 27 Oct 2021 14:18:43 GMT

@john.uhden wrote:
.... couldn't he achieve the correct result by joining the original lines into a polyline and offsetting with OFFSETGAPTYPE set to 1?

That raises the question of the shape of Filleted corners. The OP didn't specify or illustrate what is needed. If they should be rounded, and only on outside corners, OFFSETGAPTYPE = 1 would do that. If they should be sharp corners, it should be set to 0, but in that case I still say MLINE is the way to go.

Re: how to fillet with continuous lines?

Sea-Haven — Thu, 28 Oct 2021 03:23:15 GMT

Pedit Join, fillet P is not that hard, now offset.

Re: how to fillet with continuous lines?

thsa2501 — Thu, 28 Oct 2021 10:04:38 GMT

hi kent

i totally agreed with your point. i did not yet use mline. just wanted to know about the fillet function, because the offset function works for me.

Re: how to fillet with continuous lines?

john.uhden — Thu, 28 Oct 2021 12:02:02 GMT

Um, you don't need to fillet at all.

Re: how to fillet with continuous lines?

Sea-Haven — Fri, 29 Oct 2021 01:05:46 GMT

Fillet if radius required was pre-empting next question add a radius.

I do have a pline offset from other objects did it for water mains they can cross over sides of roads when going around intersections would do what was requested forgot all about it. Trying to find it. I need to index my lisps.

; draw offsets from points for random shape object making pline ; By Alan H AUG 2019 ; Just pick points in sequence then press enter a pline will be drawn (defun ah:ploffs (/ offdir offd x pt1 pt2 pt3 oldsnap ssp) (defun drawline (/ ang pt3 obj) (setq ang (angle pt1 pt2)) (if (= offdir "L") (setq pt3 (polar pt2 (+ ang (/ pi 2.0)) 10)) (setq pt3 (polar pt2 (- ang (/ pi 2.0)) 10)) ) (setvar 'osmode 0) (command "line" pt1 pt2 "") (setq obj (entlast)) (command "offset" offd obj pt3 "") (setq ssp (ssadd (entlast) ssp)) (command "erase" obj "") (setq pt1 pt2) ) (defun swapr-l (/) (if (= (strcase offdir) "L") (setq offdir "R") (setq offdir "L") ) (setvar 'osmode oldsnap) (setq pt1 (getpoint "\nPick next point")) (setq pt2 (getpoint "\nPick next point")) (drawline) ) ; starts here ; add side pick (setq oldsnap (getvar 'osmode)) (setq ssp nil) (initget 6 "R L") (setq offdir (strcase (getstring "Right or Left"))) (setq offd (getreal "Enter offset distance")) (setq pt1 (getpoint "pick 1st point")) (setq ssp (ssadd)) (initget 6 "1 2 3 4 5 6 7 8 9 0 a b c d e f g h i j k l m n o p q r s t u v w x y z") (while (setq pt2 (getpoint "\nPick next point or [S Swap sides]:<")) (cond ((= (type pt2) 'LIST) (drawline)) ((= (type pt2) 'str) (swapr-l)) ; also calls drawlines ((= pt2 nil) (quit)) ) (setvar 'osmode oldsnap) (initget 6 "Swap") ) (setq x 0) (repeat (- (sslength ssp) 1) (setvar 'filletrad 0) (command "fillet" (ssname ssp x) (ssname ssp (1+ x))) (setq x (1+ x)) ) (setq x 0) (command "pedit" (entlast) "Y" "J") (repeat (- (sslength ssp) 1) (command (ssname ssp x)) (setq x (1+ x)) ) (command "" "") (princ) ) (ah:ploffs)