Тема: команда FLATTEN уничтожает все гипнрссылки объектов

команда FLATTEN уничтожает все гипнрссылки объектов
как с этим бороться?
подcкажите
спасибо!

Re: команда FLATTEN уничтожает все гипнрссылки объектов

Например, вместо команды FLATTEN использовать следующий LISP:

;;переводит все примитивы чертежа на плоскость Z=0

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