2d drawing contain any 3d object

[Anonymous]

Hi,
Can Anyone help me.
I have a large drawing with lot of attachment. I need a lisp programme to check each object in the drawing is 2d or 3d. if any 3d (z coordinate value other than 0) it want to show a message like "2d drawing contains 3d Objects.

Regrads,
M.Kumar

[Anonymous]

M.Kumar,

Something as simple as this may suffice.

{code}
;; Check Z extents.
(defun c:CZ ( )
(command "._zoom" "_extents")
(if
(and
(equal 0.0 (caddr (getvar "extmin")) 1e-6)
(equal 0.0 (caddr (getvar "extmax")) 1e-6)
)
(princ "\nDrawing is flat. ")
(princ "\nDrawing is not flat. ")
)
(princ)
) ;end
{code}

Joe Burke


wrote in message news:6278618@discussion.autodesk.com...
Hi,
Can Anyone help me.
I have a large drawing with lot of attachment. I need a lisp programme to check each
object in the drawing is 2d or 3d. if any 3d (z coordinate value other than 0) it
want to show a message like "2d drawing contains 3d Objects.

Regrads,
M.Kumar

[Anonymous]

hi Joe Burke

Thanks for your valuable help... Can I find the objects which is in 3d?.

Regards,
Manoj Kumar

[Anonymous]

You're welcome,

Have you tried front view?

Command: -VIEW
Enter an option [?/Delete/Orthographic/Restore/Save/sEttings/Window]: o
Enter an option [Top/Bottom/Front/BAck/Left/Right]: f


wrote in message news:6279353@discussion.autodesk.com...
hi Joe Burke

Thanks for your valuable help... Can I find the objects which is in 3d?.

Regards,
Manoj Kumar