求救,怎样用assoc读一个有多个组值的组码?

sihan

求救,怎样用assoc读一个有多个组值的组码?例如象 1070中 有47 和48                 这样将它们分别读出?         象         (setq                 data         (cdr (assoc 1070        a)))                         a 是所有组码

ljpnb

(setq en (entget (ssname s1 n) '("*")))
(setq gongcha(CAR(CDR (assoc -3 en ))))
(SETQ aa(nth 3 gongcha))
(setq bb (nth 5 gongcha))

lockmyeye

2. (SETQ data '((1070 (47 47.777) (48 48.888))))
3. (VL-REMOVE-IF-NOT
4.    '(LAMBDA (tmp) (OR (= 47 (CAR tmp)) (= 48 (CAR tmp))))
5.    (CDR (ASSOC '1070 data))
6. )
7. ;;再进一步
8. (MAPCAR  'CDR
9.   (VL-REMOVE-IF-NOT
10.      '(LAMBDA (tmp) (OR (= 47 (CAR tmp)) (= 48 (CAR tmp))))
11.      (CDR (ASSOC '1070 data))
12.   )
13. )

复制代码