Flattening 2D and 3D Object in Autocad

copy the whole text below and compiled it as your LISP

; Flatten a 2D and 3D drawing
; 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


or download it here: FLAT.LSP

Huge Help Sir Render Master

thanks....and thanks! master rend....

aha. this is what im looking for! thanks rendermaster

salamat sir! sakto na kailangan ko

3DZONE wrote:Huge Help Sir Render Master

aesonck wrote:thanks....and thanks! master rend....

princedaguz13 wrote:aha. this is what im looking for! thanks rendermaster

jen_tol84 wrote:salamat sir! sakto na kailangan ko

youre all welcome

salamat po dito sir...abangan ko po ung 3rd part on how to install the express tools!