查找悬挂线及其断开位置

cshimao · 发表于 2015-6-9 17:08

这东西很有用，看能不能用？

nishuihanjian · 发表于 2015-6-9 12:32

nishuihanjian 发表于 2015-6-9 12:27
用了不没反应，不知道这个对不对
(defun c:bh (/ ent)
(princ "\n选取多段线：\n")

我使用rec话的然后挖掉一块测试的，不能闭合是否缺少语句，希望大侠给个全的

TPG辉 · 发表于 2015-6-9 12:31

好东西就需要

nishuihanjian · 发表于 2015-6-9 12:27

荒野孤行发表于 2015-6-5 19:54
必须有啊，见以下源码：

(defun c:bh (/ ent)

用了不没反应，不知道这个对不对
(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)
)

caogl1965 · 发表于 2015-6-9 09:58

xuyaozheyangdechengxu

柱哥 · 发表于 2015-6-9 08:15

我这边也要用到这个，回个看码，嘻嘻！

峰峰兒 · 发表于 2015-6-9 07:50

提示: 作者被禁止或删除内容自动屏蔽

bhf0114 · 发表于 2015-6-8 14:46

回复看看！

zmx6189 · 发表于 2015-6-8 08:44

kkkkkkkkkkkkkkkkkk

laiz3000 · 发表于 2015-6-7 22:09

貌似楼猪近段时间大量发布源码

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

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2015-6-9 07:50 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

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

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