Command "FLATTEN"

[p7q]

Why dont use command flatten in lisp. 

(setq ss (ssget))
(if ss
  (progn
    (setq count (sslength ss))
    (setq i 0)
    (while (< i count)
      (setq obj (ssname ss i))
      (command "_FLATTEN" obj "" " ")
      (setq i (+ i 1))
    )
  )
)

when ı use this command ı see error ; Unknown command "FLATTEN". 

[Tharwat]

It's AutoLISP custom program whilst you might call it this way.

(C:flatten)

[SLW210]

You may also need

(acet-load-expresstools)

 Needed on some Express Tools to use in LISP.