ssget-filtering.lsp 파일 첨부하였어요. 이렇게 하는 방법도 있으니, 리습 배우고 싶은분들 참고가 되었으면 합니다.
777님이 올리신 글의 마지막 부분에서,
(setq ssg2 (ssget '((-4 . "=")(0 . "CIRCLED")(-4 . "=")(40 . 20))))
(if (= ssg2 nil) (exit))
안되는 이유:
1. 오타가 있습니다. "CIRCLED" --> "CIRCLE"
2. '(-4 . "=")는 Relational Tests in Filter Lists인데, 이것은 뒤따라오는 "숫자(정수 또는 실수)"에 대해서만 작동합니다.
-4그룹을 두번 사용하셨는데, 첫번째거는 "CIRCLE"이 숫자가 아니므로 여기에서 잘 안된것같아요
두번째거는 반지름 20이 숫자이므로 정상작동합니다.
(setq ssg2 (ssget '((0 . "CIRCLE") (-4 . "=") (40 . 20)))) ; 이렇게 하면 의도하신대로 될듯합니다.
; 여기서는 저도 -4그룹코드를 생략하고, 리습님 답글처럼 쓰고있어요
첫댓글 상세한 설명 감사드립니다.