查找悬挂线及其断开位置

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

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

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

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

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

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

好东西就需要

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

荒野孤行发表于 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:29

xuyaozheyangdechengxu

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

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

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

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

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

回复看看！

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

kkkkkkkkkkkkkkkkkk

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

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

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

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

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

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