chelsea1307 Posted January 30, 2009 Share Posted January 30, 2009 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 Quote Link to comment Share on other sites More sharing options...
lpseifert Posted January 30, 2009 Share Posted January 30, 2009 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 Quote Link to comment Share on other sites More sharing options...
chelsea1307 Posted January 30, 2009 Author Share Posted January 30, 2009 i tried the zerolisp it didnt work. I just registered for theswamp and will try that out as soon as it lets me Quote Link to comment Share on other sites More sharing options...
LifeoRiley0 Posted February 2, 2009 Share Posted February 2, 2009 Have you tried aecobjexplode? Quote Link to comment Share on other sites More sharing options...
Seneb Posted February 2, 2009 Share Posted February 2, 2009 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... Quote Link to comment Share on other sites More sharing options...
tzframpton Posted February 2, 2009 Share Posted February 2, 2009 try the FLATSHOT command. Quote Link to comment Share on other sites More sharing options...
skipsophrenic Posted February 2, 2009 Share Posted February 2, 2009 What does it say in the command bar after you run the flatter comand or flat lisp? Quote Link to comment Share on other sites More sharing options...
kool130 Posted February 3, 2009 Share Posted February 3, 2009 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.