함수설명

Erase 명령어와 동일한 기능입니다.

 

구성

(xi:Erase ss)

    ss : Select Set, Ent, Obj 모두 가능

    반환: nil

 

 

예제)

(if (setq ss (ssget ":L"))
   (progn
      (xi:erase ss)
      (prompt (strcat "\n   " (itoa (sslength ss)) " 개의 객체 삭제됨."))
   )
)