함수설명
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)) " 개의 객체 삭제됨."))
)
)'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
| 파일 목록의 정렬 xi:FileSort (0) | 2023.03.08 |
|---|---|
| 파일 중복 회피를 위한 번호 붙임 xi:FileNameAutoNum (0) | 2023.03.05 |
| 동일 선상의 점 판단 xi:Colinear-p (0) | 2023.03.01 |
| 객체 선택 xi:Entsel (0) | 2023.03.01 |
| 문자입력 대화상자2 xi:EditBox2 (0) | 2023.03.01 |