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

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

<p>怎样求POLYLINE的端点数，请教各位大哥,我只知道，</p><p>(setq a(ssget))<br/>&nbsp; (setq obj(vlax-ename-&gt;vla-object (ssname a 0)))<br/>&nbsp; (setq zb(vlax-variant-value(vla-get-coordinates obj)))</p><p>然后求出ZB的列表个数，或者POLYLINE的端点数,我就不懂了，有哪个大哥告诉我一下</p>

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

<p>方法1：</p><p>前面同上</p><p>(vlax-safearray-&gt;list zb)</p><p>方法2：</p><p>(setq pts(vlax-get (vlax-ename-&gt;vla-object (car (entsel))) 'Coordinates))</p>

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

本帖最后由 作者 于 2008-12-27 12:21:42 编辑 <br /><br /> <p>方法3</p><p>(vl-remove-if 'not (mapcar '(lambda (x)(if (= 10 (car x))(cdr x)))(entget(car(entsel)))))</p>

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

谢谢哈

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

<p>(fix(1+ (vlax-curve-getendParam a))</p><p>也可以实现</p>
页: [1]
查看完整版本: 怎样求POLYLINE的端点数，请教各位大哥