LISP routine, all defpoints back to XY Plane?
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=5447
Printed Date: 17.May.2026 at 10:35
Topic: LISP routine, all defpoints back to XY Plane?
Posted By: cheddarthief
Subject: LISP routine, all defpoints back to XY Plane?
Date 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
|
Replies:
Posted By: John Connor
Date 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;;
-------------
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."
<<AutoCAD 2015>>
|
|