Программа для обнуления Z координаты всех объектов AutoCAD, включая 3DSOLID и 3DSPLINE

Скачал эту великолепную программку с сайта http://www.cadstudio.cz
Посмотрите какая красота мысли и очень короткий код.
Программа написана для обнуления Z координаты ВСЕХ объектов AutoCAD, включая 3DSOLID и 3DSPLINE,
причем в двух последних случаях без возможности отмены.
Я сделал малюсенькую доработку, чтобы она не портила трехмерку...
;Первоначальный вариант программы "плющит" все без разбора.

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

Чтобы посмотреть как это происходит - загрузите первоначальную версию программы.
В чертеже должна быть трехмерка

P.S.

1. бывают непонятные глюки - мелкие дуги программа ИНОГДА кидает в т. 0,0,0
2. Важно: команда UNDO для трехмерки и трехмерных сплайнов не работает - это навсегда :))


Jurasic (Jurasic@yandex.ru)
13 09 02