过滤出零长度的线段

caogl1965

挺实用的程序，

pipilu1984

很有用的程序

laiz3000

回复看看思路

sunny_8848

很实用的程序

zhd81617

谢谢楼主！

nyistjz

楼主，好贴啊，谢谢！

xyp1964

2. (defun c:tt ()
   
3.   (if (setq ss (ssget "X" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
4.     (if        (setq lst (vl-remove-if
   
5.                     '(lambda (x) (> (xyp-CurveLength x) 0))
   
6.                     (xyp-ss2list ss)
   
7.                   )
   
8.         )
   
9.       (progn
   
10.         (setq ss (xyp-list2ss lst))
    
11.         (xyp-MkLaCo "短线" 1)
    
12.         (xyp-SubUpd ss 8 "短线")
    
13.         (sssetfirst nil ss)
    
14.       )
    
15.     )
    
16.   )
    
17. )

(defun c:tt ()<br />   (if (setq ss (ssget "X" '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />     (if        (setq lst (vl-remove-if<br />                     '(lambda (x) (> (xyp-CurveLength x) 0))<br />                     (xyp-ss2list ss)<br />                   )<br />         )<br />       (progn<br />         (setq ss (xyp-list2ss lst))<br />         (xyp-MkLaCo "短线" 1)<br />         (xyp-SubUpd ss 8 "短线")<br />         (sssetfirst nil ss)<br />       )<br />     )<br />   )<br /> )

杜阳

大师是新作批量出世啊

happyboy75

这个可以学习一下

shh_188

看看是什么