ssget过滤器选择顶点数大于2的偶数且闭合的多段线

fangmin723

自贡黄明儒 发表于 2024-6-19 14:17
看这个可能更明白

使用系统自带的计算器就可以计算了，在程序员模式下

hubeiwdlue

自贡黄明儒 发表于 2024-6-19 14:17
看这个可能更明白

谢谢黄大师。0010的十进制不是2吗，为什么是-14呢？

xyp1964

;; 来个啰嗦的

1. (defun abc (ss / lst)
   
2.   (setq lst (xyp-Ss2List ss)
   
3.         lst (vl-remove-if-not '(lambda (x) (xyp-Etype x "*polyline")) lst)
   
4.         lst (vl-remove-if-not '(lambda (x) (xyp-CurveIsClose x)) lst)
   
5.         lst (vl-remove-if '(lambda (x) (/= (rem (length (xyp-Vertexs x 0)) 2) 0))lst)
   
6.   )
   
7. )

(defun abc (ss / lst)<br />   (setq lst (xyp-Ss2List ss)<br />         lst (vl-remove-if-not '(lambda (x) (xyp-Etype x "*polyline")) lst)<br />         lst (vl-remove-if-not '(lambda (x) (xyp-CurveIsClose x)) lst)<br />         lst (vl-remove-if '(lambda (x) (/= (rem (length (xyp-Vertexs x 0)) 2) 0))lst)<br />   )<br /> )

fangmin723

hubeiwdlue 发表于 2024-6-19 14:48
谢谢黄大师。0010的十进制不是2吗，为什么是-14呢？

你可以去了解一下补吗，就知道为什么是-14了

fangmin723

xyp1964 发表于 2024-6-19 23:02
;; 来个啰嗦的

相对于组码过滤器，是有点啰嗦了