vl-every, vl-some 함수

2016.02.20 01:34


vl-every 는 구성체의 모든 것이 T 이면 T 를 반환

(vl-every
   '(lambda (%)
      (= (type %) 'STR)
   )
   (list "a" "b" "c" 1)
)

nil 을 반환

 

(vl-every
   '(lambda (%)
      (= (type %) 'STR)
   )
   (list "a" "b" "c")
)

T 를 반환


 

;;;-----------------------------------------------------------------------------;

상기와 같은 구문

(apply 'and
   (mapcar
      '(lambda (%)
         (= (type %) 'STR)
      )
      (list "a" "b" "c")
   )
)

T 를 반환

 


;;;-----------------------------------------------------------------------------;

vl-some 은 그 반대로써, 하나라도 T면 T를 반환

;;;-----------------------------------------------------------------------------;

(vl-some
   '(lambda ( x ) (= x 3))
   '(0 1 2 3 4 5)
)

T 를 반환

 

이는 아래와 같다.

(apply 'or
   (mapcar
      '(lambda (%)
         (= (type %) 'STR)
      )
      (list "a" "b" "c" 1)
   )
)

 T 를 반환

 

 

'CAD > Lisp' 카테고리의 다른 글

=, eq, equal  (0) 2016.04.02
블럭안의 치수만 지우기  (0) 2016.02.20
vl-every, vl-some 함수  (0) 2016.02.20
vla-get-blocks 과 그 내용  (0) 2015.09.09
블럭의 삽입점을 좌표로 받는 네가지 방법  (0) 2015.07.28
선택 세트의 DXF 코드 내용을 변경하는 보조함수  (0) 2015.03.05

+ Recent posts