Global Filleting

[Phil]

Is there a command or lisp program that will enable me to fillet a number of lines by selecting them all at once. Thanks for any assistance.

[Raggi_Thor]

Have you asked theis before?
It's hard to amke such a program because how can we figure out what side you want to keep of each line, and what lines belong together? Can you show us an example?

[Phil]

I work in the surveying industry and have just received a plan with 60 square lots a which the engineer had put circles at the corners and trimmed. I have removed the circles now and have to fillet the corners one at a time. I was just thinking that in this case it would be so easy to put a window around the job and fillet all the corners. I do understand what you are saying however but I thought I would ask.

[mdbdesign]

I use fillet command and polyline.
It is easy to convert lots to polyline with boundary command on different layer.
Make two button:
first:
*^C^C-boundary;\;
and second:
*^C^C_fillet;p;
Set up fillet radius
and good luck!

[BIGAL]

You can fillet multi parrallel lines in one go I do this with house walls ie 4 lines crossing in two directions (at one stage wrote it for any number of lines)
A couple of tricks to would be programmers
pick point near cnr
zoom in
pick first wall
pick second wall
turn off snap (screws up pick selction)
you now have 2 line directions for pick each line in turn

also can do double line crossings + so as to leave centre trimmed out used on house slab plans and I now suppose you want the code sorry its copyrighted by former company I worked for but more than happy to explain how to do it as above.

[Raggi_Thor]

If you have AutoCAD 2004(?) or newer, try PEDIT and the option Multiple, then select Join and select all your "open" squares, enter a "fuzz distance" a little larger than the circle radius, the distance between two lines at a corner.
Four and four lines will be joined to a pline.

[Raggi_Thor]

Did you try that?
Was that what you needed?




Command: pe
PEDIT Select polyline or [Multiple]: m
Select objects: Specify opposite corner: 12 found
Select objects:
Convert Lines and Arcs to polylines [Yes/No]? <Y>
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.00>: Specify second point:
9 segments added to 3 polylines

[Alan Cullen]

Well done Ragi. I never gave Multiple pedit a thought. The only problem is you never can control how the lines join up. But just explode the lot afterwards, and everything should be ok. :lol:

That problem we get a lot here. The next time we get lots from the surveyors, I'm going to try your method. :lol:

[Raggi_Thor]

I wish the people that ask question could get into the habit of telling us when they find a solution that work for them.

Phil? Did any of the suggestions work for you?

[SLW210]

Before you deleted all the arcs, all you needed to do was a Pedit>Join to join the lines to the arcs.

[Alan Cullen]

Not quite, AGM.

Subdivision layout. Surveyors have a habit of placing small circles at all boundary bends and corners, and trimming them out. Like this:

3113

Then we have to delete the cirles, and end up with this:

3114

Then somehow we have to join all the boundary lines together again.

[SLW210]

Not quite, AGM.

Subdivision layout. Surveyors have a habit of placing small circles at all boundary bends and corners, and trimming them out. Like this:

3113

Then we have to delete the cirles, and end up with this:

3114

Then somehow we have to join all the boundary lines together again.

That just seems absolutely dumb to me. Why put them in when they have to be deleted and redone?

[Raggi_Thor]

Sometimes people want different things :)

[Alan Cullen]

Yeah, it's a presentation thing to council for subdivision approval. Then we get the same drawing for design purposes. Surveyors reckon we can sort it out rather than them. And life goes on. :(

[BIGAL]

Got an answer for you alan here is a tic program that adds a short line to the end of your existing line but on another layer so you can have circles or lines on plot.

; draw architectural tic marker
;pick layer required

(setvar "cmdecho" 0)

(setq exlay (getvar "clayer"))
(if (or (= setsc nil)(= setsc 0))(scaleset))

(setq tics yourlayer name here )

(setq obj nil)
(while (= obj nil)
(setq obj (entsel "\n Pick any object on the required layer :"))
)

(setq tic_len (getreal "\nEnter tick size mm <2> "))
(if (= tic_len nil)
(setq tic_len (* 2 setsc))
(setq tic_len (* tic_len setsc))
)

(setq player (cdr (assoc 8 (entget (car obj)))))
(princ "\n Object is on the layer: ")
(princ player)
(princ "\n ")

; Selection set to measure
(while (not (setq ss (ssget))))

;; For each entity in the selection set, check if it is an entity that can
;; be used.
;now pick multiple lines etc

(setvar "clayer" tics)

(while (setq en (ssname ss 0))
; Entity type
(setq entyp (cdr (assoc 0 (entget en))))
;layer type
(setq aclayer (cdr (assoc 8 (entget en))))

(if (and (= entyp "LINE") (= player aclayer))
(progn
(setq p1 (cdr (assoc 10 (entget en))))
(setq p2 (cdr (assoc 11 (entget en))))
(setq ang (angle p1 p2))
(setq p3 (polar p1 (- ang pi) tic_len))
(setq p4 (polar p2 ang tic_len))
(command "line" p1 p3 "")
(command "line" p2 p4 "")
)
)
; Delete each measured entity from set
(ssdel en ss)
;end while
)


(setq p1 nil
p2 nil
p3 nil
p4 nil
tic_len nil
ss nil
en nil
)

(setvar "clayer" exlay)

(princ)

[Alan Cullen]

Thanks for that, BIGAL.

I'll give it a try after lunch. :D

[SLW210]

You could write a script using Raggi_Thor's instructions and use select all for the selection.

[Raggi_Thor]

Maybe the guys adding the circles could have a wipeout inside that circle? Then it would be possible to turn that layer off later.

[Alan Cullen]

Hey, Raggi, you want to explain that to blokes who live in the field, and hate having to sit on computers? :lol: :lol: :lol:

[SLW210]

Maybe the guys adding the circles could have a wipeout inside that circle? Then it would be possible to turn that layer off later.

Yea, that's a great idea and the "proper" way to do it, but getting them to do it might be another problem. :thumbsup: