Changing Normal Z from -1 to 0

[gwatkins]

I work with alot of files that have been converted from Autocad LDD to 2002 or 2004 and I then dxf these files in to another program. Is there a way to change the Normal Z from -1 to 0 on plines, arcs, and circles? These entities do not dxfout.

[Fantomas]

If you use LISP's can try this short program writen by Eduard:

(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

[Mark Thomas]

In LDT got to Utilites -> Edit -> Flatten Z values