CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] ARKANCE | CONTACT - CZ | SK | EN | DE
Over 1.096.000 registered users (EN+CZ). AutoCAD tips, Inventor tips, Revit tips. Try the new precise Engineering calculator and the updated Barcode generator. New AutoCAD 2026 commands and variables.
RSS channel - CAD tips RSS tips
RSS discussions

Discussion Discussion forum

?
CAD discussions, advices, exchange of experience

CAD Forum - Homepage CAD discussion forum - ask any CAD-related questions here, share your CAD knowledge on AutoCAD, Inventor, Revit and other Autodesk software with your peers from all over the world. To start a new topic, choose an appropriate forum.

Please abide by the rules of this forum.
This is a peer-to-peer forum. The forum doesn't replace the official direct technical support provided by ARKANCE for its customers.
How to post questions: register or login, go to the specific forum and click the NEW TOPIC button.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Topic ClosedLISP routine, all defpoints back to XY Plane?
 Post Reply Post Reply
Author
  Topic Search Topic Search  Topic Options Topic Options
cheddarthief View Drop Down
Newbie
Newbie


Joined: 22.Jun.2010
Location: United States
Using: AutoCAD 2011
Status: Offline
Points: 4 		Direct Link To This Post Topic: LISP routine, all defpoints back to XY Plane?
    Posted: 11.Mar.2011 at 17:02
I have a situation where someone not very skilled at CAD has drawn a 2D drawing and somehow not all of the geometry is showing up on the XY plane at 0 (zero) in the Z axis.  Even worse, some of the lines (geometry) is not even parallell to the XY plane.  Is there a LISP routine I can run that will take all defpoints as viewed from the XY plane and move them to the 0 plane on the Z axis?  I hope I explained this correctly.  Thanks in advance to any help.
The Cheddarthief
Back to Top
John Connor View Drop Down
Senior Member
Senior Member


Joined: 01.Feb.2011
Location: United States
Using: AutoCAD 2018
Status: Offline
Points: 7175 		Direct Link To This Post Posted: 11.Mar.2011 at 17:28
Have you tried the FLATTEN command found in Express Tools?

Another option still available is to use the CHANGE command with the ELEVATION option.

Finally there are these two macros courtesy of Vladmir Michl (anyone recognize that name?):

[FlattenSel]^C^C_UCS;;_select \_move _p;;0,0,1e99;;_move _p;;0,0,-1e99;;

[FlattenAll]^C^C_UCS;;_move _all;;0,0,1e99;;_move _all;;0,0,-1e99;;



Edited by John Connor - 11.Mar.2011 at 17:34
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."

<<AutoCAD 2015>>
Back to Top

Related CAD tips:


 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down



This page was generated in 0,133 seconds.
CADforum
CADforum
Tips and tricks, support, utilities, help, discussions on AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill and other Autodesk software (community support by ARKANCE). See About CADforum.
Copyright © 2025 | Advertise with us | Online privacy
ARKANCE - Autodesk Platinum Partner & Training Center & Services Partner
CONTACT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist