;;
;;  see also, .\Express\Flatten.lsp - Converts 3d geometry to 2d geometry.			;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; How to use:											;;
;; (flatten (ssget "_:l" '((0 . "~VIEWPORT"))) "Yes")						;;
;; (flatten nil "Yes")										;;
;; (flatten nil "No")										;;

(defun flatten (ss ans)
 (acet-error-init (list nil 1))
 
 (princ "\nSelect objects to convert to 2d...")
 (if (not acet:flatn-hide)
     (setq acet:flatn-hide "No")
 );if
 
 (if (and (or ss (setq ss (ssget "_:l" '((0 . "~VIEWPORT")))))
          (setq ss (car (acet-ss-filter (list ss nil T))))
     );and
     (progn
      (if (not ans)
          (setq ans acet:flatn-hide)
          (setq acet:flatn-hide ans) 
      );if
      (if (equal ans "No")
          (acet-flatn ss nil)
          (acet-flatn ss T)
      );if
     );progn then
 );if
 (acet-error-restore)
);defun flatten

(load (findfile "ACETTEST.fas"))
(acet-autoload2	'("FLATTENSUP.LSP"	(acet-flatn ss hide)))
(princ "\nHow to use - Command: (flatten (ssget \"_:l\" '((0 . \"~VIEWPORT\"))) \"Yes\")")
(princ)