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

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

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

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

nishuihanjian 发表于 2015-6-9 12:27 static/image/common/back.gif
用了不没反应，不知道这个对不对
(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 static/image/common/back.gif
必须有啊，见以下源码：

(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

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

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