明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: CAD83

[源码] 有没有LISP检查哪些PLINE没有闭合,亮显没有闭合地方

  [复制链接]
发表于 2012-4-4 17:53 | 显示全部楼层
0000000000000000000000000000000
发表于 2012-4-4 19:26 | 显示全部楼层
可以检查直线连接,如果是粥断了。
发表于 2012-4-21 16:44 | 显示全部楼层
有没有这个啊!
发表于 2012-4-21 20:42 | 显示全部楼层
新版本cad已经有这个功能了
发表于 2012-4-21 21:23 | 显示全部楼层
谢谢楼主分享,这个功能很实用
发表于 2012-4-21 22:28 | 显示全部楼层
个人觉得用矢量线的方式可能会更好,放大缩小的时候自动消失,不留痕迹

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2012-7-4 09:33 | 显示全部楼层
真有这么好的工具,太好了!
发表于 2012-7-4 15:13 | 显示全部楼层
再帮大家完善一下
专门修改一个简单点的
(defun c:cfb (/ zzh-xzj-2 kkkk)
       (setq zzh-xzj-2 (ssget "x" '((-4 . "<and")
                                (0 . "LWPOLYLINE")
                                 (-4 . "<or")
                                (8 . "图斑线")
                                (8 . "房屋")
                                (8 . "林盘")
                                (8 . "院坝")
                                 (-4 . "or>")     
                                (-4 . "and>"))))
  (if zzh-xzj-2
    (progn
     (setq k 0 kkkk 0 sm (sslength zzh-xzj-2))
     (while (< k sm)
       (setq dx (ssname zzh-xzj-2 k))
       (setq dxty (entget dx))          
     (if (and (/= (cdr (assoc 70 dxty)) 1) (/= (cdr (assoc 70 dxty)) 129))
       (progn         
        (setq tc (assoc 8 dxty))
        (setq tc2 (cons 8 "0"))
        (setq dxty (subst tc2 tc dxty))
        (setq kkkk (+ kkkk 1))
        (entmod dxty)    )    )
       (setq k (+ k 1)) )  
       (setq zzh-xzj-2 nil)
  (princ (strcat "\n 一共有 " (rtos kkkk 2 0) " 个没有封闭."))        ))
  (princ)
)

判断条件应该为  70/=1 and 70/=129
发表于 2012-7-5 16:34 | 显示全部楼层
好东西,正好有个朋友需要这功能的
发表于 2012-7-5 16:51 | 显示全部楼层
额,58L的,输入CFB命令木有反应哦
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:23 , Processed in 0.169636 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表