Thursday, 4 July 2013

Flatten in Autocad shorcut

;Create a text file using notepad called flatten.lsp

(defun C:FLATTEN ()
 (command "_.UCS" "")
 (command "_.move" "_all" "" '(0 0 1e99) ""
      "_.move" "_p" "" '(0 0 -1e99) "")
 (princ)
)

;This lisp will project or move all the Z coordinate of the objects to z =0.

; or put in icon or pull down menu.
[Flatten ]^c^cucs;;move;all;;0,0,1e99;;move;p;0,0,-1e99;;


No comments:

Post a Comment

ACADSYS BONUS TOOLS 2025 for AutoCAD 2025 and AutoCAD LT 2025 only version 2025.99.03 (25-11-2024)

  This is the add-on AutoLISP routine for  AutoCAD 2025 and LT2025 above, a  collection of design tools can be found here. Enjoy. ACADSYS Bo...