[求助]如何把一个选集里的图元的参数一个一个(按图元)提取出来?

LongZT

比如我选了一个只有圆的选集,如何把其中的每一个圆心坐标(10 . xx xx xx)序提出来?

(setq mod (ssget "x" '((0 . "circle"))))

sailorcwx

ssname

LongZT

非常感谢你!

刚开始学LIP,对很多函数不很了解啊!

xshrimp

2.   (setq mod (ssget "x" '((0 . "circle"))))  
3.   (mapcar
4.   '(lambda (x)  (cdr (assoc 10 (entget x)))  )
5.   (vl-remove-if 'listp (mapcar 'cadr (ssnamex mod) )
6.   )
7.   )

  (setq mod (ssget "x" '((0 . "circle"))))     (mapcar   '(lambda (x)  (cdr (assoc 10 (entget x)))  )   (vl-remove-if 'listp (mapcar 'cadr (ssnamex mod) )   )   )

czcxxx