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

怎样求polyline的端点数，请教各位大哥
www.dimcax.com
怎样求polyline的端点数，请教各位大哥
怎样求polyline的端点数，请教各位大哥,我只知道，
(setq a(ssget))
(setq obj(vlax-ename->vla-object (ssname a 0)))
(setq zb(vlax-variant-value(vla-get-coordinates obj)))
然后求出zb的列表个数，或者polyline的端点数,我就不懂了，有哪个大哥告诉我一下
d
方法1：
前面同上
(vlax-safearray->list zb)
方法2：
(setq pts(vlax-get (vlax-ename->vla-object (car (entsel))) 'coordinates))
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
方法3
(vl-remove-if 'not (mapcar '(lambda (x)(if (= 10 (car x))(cdr x)))(entget(car(entsel)))))
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
谢谢哈
d
(fix(1+ (vlax-curve-getendparam a))
也可以实现
d