社区 › AutoLISP/Visual LISP 编程技术 › 查找悬挂线及其断开位置

xxxyyyzzz 发表于 2015-6-7 14:18:50

响应楼主号召，回复一下！赞！

hastan 发表于 2015-6-7 09:35:23

yshf 发表于 2015-6-7 08:35:47

回复看看！

FANGZHENG158 发表于 2015-6-6 16:44:55

正好需找相关的资料，谢谢先

荒野孤行 发表于 2015-6-6 16:03:34

易云网络 发表于 2015-6-6 15:02 static/image/common/back.gif
http://bbs.mjtd.com/thread-113802-1-1.html
看来 我以后也要加一个回复可见，我的就一个人回了

你的级别不够，加不了隐藏。需要钻石级别。

易云网络 发表于 2015-6-6 15:02:55

http://bbs.mjtd.com/thread-113802-1-1.html
看来 我以后也要加一个回复可见，我的就一个人回了

荒野孤行 发表于 2015-6-5 21:10:02

lucas_3333 发表于 2015-6-5 20:51 static/image/common/back.gif
不是吧，楼主，这么老的贴子还翻出来加回复可见啊

必须的，不看见回复心里不舒服。

lucas_3333 发表于 2015-6-5 20:51:22

不是吧，楼主，这么老的贴子还翻出来加回复可见啊

荒野孤行 发表于 2015-6-5 19:54:37

本帖最后由 荒野孤行 于 2015-6-5 19:55 编辑

nishuihanjian 发表于 2015-6-5 19:52 static/image/common/back.gif
有没有直接闭合的
必须有啊，见以下源码：

(defun c:bh (/ ent)
(princ "\n选取多段线：\n")
(setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE"))))
(if (not ss)
    (progn (princ "\n提示：未选取对象.\n") (exit))
)
(setvar "osmode" 0)
(vl-load-com)
(command "undo" "be")
(setq      i   0
      j   0
      num (sslength ss)
)**** Hidden Message *****
(alert (strcat "\n共处理了" (itoa j) "个未闭合的多段线.\n"))
(command "undo" "e")
(princ)
)

nishuihanjian 发表于 2015-6-5 19:52:07

有没有直接闭合的

查看完整版本: 查找悬挂线及其断开位置