Flatten in 2000LT

[Kev Bryce]

Need a little help here, using lt and can't manage to flatten a 3d drawing using the usual Lisp, is there any way I can globally flatten a drawing without, as i read somewhere earlier, Double clicking on every point i want to drop to 0?

Thanx in advance

[CarlB]

You say "using the usual lisp", but LT doesn't support Lisp use unless you have an add-on. A typical way to flatten in LT is the "move up and back" method.

Command: Move
Select objects: all
xx found
Select objects:
Specify base point or displacement: 0,0,1e99
Specify second point of displacement or <use first point as displacement>:<return>
Command:
MOVE
Select objects: p
xx found
elect objects: <return>
Specify base point or displacement: 0,0,-1e99
Specify second point of displacement or <use first point as displacement>:<return>

[Kev Bryce]

Thanx CarlB,

I knew that LT does'nt accept lisp routines thats why i was asking for a workaround, but again thanx for the fix Carl.

What i would'nt do for a full version...