LongZT 发表于 2008-3-11 13:49:00

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

<p>比如我选了一个只有圆的选集,如何把其中的每一个圆心坐标(10 . xx xx xx)序提出来?</p><p>(setq mod (ssget "x" '((0 . "circle"))))</p>

sailorcwx 发表于 2008-3-11 14:25:00

ssname

LongZT 发表于 2008-3-11 15:53:00

<p>非常感谢你!</p><p>刚开始学LIP,对很多函数不很了解啊!</p>

xshrimp 发表于 2008-3-11 17:23:00

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

czcxxx 发表于 2015-9-21 09:26:42

页: [1]
查看完整版本: [求助]如何把一个选集里的图元的参数一个一个(按图元)提取出来?