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

zhouzhiy · 发表于 2017-8-15 11:06:05

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

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

×

用CASS（CAD）删除复杂不规则多段线范围内（或者外）的高程点方式，或插件？因为点较多，多段线范围复杂。保留关闭的图层，只将开启的图层删除。

zhouzhiy · 发表于 2017-8-15 11:08:47

请大家帮忙解决下，谢谢！

newer · 发表于 2017-8-15 11:13:16

zhouzhiy 发表于 2017-8-15 11:08

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

zhouzhiy · 发表于 2017-8-15 12:00:21

保留红色、蓝色范围线内所有数据同时保留红色、蓝色范围线外小于11.6米高程数据。保留所有图形现状（里面线条不能删）不变，11.6米的高程可以用CASS进行过滤。

Lisphk · 发表于 2017-8-15 14:48:41

zhouzhiy 发表于 2017-8-15 12:00

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

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

然后运行下面代码。

(defun c:tt ()
(if (and (setq ss1 (ssget "x"
'((8 . "裁剪边界")
(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 "cp" pts))
(progn (setq j -1)
(while (setq e2 (ssname ss3 (setq j (1+ j))))
(ssdel e2 ss2)
)
)
)
)
(setq i -1)
(while (setq e1 (ssname ss2 (setq i (1+ i))))
(if (= "GCD" (cdr (assoc 8 (setq ed (entget e1)))))
(progn
(setq e2 (entnext e1))
(if (> (atof (cdr (assoc 1 (entget e2)))) 11.6)
(entdel e1)
)
)
(progn
(entdel e1)
)
)
)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq ss1 (ssget "x" 
                            '((8 . "裁剪边界") 
                              (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 "cp" pts)) 
               (progn (setq j -1) 
                      (while (setq e2 (ssname ss3 (setq j (1+ j)))) 
                        (ssdel e2 ss2) 
                      ) 
               ) 
             ) 
           ) 
      (setq i -1) 
      (while (setq e1 (ssname ss2 (setq i (1+ i)))) 
        (if (= "GCD" (cdr (assoc 8 (setq ed (entget e1))))) 
          (progn 
            (setq e2 (entnext e1)) 
            (if (> (atof (cdr (assoc 1 (entget e2)))) 11.6) 
              (entdel e1) 
            ) 
          ) 
          (progn 
            (entdel e1) 
          ) 
        ) 
      ) 
           
    ) 
  ) 
  (princ) 
)

zhouzhiy · 发表于 2017-8-15 15:17:43

这代码行运不了啊

newer · 发表于 2017-8-15 15:24:14

zhouzhiy 发表于 2017-8-15 15:17

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

代码没问题，我试了。

newer · 发表于 2017-8-15 15:27:02

zhouzhiy 发表于 2017-8-15 15:17

你把你说的那些红色的，蓝色的多段线图层改到 “裁剪边界”

zhouzhiy · 发表于 2017-8-15 16:01:30

明白，谢谢版主及提供代码的楼主。

53321 · 发表于 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)
)

kmliro_2017 · 发表于 2023-7-5 07:55:57

谢谢分享！！！！！

kmliro_2017 · 发表于 2023-7-14 08:13:05

谢谢分享！！！！！

kmliro_2017 · 发表于 2023-11-24 08:23:10

谢谢分享！！！！

kmliro_2017 · 发表于 2023-12-17 08:27:11

谢谢分享！！！！

kmliro_2017 · 发表于 2023-12-20 15:23:15

谢谢分享！！！！！！

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