用法
评论
建议
取 消
确 定
(defun pickset:delsameent (ss / list1 s9 xy) "删除重复图元\n参数:\nss:选择集" "无" "(entity:DelSameEnt (ssget))" (foreach e (pickset->list ss) (setq xy (cdr (entget e))) (if (setq s9 (assoc 5 xy)) (setq xy (subst (quote (5 . "ASD")) s9 xy))) (if (member xy list1) (entdel e) (setq list1 (cons xy list1)))) (princ))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新
冀公网安备 13050302000400号