3d to 2d lisp

Dose anyone have a lisp to change 3D solids to 2D

Thanks.

does command FLATTEN not do the trick?

it flattens everything else besides the 3d solids..

Methods for obtaining 2D views from 3D solids include:

1. SectionPlane

2. Flatshot

3. SolView / SolDraw / SolProf

It is not the view i'm asking for, its more of furniture issue. The furniture is in 3d solids or 3d faces once command "aecobjexplode" has completed, and i would like to flatten furniture to make things easier.

It's a "furniture" issue? So what do you do exactly? Explode a 3D solid of a piece of furniture then attempt to give all the geometry a "Z" elevation of "0"?

i have sorted it .. i was using the flatten command in a 3d view, instead of plan view.. thanks for your input!!

i have sorted it .. i was using the flatten command in a 3d view, instead of plan view.. thanks for your input!!

But FLATTEN doesn't work perfect for small objects or objects far in view:(. Test you drawing before delivery:sick:.

Give this a try

PS: Not mine I think that it is for LEE

(defun c:Supflat  (/ ss ssObj j)
 (vl-load-com)
 (vlax-map-collection
   (vla-get-Layers
     (vla-get-ActiveDocument
       (vlax-get-acad-object)))
   '(lambda (x) (vla-put-lock x :vlax-false)))
 (if (setq ss (ssget "X" (list (cons 410 (getvar "CTAB")))))
   (progn
     (setq ssObj (mapcar 'vlax-ename->vla-object
                         (mapcar 'cadr (ssnamex ss))) j 0)
     (foreach Obj  ssObj
       (foreach n  '(1e99 -1e99)
         (if (vl-catch-all-error-p
               (vl-catch-all-apply
                 '(lambda (x)
                    (vla-move x (vlax-3d-point (list 0 0 0))
                                (vlax-3d-point (list 0 0 n))))
                 (list Obj)))
           nil
           (setq j (1+ j)))))
     (princ (strcat "\n" (rtos (/ j 2.0)) " Objects Flattened.")))
   (princ "\n<!> No Objects Found <!>"))
 (princ))

Some more:

http://www.cadtutor.net/forum/showthread.php?2019-Flatten