Set all objects back to zero Z elevation

sorry to interrupt the coffee morning, just found a problem and didn't know where to post it:o)

a block has been used that was at Z=0.0000003 it has been pasted into several drawings
lines drawn from the block are at the odd Z others are at Z=0
the offset is too small to zoom in on in side view,
to compound the problem parts of the drawing have been copy and pasted on, spreading like a virus. The first indication is not being able to pick intersections.

My only solution so far is to quick select any entity not equal to Z,0 but I have to check
line, Polyline, arc,, etc all separately has any one got or know of a lisp routine that will flatten out my problem.

Quote:

---

Originally Posted by alan.gladwin

sorry to interrupt the coffee morning, just found a problem and didn't know where to post it:o)

a block has been used that was at Z=0.0000003 it has been pasted into several drawings
lines drawn from the block are at the odd Z others are at Z=0
the offset is too small to zoom in on in side view,
to compound the problem parts of the drawing have been copy and pasted on, spreading like a virus. The first indication is not being able to pick intersections.

My only solution so far is to quick select any entity not equal to Z,0 but I have to check
line, Polyline, arc,, etc all separately has any one got or know of a lisp routine that will flatten out my problem.

---

Hello, alan, you could just do a search using the word 'flatten' or post the question under the forum acad 2005, acad general or acad 3d.
Good luck.

Note: I move this thread from the CWC forum to this one. I think it would do better here. Plus changed the title to something more meaningful.

Hi

Check out the following Submission # EX001339 by Robert Bell on the AUGI Exchange Page -

AUGI Exchange Search Page

Have a good one, Mike

There are many ways to (manually) fix this.

1 draw a polyline from any blank area of the drawing to snap to the "bad" line-end. Use the new point as your replacement startpoint.
Your polyline startpoint z will be zero and all vertices of a polyline have the same elevation.

2 There is a Flatten command in Express tools. If you don't have Express Tools, there are shareware lisp routines available with the same name.

3 Stretch the offending line end. Pick a blank area for the From point and @0,0,00000003 for the To point.

I hope this helps.

John B

There's the "Flatten Z Values" command, which lets you set the Z-coordinate(s) of all selected objects to a specified value, but I think it's part of Land Desktop...

Quote:

---

Originally Posted by richards.64879

There's the "Flatten Z Values" command, which lets you set the Z-coordinate(s) of all selected objects to a specified value, but I think it's part of Land Desktop...

---

Hi

It is part of LDT so doesn't really help an AutoCAD user....

Have a good one, Mike

Quote:

---

Originally Posted by Mike.Perry

Hi

Check out the following Submission # EX001339 by Robert Bell on the AUGI Exchange Page -

AUGI Exchange Search Page

Have a good one, Mike

---

Flatten.lsp works a treat, except a small querk, it moved several fillet radii from the 'correct' looking position to the y=0 line along with one circle, have looked at the lisp
but cant figure why? or indeed why it has only picked on some of the fillet arcs.

thanks for the help

Quote:

---

Originally Posted by alan.gladwin

Flatten.lsp works a treat, except a small querk, it moved several fillet radii from the 'correct' looking position to the y=0 line along with one circle, have looked at the lisp but cant figure why? or indeed why it has only picked on some of the fillet arcs.

---

That lisp uses the fact of double precision rounding errors. It moves everything at such a huge distance in the Z-axis that all Z-coordinates effectively round to 0. I'm surprised a few objects moved in the other axis, but I suppose it is possible. Did you audit the drawing before the flatten?

Copy and Paste this in your command line:

(command "MOVE" (ssget "x") "" "0,0,0" "0,0,1e99")
(command "MOVE" (ssget "p") "" "0,0,0" "0,0,-1e99")


Should solve it...