sieben 发表于 2004-12-13 21:41:00

一个生成过滤器的子程序

(defun filter-pro (filter-list0 / filter-list1 filter-list2)<BR>       (setq        filter-list1 nil<BR>        filter-list2 nil<BR>       )<BR>       (foreach temp2 filter-list0 (setq filter-list1 (cons (car temp2) filter-list1)))<BR>       (foreach temp3 filter-list0 (setq filter-list2 (cons (cdr temp3) filter-list2)))<BR>       (setq filter-type (vlax-make-safearray vlax-vbinteger (cons 0 (1- (length filter-list0)))))<BR>       (vlax-safearray-fill filter-type (reverse filter-list1))<BR>       (setq filter-data (vlax-make-safearray vlax-vbvariant (cons 0 (1- (length filter-list0)))))<BR>       (vlax-safearray-fill filter-data (reverse filter-list2))<BR>       (princ)<BR>)


        (filter-pro '((-4 . "&lt;or")<BR>                                                       (-4 . "&lt;and")<BR>                                                       (0 . "LWPOLYLINE")<BR>                                                       (70 . 1)<BR>                                                       (90 . 4)<BR>                                                       (-4 . "and&gt;")<BR>                                                       (-4 . "&lt;and")<BR>                                                       (0 . "POLYLINE")<BR>                                                       (70 . 1)<BR>                                                       (90 . 4)<BR>                                                       (-4 . "and&gt;")<BR>                                                       (-4 . "or&gt;")<BR>                                               )<BR>        )<BR>       (vla-selectonscreen cic-sel filter-type filter-data)

coldming 发表于 2004-12-15 21:31:00

谢谢

威名 发表于 2004-12-17 10:38:00

页: [1]
查看完整版本: 一个生成过滤器的子程序