topic Re: Help with Break-Fillet lisp in Visual LISP, AutoLISP and General Customization Forum

Help with Break-Fillet lisp

DC-MWA — Sat, 28 Mar 2020 20:34:18 GMT

Hi all,

I have been working on this Break-Fillet lisp to use for doing building sections. I have utilized a program called FilletLines (by DannyNL, autodesk forums 01-23-2019 12:37 AM) to do the fillet portion.

See image for description of issues...

I have attached lisp.

Thank you in advance for any input received.

-dc

Re: Help with Break-Fillet lisp

john.uhden — Sat, 28 Mar 2020 20:58:48 GMT

If the red shape is a polyline, and you set its entity name to E,

and if the white things are any kind of curve, and you can establish what you want to trim in the form as returned by (setq P (entsel)), eg. (<Entity name: 400b5e78> (-43.6888 -25.283 0.0)),

then

(command "_.trim" E "" P "")

Re: Help with Break-Fillet lisp

DC-MWA — Sat, 28 Mar 2020 21:06:06 GMT

Not sure. I follow you.

The point of the program is take a task that takes 7-8 clicks and do it in 2.

Re: Help with Break-Fillet lisp

john.uhden — Sat, 28 Mar 2020 21:15:46 GMT

Your image looks to me as though there are two white horizontal lines (or polylines) and one red orthogonal polyline, and that you want to trim the lower collinear line between the left and right sides of the polyline.

Re: Help with Break-Fillet lisp

DC-MWA — Sat, 28 Mar 2020 21:19:11 GMT

trim the white line, then fillet the red and while lines with 0 radius. With to clicks at the intersections.

Re: Help with Break-Fillet lisp

john.uhden — Sat, 28 Mar 2020 21:32:02 GMT

So there are originally just two (2) vertical red lines?

If they each just touch the white line, then all you need is to trim, and do not need to fillet as well.

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 00:14:22 GMT

They cross the white line.

Re: Help with Break-Fillet lisp

Sea-Haven — Sun, 29 Mar 2020 07:01:40 GMT

Agree with John use trim but with no DWG bit hard to work out exactly what is going on.

Re: Help with Break-Fillet lisp

Sea-Haven — Sun, 29 Mar 2020 07:34:46 GMT

Maybe this

(defun c:test ( / oldsnap pt1 pt2 pt3 pt4 obj1 obj2 obj3) (setq oldsnap (getvar 'osmode)) (setvar 'osmode 0) (while (setq pt1 (getpoint "\nPick 1st point next to line enter to exit ")) (setq pt2 (getpoint pt1 "\nPick point next to 2nd line ")) (setq obj1 (vlax-ename->vla-object (car (entsel "Pick line to be trimmed ")))) (setq ss (ssget "f" (list pt1 pt2)(list (cons 0 "*line")))) (setq obj2 (vlax-ename->vla-object (ssname ss 0))) (setq obj3 (vlax-ename->vla-object (ssname ss 1))) (setq pt4 (vlax-invoke obj1 'intersectWith obj2 acExtendnone)) (setq pt3 (vlax-invoke obj1 'intersectWith obj3 acExtendnone)) (setq pt3 (mapcar '(lambda (x) (/ x 2.0)) (mapcar '+ pt3 pt4))) (command "trim" "F" pt1 pt2 "" "" pt3 "") ) (setvar 'osmode oldsnap) (princ) )

Re: Help with Break-Fillet lisp

john.uhden — Sun, 29 Mar 2020 15:19:08 GMT

Pardon me, but that sounds like sloppy drafting in the first place. 😕

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 15:24:42 GMT

Hello my friend. Thank you for reply.

I tried your code on my wall scenario, this is what I get:

This is what the original program does. It works well if only one wall on line to be "cleaned up"...

Two clicks: break (white line) and fillet wall finish lines (red) to ceiling finish line (white)

Works great.

The problem occurs if there is more than 1 wall along the line to be "Cleaned up"....

Should look look like this:

Not sure if this is something that can be remedied. As I said, it works perfect with one wall along ceiling line.

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 15:29:10 GMT

The walls are generated automatically as is the truss or ceiling framing above. The drafting is done by picking the bottom of the wall, then entering a height and the framing size from a menu. The wall is drawn with top plates and bottom plate as well as finish offset.

Re: Help with Break-Fillet lisp

john.uhden — Sun, 29 Mar 2020 16:30:50 GMT

So, those red lines are wall studs? (I'm a civil, not an archie)

Why are they in pairs with a brace in between?

What is the horizontal distance between them?

Why are there two ceiling lines? Is that the sheetrock?

I am thinking of a way to do everything just by selecting everything in question.

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 16:53:21 GMT

1st let me say thanks for your time.

Ok...

Yes the double lines at the ceiling line represent the gyp board and the double lines at the walls (red) represent the gyp board on the walls.

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 16:55:05 GMT

The two rectangles in between the wall lines represent the double 2x top plates.

Re: Help with Break-Fillet lisp

john.uhden — Sun, 29 Mar 2020 18:53:08 GMT

I am not seeing it. The verticals look like studs to me.
Can you post a sample drawing (full scale) dumbed down to R16 or older?
I need to know the separation between the verticals so that I can filter
out which ones are the cutting edges.
Also, if there are always two (2) horizontals for the ceiling, is the lower
one always the target and the higher one is always ignored?

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 20:06:37 GMT

See image for explanation.

I have attached a drawing as well.

Please note, the program I uploaded works great as long as you only do one wall. Maybe a look at the original code may be easiest solution?

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 20:33:15 GMT

I disabled the fillet lines portion of original code. Looks like the break command is failing not the fillet.

I will continue to look.

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 20:38:04 GMT

Ok. On the 2nd and 3rd, 4th... passes, break is breaking the vertical lines instead of the horizontal lines.

Re: Help with Break-Fillet lisp

DC-MWA — Sun, 29 Mar 2020 20:43:55 GMT

This is crude, but I added:

(command ".draworder" "previous" "last" "" "f")

after the fillets are complete. It seems to work. I will continue to test.