[编程申请]：求删除 二维多段线 重点的 程序

gufengyin

今天在论坛上搜索了很久都没有找到删除  
二维多段线（POLYLINE） 重点的程序，只发现有删除  
多段线（LWPOLYLINE）的程序，只因自己能力不够，不能把删除  多段线 重点的程序修改为删除 二维多段线 重点，请哪位帮忙修改一下，或者编一个，谢谢！
附上在论坛上搜索到的删除 多段线（LWPOLYLINE）的代码
[PHP]
(defun c:cc( / ss)
  (if(setq ss(ssget '((0 . "LWPOLYLINE"))))
     (xd-SSMAP '(lambda(x)(lwpl-remove-duppoint x)) ss)
  )
  (princ)
)
;; Form www.xdcad.net eachy 2005.9.21
;;对选择集执行某一函数操作
;; func 函数定义，参数为实体
;; ss   选择集
(defun xd-SSMAP (func ss / n)
  (if (eq 'PICKSET (type ss))
    (repeat (setq n (fix (sslength ss))) ; fixed
      (apply func (list (ssname ss (setq n (1- n)))))
    )
  )
)
(defun lwpl-remove-duppoint
       (e / a a1 b b1 c c1 en j n new p p1 key new1)
  (setq en (entget e))
  (while (setq n (car en))
    (if        (= (car n) 90)
      (setq j (cdr n))
    )
    (if        (= (car n) 10)
      (progn
        (mapcar 'set '(p a b c) en)
        (setq en  (cddddr en)
              key t
        ) ;_key进入dxf10
        (if (equal p1 p 1e-4)
          (setq j (1- j))
          (if p1
            (setq new (append new (list p1 a1 b1 c1)))
          )
        )
        (mapcar 'set '(p1 a1 b1 c1) (list p a b c))
      ) ;_progn
      (progn (if key
               (setq new (append new (list p1 a1 b1 c1))
                     key nil
               ) ;_dxf10读完了.
             )
             (setq new (append new (list n))
                   en  (cdr en)
             )
      )
    ) ;_if
  ) ;_while
  (if (equal (assoc 10 new)
             (assoc 10 (setq new1 (reverse new)))
             0.000001
      )
    (setq new (reverse
                (cdr (member (assoc 10 new1) new1)) ;_去掉了 210 ?
              )
          new (subst (cons 70 (1+ (cdr (assoc 70 new))))
                     (assoc 70 new)
                     new
              )
          j   (1- j)
    )
  )
  (entmod (subst (cons 90 j) (assoc 90 new) new))
)

[/PHP]