变复线后的图形，用(xdrx-polyline-compress e 7)消除不掉中间点

dyjwyqz5221

(defun c:tt (/ ss e)
        (if        
                (and (xdrx-setvar "picksethome" 2)
                        (setq ss (xdrx-ssget "\n框选框架柱计算配筋平面图：<右键退出>" ":L" '((0 . "lwpolyline")(8 . "柱,柱虚线")(70 . 0)(-4 . "<=")(90 . 6))))
                );;;and
                (progn
                        (xdrx-begin)
                        (xdrx-curve->polyline ss)
                        (xdrx-setsstodb ss 0)
                          (while (setq e (xdrx-getentdata 0))
                                (xdrx-polyline-compress e 7)
                        );;;while       
                        (xdrx-end)
                        (princ)
                );;;progn
        );;;if
        (princ)
)

newer

试试用最新的API，然后反馈下结果

dyjwyqz5221

好的，我测试下。

dyjwyqz5221

newer 发表于 2021-2-4 05:34
试试用最新的API，然后反馈下结果

用最新版的api还是一样。中间的一个点消除不掉。

dyjwyqz5221

用下面我自己设计的这段程序就能够消除掉中点的点。
(defun get:polyline:numbers(e / inx inxs p p- p+ lst)
        (xdrx-setvar "tolequalvector" 1.0)
        (xdrx-curve-setclosed e)
        (xdrx-polyline-compress e)
        ;;;经测试，此处重复2次足够了，因此定义为2
        (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-3)) lst)
                                (xdrx-vector-isparallel (mapcar '- p p-) (mapcar '- p p+))
                                );;;or
                                (xdrx-polyline-removevertexat e inx)
                        );;;if
                );;;while
        );;;while
        (xdrx-polyline-numverts e)
);;;defun