怎样求POLYLINE的端点数，请教各位大哥

xubin_9705 · 发表于 2008-12-27 11:55

怎样求POLYLINE的端点数，请教各位大哥,我只知道，

(setq a(ssget))
(setq obj(vlax-ename->vla-object (ssname a 0)))
(setq zb(vlax-variant-value(vla-get-coordinates obj)))

然后求出ZB的列表个数，或者POLYLINE的端点数,我就不懂了，有哪个大哥告诉我一下

nonsmall · 发表于 2008-12-27 12:13

方法1：

前面同上

(vlax-safearray->list zb)

方法2：

(setq pts(vlax-get (vlax-ename->vla-object (car (entsel))) 'Coordinates))

nonsmall · 发表于 2008-12-27 12:18

本帖最后由作者于 2008-12-27 12:21:42 编辑

方法3

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

xubin_9705 · 发表于 2008-12-27 12:50

谢谢哈

kai295701917 · 发表于 2009-1-3 13:21

(fix(1+ (vlax-curve-getendParam a))

也可以实现

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