一个生成过滤器的子程序

sieben

(defun filter-pro (filter-list0 / filter-list1 filter-list2)
(setq filter-list1 nil
filter-list2 nil
)
(foreach temp2 filter-list0 (setq filter-list1 (cons (car temp2) filter-list1)))
(foreach temp3 filter-list0 (setq filter-list2 (cons (cdr temp3) filter-list2)))
(setq filter-type (vlax-make-safearray vlax-vbinteger (cons 0 (1- (length filter-list0)))))
(vlax-safearray-fill filter-type (reverse filter-list1))
(setq filter-data (vlax-make-safearray vlax-vbvariant (cons 0 (1- (length filter-list0)))))
(vlax-safearray-fill filter-data (reverse filter-list2))
(princ)
) (filter-pro '((-4 . "<or")
(-4 . "<and")
(0 . "LWPOLYLINE")
(70 . 1)
(90 . 4)
(-4 . "and>")
(-4 . "<and")
(0 . "POLYLINE")
(70 . 1)
(90 . 4)
(-4 . "and>")
(-4 . "or>")
)
)
(vla-selectonscreen cic-sel filter-type filter-data)

coldming

谢谢

威名