Automatically Extend Lines

[vferrara]

Hello AUGI Members:

I have a unique requirement that may be difficult to solve......I have a plan drawing with many lines that are drafter at all different angles (vertical - horizontal - 45deg - 30deg - 60deg - etc.) that represent a structural steel framing plan. When we show steel framing in plan the ends of the lines do not touch or join together so all of the lines are, more or less arranged on the drawing but do not intersect with each other.

Is there a way, with a lisp or VBA routine, to have all of the lines automaticall extend to the closest intersecting line. Right now we have to use the extend command to manually extend all of the lines one at a time and I would like to automate the process.

Any assistance would be appreciated.

Regards,
Vince

[.T.]

Hi vferrara,

Just as an idea, and IF you have Map, try mapclean with "apparent intersection". Using a tollerance of 2'-10" it was able to do most of the cleanup in the sample drawing you posted. You might have a few to fix.

I hope this helps,

[lspbox]

I was not able to download your drawing sample, see if the attached ARX file that I wrote [for AutoCAD 2004-2006 and verticals] can do what you are looking for.

HTH

[.T.]

Hi lspbox (LE),

After looking in the swamp for directions, I tried the file; very cool! 8).

I may be able to email the file to you if you need (I was able to download it).

I couldn't make the program work for sferrara's case, because the lines don't actually cross; They need to be extended to creat the intersections.

Take care,

[lspbox]

It is ok Tim;

I see...

Well, at least there is a new command, that may be handy...

Have fun,