查找悬挂线及其断开位置

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
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
不是吧，楼主，这么老的贴子还翻出来加回复可见啊

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

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
有没有直接闭合的

必须有啊，见以下源码：

(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)
  )(repeat num
(setq ent (ssname ss i)
      obj (vlax-ename->vla-object ent)
)
(if       (not (vlax-curve-isclosed obj))
   (progn (setq j (1+ j))
         (command "PEDIT" "M" ent "" "C" "")
   )
)
(setq i (1+ i))
  )
  (alert (strcat "\n共处理了" (itoa j) "个未闭合的多段线.\n"))
(command "undo" "e")
  (princ)
)

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

有没有直接闭合的

账号		自动登录	找回密码
密码			注册

hastan hastan 当前离线积分 1925 明经币个注册时间 2014-12-26 在线时间小时威望金钱个贡献激情	发表于 2015-6-7 09:35:23 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[源码] 查找悬挂线及其断开位置