求一个选择任意多段线（多选）的程序！

蓝图测绘

这个就能选择多边形内的图元了：后面怎么处理图元你自己加吧
(defun c:ttt()
  (while (null (setq fwx (car (entsel "\n选择范围线(闭合多边形):")))))
  (setq bh (cdr (assoc 70 (entget fwx))))
  (if (or (= bh 0) (= bh 128))
    (progn
      (alert "你选择的范围线没有闭合")
      (while (null (setq fwx (car (entsel "\n选择范围线(闭合多边形):")))))
      (setq bh (cdr (assoc 70 (entget fwx))))
      (if (or (= bh 0) (= bh 128)) (exit))
    )
  )
  (setq i 0 k 0 n 0)
  (setq fwxb (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget fwx))))
  (setq s (ssget "wp" fwxb))
)

lite

edata 发表于 2014-1-9 17:35

使用你这个程序后为什么有些图元选不上？问题我已用附件说明，能帮忙改下吗，谢谢！！！

lite

谁能帮忙修改下，谢谢！