准确获取封闭多段线的顶点数量

dyjwyqz5221

XDSoft修改了下函数xdrx-polyline-compress
2020.06.23更新的API
(xdrx-polyline-compress poly [mode])
mode --  1/2/4 位组合
已经实现全面消除重复段、重复点了，能准确得到顶点数了。
在此，十分感谢各位的支持和帮助！感谢XDSoft辛勤的付出！！！
                          ------dyjwyqz5221感言

[mw_shl_code=actionscript3,true](defun get:polyline:number(e / inx inxs p p- p+ lst)
        (xdrx-setvar "tolequalvector" 1.0)
        (xdrx_curve_setclosed e)
        (xdrx-polyline-compress e)
        (repeat 2
                (setq inx (xdrx-polyline-numverts e))
                (while (>= (setq inx (1- inx)) 0)
                        (setq inxs (xdrx-getpropertyvalue e "-index+" inx)
                                p (xdrx-polyline-getpointat e inx)
                                p- (xdrx-polyline-getpointat e (car inxs))
                                p+ (xdrx-polyline-getpointat e (cadr inxs))
                                lst
                                (list
                                        (list p- p)
                                        (list p p+)
                                        (list p- p+)
                                );;;list
                        );;;setq
                        (if (or (vl-some '(lambda(x) (equal (car x) (cadr x) 1e-1)) lst)
                                (xdrx-vector-isparallel (mapcar '- p p-) (mapcar '- p p+))
                                );;;or
                                (xdrx-polyline-removevertexat e inx)
                        );;;if
                );;;while
        );;;
        (xdrx-polyline-numverts e)
);;;defun[/mw_shl_code]

;;;用xdrx-polyline-compress函数测试

(defun c:tt1(/ e lst1 n pt)
        (setq e (car(entsel)))
        (xdrx_curve_setclosed e)
        (while (not (equal lst1 '(0 0 0) 1e-3))
                (setq lst1 (xdrx-polyline-compress e t t))
        );;;while
        (setq n (xdrx-polyline-numverts e))
        (setq pt (car (xdrx_entity_getstretchpoint e))
                pt (mapcar '+ pt '(0. 10000. 0.))
        );;;setq
        (xdrx_entity_setproperty
                (XD::Text:Make
                                (list pt)
                                (xdrx-prompt "顶点数为：" n t)
                                "yqz-style"
                                10000.
                                0.7
                                0.
                                "MC"
                );;;xd
                "color" 4
        )
        (princ)
);;;defun

;;;用get:polyline:number 函数测试

(defun c:tt2(/ e n)
        (setq e (car(entsel)))
        (setq n (get:polyline:number e))
        (xdrx_entity_setproperty
                (XD::Text:Make
                                (list (xdrx-polyline-centroid e))
                                (xdrx-prompt "顶点数为：" n t)
                                "yqz-style"
                                10000.
                                0.7
                                0.
                                "MC"
                );;;xd
                "color" 2
        )
        (princ)
);;;defun

XDSoft

试下 xdrx-points-compress

newer

什么情况下，xdrx-polyline-compress 不能清除？ 举个具体的例子

多用下容差变量 (xdrx-setvar "tolEqualPoint" xxxx)  (xdrx-document-setprec xxxx 0.1)

newer

命令: (xdrx-getpropertyvalue (entlast) "numverts")
10

命令: (length (xdrx-points-compress (xdrx-getpropertyvalue (entlast) "vertices")))
4

命令: (xdrx-polyline-compress (entlast))
(6 0 0)

dyjwyqz5221

明天测试下。并且将测试图发上

xk15c

很实用的插件，谢谢分享

yangjian001

做一个热心并受欢迎的人

dyjwyqz5221

newer 发表于 2020-6-20 18:38
什么情况下，xdrx-polyline-compress 不能清除？ 举个具体的例子

多用下容差变量 (xdrx-setvar "tolEqua ...

之前有个图存在这种情况找不到了。这是我自己绘制的一个lwpolyline多段线，可能不符合绘图的规律。
属于极限测试类型的。用了你们的方法都不能完全清除重复点。

XDSoft

dyjwyqz5221 发表于 2020-6-21 20:19
之前有个图存在这种情况找不到了。这是我自己绘制的一个lwpolyline多段线，可能不符合绘图的规律。
属于 ...

试下 2020.06.22更新的API
(xdrx-polyline-compress poly [mode])
mode --  1/2/4 位组合

yangjian001

做一个热心并受欢迎的人

dyjwyqz5221

XDSoft 发表于 2020-6-22 02:42
试下 2020.06.22更新的API
(xdrx-polyline-compress poly [mode])
mode --  1/2/4 位组合

谢谢，好的，我测试一下。有你们的支持，一些问题就简单多了，这个网站会越来越火的。我以后有空会多发些东西上来，希望对网站的人脉提升有所贡献。

dyjwyqz5221

XDSoft 发表于 2020-6-22 02:42
试下 2020.06.22更新的API
(xdrx-polyline-compress poly [mode])
mode --  1/2/4 位组合

测试好了。没问题。
其中的1、2、4各代表什么？

newer

dyjwyqz5221 发表于 2020-6-22 12:17
测试好了。没问题。
其中的1、2、4各代表什么？

只消除重点， 可以允许一个线方向多个顶点，用
(xdrx-polyline-compress (entlast) 2)

newer

dyjwyqz5221 发表于 2020-6-22 12:17
测试好了。没问题。
其中的1、2、4各代表什么？

4是给你干这个的，就是删除掉过终点后还有顶点的
等下版本API更新

newer

newer 发表于 2020-6-22 13:06
只消除重点， 可以允许一个线方向多个顶点，用
(xdrx-polyline-compress (entlast) 2)

2是干这个的，下版本API更新




1是合并一个方向上 共线的顶点