vlisp&测绘

删除图中重复实体lisp源码

;2012.5.21 by清清绿茶

;删除重叠图元(如有多个图元重叠在同一位置,只保留其中一个,删除其他重叠图元)

;只删除完全重合并且为同类型同属性图元

;函数使用方法:(killent ss)  其中ss为选择集

(defun killent (ss / ent data ss_len list1 jubing)

  (repeat (setq ss_len (sslength ss))

    (if (and (setq ent (ssname ss (setq ss_len (1- ss_len))))

             (setq data (entget ent))

        );获取组码表

      (progn

        (setq data (cdr data));去掉图元名

        (if (setq jubing (ASSOC 5 data));获取句柄

          (setq data (subst '(5 . "ASD") jubing data));替换为统一句柄

        )

        (if (member data list1);在list1表里查找组码表

          (entdel ent);如果存在则删除图元

          (setq list1 (cons data list1));如果不存在则加入组码表到list1表

        )

      )

    )

  )

)

;以上代码可直接复制保存,或者去网盘下载函数。链接: http://pan.baidu.com/s/1geK6NdD 密码: k58t


«   2019年2月   »
123
45678910
11121314151617
18192021222324
25262728
网站分类
搜索
文章归档
网站收藏
友情链接
  • RainbowSoft Studio Z-Blog
  • 订阅本站的 RSS 2.0 新闻聚合

Powered By Z-BlogPHP 1.5.1 Zero

Copyright 青云小站. Some Rights Reserved.【ICP备案:滇ICP备17005149号】【滇公网安备 53011202000333号