Print Page | Close Window

Z-Axis Lisp

Printed From: CAD Forum
Category: EN
Forum Name: AutoCAD
Forum Description: Discussion about AutoCAD and AutoCAD LT, viewers, DWG and DWF formats, Design Review, AutoCAD 360, add-ons
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=948
Printed Date: 16.May.2026 at 07:22


Topic: Z-Axis Lisp
Posted By: jimmyp75
Subject: Z-Axis Lisp
Date Posted: 29.Jul.2008 at 19:22
I work with drawings of Manufacturing facilities and theese DWG files get passed around over time and get all messed up.
 
One problem is that for some reason or another, lines and objects on a 2D drawing are on different Z-Axis Planes.  you can select a line and look at the properties and the "Start Z" will have a different value than the "End-Z". 
 
I was wondering if there if anyone knows of a LISP routine or command where you could select a group of line/objects and it would reset the Z-Axis values to Zero.
 
Thanks in Advance.


Replies:
Posted By: PepaR
Date Posted: 29.Jul.2008 at 22:19
This lisp can help you probably.
 
http://www.cadforum.cz/forum_en/uploads/20080729_221912_flatten.lsp - uploads/20080729_221912_flatten.lsp


-------------
PepaR

Posted By: Belianis
Date Posted: 02.Aug.2008 at 17:54
You can also download APlus plugin from http://www.cadaplus.com/ - http://www.cadaplus.com  .
There is command AFLAT which resets Z-axis values to 0.
You may also use command MZ (Move just in Z) to move particular objects or even create their copy just in Z-axis (with COZ command). There are also many command which will help you out with finding out problems in drawings from Manufacturers, such as SLANTED command that search for lines that appear to be straight but are not.
 
Check it out, you won't regret :)


-------------
http://www.cadaplus.com - http://www.cadaplus.com - AutoCAD plugin for architects with over 500 new commands ... and some free blocks :)

Posted By: jimmyp75
Date Posted: 04.Aug.2008 at 14:12

This Lsp program did exactly what i wanted... except that i tried it on an actual 3d drawing that i was working on and it flatened everythign out....but the Undo does nto work!  so, Luckily i ahd jjsut saved the fiel and didn't lose any work.

 

Other than that, works great..  Thanks for the help.


Print Page | Close Window