请教两个问题

zxy9108 · 发表于 2005-11-17 08:33

最近在编一个自动标注某类零件的程序,编程中有以下困难没有找到办法:

1, 在某个图元中如何找到X或Y坐标最大最小的点;

2. 在一批图元中(或一个图元中)如何找到UCS的X坐标或Y坐标为0的点.

特向各位请教

bjzjt · 发表于 2005-11-17 09:19

1.把点都找出来构成列表 lpts (你不会是做不出这步吧?)

(setq lx (mapcar 'car lpts))

(nth (vl-position (apply 'min lx) lx) lpts)

其他的依此类推

2.(vl-remove-if-not (function (lambda (x) (or (zerop (car x)) (zerop (cadr x))))) lpts)

yxp · 发表于 2005-11-17 09:33

只需要一个循环就可以把你的两个问题都解决了。

zxy9108 · 发表于 2005-11-17 10:02

我觉得上面两位可能把问题想简单了,把点全部找出来,只能找一些控制点,只分析控制点得出的东西可能是不正确的

bjzjt · 发表于 2005-11-17 14:45

噢,原来是位"业余侠客",我说的呢,比我还菜的应该不多了,早知道就不卖这三板斧了.

那就给你第二条提个建议吧:做一条X坐标为0的水平XLINE,用INTERSECTWITH方法求交点.

kccxcc · 发表于 2005-11-17 15:38

用ap-api中的getboundingbox方法找到封闭一个实体边界框

meflying · 发表于 2005-11-17 17:09

vlisp中就有getboundingbox的方法,vla-getboundingbox

不过这个方法有些问题,看下面的讨论,,,不知道ap-api中的会不会有不同

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