找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1825|回复: 18

用CASS(CAD)删除复杂不规则多段线范围内(或者外)的高程点

[复制链接]

已领礼包: 349个

财富等级: 日进斗金

发表于 2017-8-15 11:06:05 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

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

×
用CASS(CAD)删除复杂不规则多段线范围内(或者外)的高程点方式,或插件?因为点较多,多段线范围复杂。保留关闭的图层,只将开启的图层删除。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 349个

财富等级: 日进斗金

 楼主| 发表于 2017-8-15 11:08:47 | 显示全部楼层
请大家帮忙解决下,谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-15 11:13:16 | 显示全部楼层

1、上传DWG压缩附件供测试。
2、截取局部说明问题的 图片 传论坛,图片上说明你想怎么操作。




论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 349个

财富等级: 日进斗金

 楼主| 发表于 2017-8-15 12:00:21 | 显示全部楼层
保留红色、蓝色范围线内所有数据同时保留红色、蓝色范围线外小于11.6米高程数据。保留所有图形现状(里面线条不能删)不变,11.6米的高程可以用CASS进行过滤。

测试.zip

3.48 MB, 下载次数: 11, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2017-8-15 14:48:41 | 显示全部楼层

图边界太乱了,层,颜色都不统一,给你假定下

下面代码
1、做边界的,图层放到 "裁剪边界", 封闭的LWPOLYLINE
2、你图中没看到现状层,你不想删除的,把那个图层锁定。
3、所有要处理的边界都显示在屏幕内。


然后运行下面代码。

  1. (defun c:tt ()
  2.   (if (and (setq ss1 (ssget "x"
  3.                             '((8 . "裁剪边界")
  4.                               (0 . "LWPOLYLINE")
  5.                               (-4 . "&=")
  6.                               (70 . 1)
  7.                              )
  8.                      )
  9.            )
  10.            (setq ss2 (ssget "x"))
  11.       )
  12.     (progn (setq i -1)
  13.            (while (setq e1 (ssname ss1 (setq i (1+ i))))
  14.              (setq pts
  15.                     (mapcar
  16.                       'cdr
  17.                       (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e1))
  18.                     )
  19.              )
  20.              (if (setq ss3 (ssget "cp" pts))
  21.                (progn (setq j -1)
  22.                       (while (setq e2 (ssname ss3 (setq j (1+ j))))
  23.                         (ssdel e2 ss2)
  24.                       )
  25.                )
  26.              )
  27.            )
  28.       (setq i -1)
  29.       (while (setq e1 (ssname ss2 (setq i (1+ i))))
  30.         (if (= "GCD" (cdr (assoc 8 (setq ed (entget e1)))))
  31.           (progn
  32.             (setq e2 (entnext e1))
  33.             (if (> (atof (cdr (assoc 1 (entget e2)))) 11.6)
  34.               (entdel e1)
  35.             )
  36.           )
  37.           (progn
  38.             (entdel e1)
  39.           )
  40.         )
  41.       )
  42.           
  43.     )
  44.   )
  45.   (princ)
  46. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 349个

财富等级: 日进斗金

 楼主| 发表于 2017-8-15 15:17:43 | 显示全部楼层
这代码行运不了啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-15 15:24:14 | 显示全部楼层

有问题你总得说出现象吧,要不谁能帮你呢?

代码没问题,我试了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-15 15:27:02 | 显示全部楼层

你把你说的那些 红色的,蓝色的多段线图层改到 “裁剪边界”
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 349个

财富等级: 日进斗金

 楼主| 发表于 2017-8-15 16:01:30 | 显示全部楼层
明白,谢谢版主及提供代码的楼主。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2020-6-25 17:14:50 | 显示全部楼层
本帖最后由 53321 于 2020-8-17 21:27 编辑

想删除JMD多边形图层内的高程,采用WP可以删除高程点块完全在里面的高程点,采用CP圈交的话,把45.51高程点删除的同时,错误的把46.30也删除了。
(defun c:SGC ()
  (if (and (setq ss1 (ssget "x"
                            '((8 . "JMD")
                              (0 . "LWPOLYLINE")
                           
                              (-4 . "&=")
                              (70 . 1)
                             )
                     )
           )
           (setq ss2 (ssget "x"))
      )
    (progn (setq i -1)
           (while (setq e1 (ssname ss1 (setq i (1+ i))))
             (setq pts
                    (mapcar
                      'cdr
                      (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e1))
                    )
             )
             (if (setq ss3 (ssget "wp" pts));采用圈交cp的话可能把高程点图上数值压JMD多边形的也删除了。
                 (progn (setq j -1)
          (while (setq e1 (ssname ss3 (setq j (1+ j))))
              (if( = "GCD" (cdr (assoc 8 (setq ed (entget e1)))))

                         (entdel e1)
                                 );endif
                                                     );endwhile
             );end progn
         ) ;endif
      ); endprogn
    ) ;endif
  );end defun
  (princ)
)

高程点删除测试图

高程点删除测试图

高程点删除测试图.zip

15.19 KB, 下载次数: 6, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 226个

财富等级: 日进斗金

发表于 2023-7-5 07:55:57 | 显示全部楼层
谢谢分享!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 226个

财富等级: 日进斗金

发表于 2023-7-14 08:13:05 | 显示全部楼层
谢谢分享!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 226个

财富等级: 日进斗金

发表于 2023-11-24 08:23:10 | 显示全部楼层
谢谢分享!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 226个

财富等级: 日进斗金

发表于 2023-12-17 08:27:11 | 显示全部楼层
谢谢分享!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 226个

财富等级: 日进斗金

发表于 2023-12-20 15:23:15 | 显示全部楼层
谢谢分享!!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 00:48 , Processed in 0.499255 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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