荒野孤行 发表于 2015-8-17 19:51:09

过滤出零长度的线段

本帖最后由 荒野孤行 于 2015-8-17 20:20 编辑

还在为图档中零长度的线而烦恼吗？这个程序可以帮您解除烦忧。请见演示图片：

;;;*****选出零长度的线 程序开始****
(defun c:t1 ()
(setvar "cmdecho" 0)
(princ "\n★功能：查找出零长度的短线并置于特定图层.\n")
(vl-load-com)(command "undo" "be")
(initget 6)
(if
    (not
      (setq maxlen (getreal "\n要查找的线段最大长度为：<0.0001>"))
    )
**** Hidden Message *****
    (command "undo" "e")(princ)
)
;;;*****选出零长度的线 程序结束****

追寻 发表于 2021-4-29 10:24:47

高人

ming_5687 发表于 2016-7-19 13:52:00

感謝分享                        

sicky111 发表于 2016-6-23 23:03:38

很实用的程序

dabingrain 发表于 2016-6-23 11:01:21

看看内容，支持楼主

flfcegu168 发表于 2016-6-22 22:27:54

明天用电脑下来看看，先赞一个

longer1000 发表于 2016-6-22 17:29:20

感谢分享

flfcegu168 发表于 2016-6-22 00:54:54

看个究竟有多好

mitenickevin 发表于 2016-6-21 18:44:59

很实用的程序，感谢分享

cj52000 发表于 2016-6-20 11:54:08

谢谢，下来看看学习下
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 过滤出零长度的线段