sihan 发表于 2005-5-16 14:55:00

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

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

ljpnb 发表于 2005-5-16 16:31:00

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

lockmyeye 发表于 2005-5-16 18:21:00


(SETQ data '((1070 (47 47.777) (48 48.888))))
(VL-REMOVE-IF-NOT
   '(LAMBDA (tmp) (OR (= 47 (CAR tmp)) (= 48 (CAR tmp))))
   (CDR (ASSOC '1070 data))
)
;;再进一步
(MAPCAR'CDR
(VL-REMOVE-IF-NOT
   '(LAMBDA (tmp) (OR (= 47 (CAR tmp)) (= 48 (CAR tmp))))
   (CDR (ASSOC '1070 data))
)
)
页: [1]
查看完整版本: 求救,怎样用assoc读一个有多个组值的组码?