how do I flatten this?

[chelsea1307]

So, we got new backgrounds for this job and i cant get it to flatten into 2d from 3d. Ive tried using the flatten.lsp and another lisp i found called flat.lsp and neither worked. i tried exploding the entire dwg and then trying both of those and still it didnt work. Im trying to make the file smaller so i can upload it but if you have any suggestions in the mean time on how to do it let me know

[lpseifert]

Have a look here...

http://www.cadtutor.net/forum/showthread.php?t=16434&highlight=flatten

 

or maybe SuperFlatten will work for you

http://www.theswamp.org/index.php?topic=18153.0

[chelsea1307]

i tried the zerolisp it didnt work. I just registered for theswamp and will try that out as soon as it lets me

[LifeoRiley0]

Have you tried aecobjexplode?

[Seneb]

What about selecting all objects and changing the Z elevation property to 0?

 

Change - Properties - Elevation - 0

 

Perhaps I'm way off with what you're actually doing...

[tzframpton]

try the FLATSHOT command.

[skipsophrenic]

What does it say in the command bar after you run the flatter comand or flat lisp?

[kool130]

did you try this...?

 

; Flatten a 3D drawing

; Written by Eduard

; This command will set all elevations and points to zero, effectively flattening any 3D drawing.

(defun c:flat (/ total-nabor)

(vl-load-com)

(if

(setq total-nabor (ssget "x" '((410 . "model"))))

(progn

(setq total-nabor

(mapcar 'vlax-ename->vla-object

(mapcar 'cadr

(ssnamex total-nabor)

) ;_ end of mapcar

) ;_ end of mapcar

) ;_ end of setq

(foreach i '(1e99 -1e99)

(mapcar (function (lambda (x)

(vla-move x

(vlax-3d-point (list 0 0 0))

(vlax-3d-point (list 0 0 i))

) ;_ end of vla-move

) ;_ end of lambda

) ;_ end of function

total-nabor

) ;_ end of mapcar

) ;_ end of foreach

) ;_ end of progn

) ;_ end of if

(princ)

) ;_ end of defun