[LISP函数]： 删除炸开后文字中多余的线

luyu9635

请大家帮忙改错，谢谢
;;luyu9635 2009.04.09
;;删除炸开后的文本中多余的线
(defun c:te()
  (setq        ss  (ssget) plist'() i 0)
  (setvar 'osmode 0)
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq plist (append plist (list (dxf 10 en) (dxf 11 en))));;求直线端点集
    (setq i (1+ i))
  )
(foreach n plist (mapcar'(lambda(x)(setq po(mid n x));求点集中任意两点间的中点
                            (if(and(not(member po plist));如果中点不在端点集中且过此点有两条以上直线
                                   (>= (sslength(setq pon(ssget "c" po po))) 2))
                               (command "erase" pon "");删除多余的线
                              )
                            )
                            (vl-remove n plist)
                 )
)
(setvar 'osmode 1)
(princ)
)

;;;
(defun dxf(n ename)
  (cdr (assoc n (entget ename)))
)
;;;
(defun mid(a b);;求中点
  (polar a (angle a b) (/ (distance a b) 2))
  )