怎么用一段代码求出多义线的最大x坐标？

yxp · 发表于 2009-10-10 17:10:00

求一段代码返回一个轻量多义线的x坐标的最大值。

下面这段代码有些复杂，请各位高手有兴趣的来精简一下，看谁的代码最短。

(apply 'max (mapcar 'car (progn (mapcar '(lambda(x) (if (= (car x) 10) (setq pt(cons (cdr x) pt)))) (entget(car(entsel)))) pt)))

liu_kunlun · 发表于 2009-10-10 17:50:00

已经足够精简

狂刀无痕 · 发表于 2009-10-11 09:06:00

(apply 'max (mapcar 'cadr (vl-remove-if-not '(lambda(x)(= 10 (car x)))(entget(car(entsel))))))

guohq · 发表于 2009-10-12 12:25:00

如果有弧段呢？上面是方法就不成立了!

用vla-GetBoundingBox比较可靠

账号		自动登录	找回密码
密码			注册

[基础] 怎么用一段代码求出多义线的最大x坐标？