caogl1965 发表于 2015-8-25 15:00:35

挺实用的程序，

pipilu1984 发表于 2015-8-24 11:28:27

很有用的程序

laiz3000 发表于 2015-8-24 09:00:09

回复看看思路

sunny_8848 发表于 2015-8-23 19:42:24

很实用的程序

zhd81617 发表于 2015-8-23 06:34:38

谢谢楼主！

nyistjz 发表于 2015-8-22 23:43:24

楼主，好贴啊，谢谢！

xyp1964 发表于 2015-8-22 16:58:06

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

杜阳 发表于 2015-8-22 14:00:58

大师是新作批量出世啊

happyboy75 发表于 2015-8-21 20:03:13

这个可以学习一下

shh_188 发表于 2015-8-21 10:41:14

看看是什么
页: 1 2 3 4 5 6 7 [8] 9 10 11
查看完整版本: 过滤出零长度的线段