Test ! bad drawing. Z axis can't to zero.

I use command "FLATTEN" can't reset Z axis to zero.

I use LISP ,but it's too.

[color=#444444][color=#444444];;vla[/color][/color]
[color=#444444][color=#444444];;(HH:vlaZto0 (ssget))[/color]
[color=#444444](defun HH:vlaZto0 (ss / E N OBJ P1 P2)[/color]
[color=#444444]  (defun MoveOne (e)[/color]
[color=#444444]    (setq obj (vlax-ename->vla-object e))[/color]
[color=#444444]    (vla-move obj p1 p2)[/color]
[color=#444444]    (vla-move obj p2 p1)[/color]
[color=#444444]  )[/color]
[color=#444444]  (setq p1 (vlax-3d-point '(0 0 0)))[/color]
[color=#444444]  (setq p2 (vlax-3d-point '(0 0 1000e99)))[/color]
[color=#444444]  (cond[/color]
[color=#444444]    ((equal (type ss) 'ENAME) (MoveOne ss))[/color]
[color=#444444]    ((equal (type ss) 'PICKSET)[/color]
[color=#444444]     (repeat (setq n (sslength ss))[/color]
[color=#444444]       (MoveOne (ssname ss (setq n (1- n))))[/color]
[color=#444444]     )[/color]
[color=#444444]    )[/color]
[color=#444444]  )[/color]
[color=#444444])[/color]
[/color]

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

[color=#444444][color=#444444];;DXF[/color][/color]
[color=#444444][color=#444444];;(XX:LeftPick:LineZto0Ent (car(entsel)))[/color]
[color=#444444](defun XX:LeftPick:LineZto0Ent (ss)[/color]
[color=#444444]  (defun MoveOne (e)[/color]
[color=#444444]    (entmod[/color]
[color=#444444]      (mapcar[/color]
[color=#444444]'(lambda (X)[/color]
[color=#444444]    (cond[/color]
[color=#444444]      ((or (equal (car x) 11) (equal (car x) 10)) (list (car x) (cadr x) (caddr x)))[/color]
[color=#444444]      (T x)[/color]
[color=#444444]    )[/color]
[color=#444444]  )[/color]
[color=#444444](entget e)[/color]
[color=#444444]      )[/color]
[color=#444444]    )[/color]
[color=#444444]  )[/color]
[color=#444444]  (cond[/color]
[color=#444444]    ((equal (type ss) 'ENAME) (MoveOne ss))[/color]
[color=#444444]    ((equal (type ss) 'PICKSET)[/color]
[color=#444444]     (repeat (setq n (sslength ss))[/color]
[color=#444444]       (MoveOne (ssname ss (setq n (1- n))))[/color]
[color=#444444]     )     [/color]
[color=#444444]    )[/color]
[color=#444444]  )[/color]
[color=#444444])[/color][/color]

DWG file in attachments.

Multi-part archive

Need download all and unzip...

help.part1.rar

help.part2.rar

help.part3.rar

any routine or any tools can solve this problem ?

Need download all “rar” file and unzip...

Just a comment, I don't have a program that will unrar on my works computer, maybe thats the case with other people, you could maybe try a standard zip file format.

Just a comment, I don't have a program that will unrar on my works computer, maybe thats the case with other people, you could maybe try a standard zip file format.

sorry ! steven. I use zip, but need Multi-part archive .so the second package suffix is"*.z01" ,can't upload. The file type is not supported.

here can download DWG file.

http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/z-axis-can-t-to-zero/td-p/5270047

Perhaps it is the range of 3D objects in your drawing which is giving the trouble.

3D blocks and particularly MInserted blocks might be causing trouble.