CASS高程点 属性快过滤问题

树櫴希德

在CASS中，高程点过滤一般采用距离过滤 高程值过滤方法 ，有时是在测量图中，坎上 坎下点太密就根据距离过滤掉了，但是算土石方时又需要用，能否解码CASS高程点过滤，改为过滤点缩小比列或者移至“过滤高程点”图层，或者把过滤点（属性快）文字删除，保留点位，请大家探讨下。
  假设一个CAD图有10000或者更多INSERT 求一个按距离筛选块的函数，如5米间距筛选 将选中的块依次编辑修改

iLisp

用插入点的 (x y) 和块构造索引表，使用  xd::list:groupbyindex 进行分组，每个表内留哪个自己决定

树櫴希德

iLisp 发表于 2015-7-13 21:50
用插入点的 (x y) 和块构造索引表，使用  xd::list:groupbyindex 进行分组，每个表内留哪个自己决定

有些图甲方既要图面漂亮，又要高程多。不得不删除部分高程注记完美图面。主要用于整理图面。删除块属性文字的函数我已经找到了
(defun xdelatt (PZX / FIL SS)
  (princ "\n 删除块属性----------by lxx.2007.9")
  (princ "\n 选择要删除属性的块<全部>:")
  (if (not *cad)
    (setq *cad (vlax-get-acad-object))
  )
  ;(x-CleanCSet)
  (setq fil '((0 . "INSERT") (-4 . "&") (66 . 1)))
  (or (setq ss (ssget fil))
      (setq ss (ssget "x" fil))
  )
  (vla-eval *cad
     "for each i in thisdrawing.activeselectionset : for each n in i.getattributes : n.delete :next n :next i"
  )
)
(setq pzx (SSGET ))
(xdelatt PZX)

P123ZX

先找到一个块 在其插入点画一个5米的园，5米内碰到的图元（除了本图元选中修改），然后循环查找下一个点，做同样的事情。晕了
直到图中都是5米间距(或者大于5米)的快