;; 来个啰嗦的
![](source/plugin/imc_colorcode/images/loading.gif) - (defun abc (ss / lst)
- (setq lst (xyp-Ss2List ss)
- lst (vl-remove-if-not '(lambda (x) (xyp-Etype x "*polyline")) lst)
- lst (vl-remove-if-not '(lambda (x) (xyp-CurveIsClose x)) lst)
- lst (vl-remove-if '(lambda (x) (/= (rem (length (xyp-Vertexs x 0)) 2) 0))lst)
- )
- )
|