3d Face Lisp

[KRBeckman]

Hey All,

 

I'm trying to write a program that will allow me to draw a polyline around a complex shape and then take the coordinates from that polyline and use them to draw 3d-faces to fill the interior portion of that polyline, but I really don't know where to start. Any ideas? Not looking for someone to write the program, just a pointer on how this might be done.

 

Thanks.

[David Bethel]

That would an extremely difficult one.

 

I usually try to brake the outline into 4 sided segments that then can be fed to EDGESURF. The human mind sees the overall picture a lot better than computer algorithms.

 

Good Luck -David

[KRBeckman]

Yeah, kinda what I was thinking... I looked at the lisp you wrote here:

 

http://www.cadtutor.net/forum/showthread.php?t=43411

 

But I was hoping for something that didn't have a line going through the middle, but I'm having a hard time wrapping my head around how to get it to work.

[David Bethel]

Well the line in the center can be taken care.

 

Can you post a sample of the PLINE? I've done some pretty weird shapes. Especially 2D thingies! -David

[KRBeckman]

Here ya go... Most of what I will use this for is just the tops of office desks (I work for a large Office Furniture Manufacturer). So it'll all be 2-d polylines.

PLINE EXAMPLE.dwg

[David Bethel]

That is exactly what pol-fill.lsp can handle

 

I do see a bug with pol-fill

 

To fix it:

 

_Convertpoly _Heavy Select your line

 

(load "POL-FILL")

 

Command: POL-FILL

 

Select Y axis boundry

 

Pick a point where both end lines are vertical

 

Pick the LINE Border

 

 

 

Do you have an editor that can change all of the faces edges to invisible ( change dxf group 70 to 15 )

 

I'll have to dig into it and find why it isn't converting LWPOLYLINEs into HEAVY POLYLINEs automatically. It should be doing it.

-David

[KRBeckman]

Yeah, I can hide the edges, but my boss won't let me do that... we have over 3/4mil symbols and if we started doing this the extra entities would greatly increase the amount of disk space we're using up.

[David Bethel]

Each 3dface is 100 bytes in R12.

 

Each side could be projected to to other but it would take good bit of effort. -David