请教多线段的问题

fhcd88

请教高手，如何使用LISP实现：1、选择所有与当前选定多线段上的顶点重合（即图元插入点的坐标与顶点的坐标相同）的图元。2、选择所有与当前选定多线段共端点（即相连）的多线段。
谢谢！！！！

叮咚

真要给钱？

2. ;选择插入点在多段线顶点上的图元
   
3. (defun c:lsp()
   
4. (setq en (car (entsel "\nSelect:")))
   
5. (while en
   
6. (setq data (entget en) pl nil)
   
7. (foreach xx data (if (= 10 (car xx)) (setq pl (cons (cdr xx) pl))))
   
8. (setq filter01 (mapcar '(lambda(xx) (cons 10 xx)) pl))
   
9. (setq filter02 (mapcar '(lambda(xx) (cons 11 xx)) pl))
   
10. (setq filter (append filter01 filter02))
    
11. (setq ss (ssget "x" (append (list '(-4 . "<OR")) filter (list '(-4 . "OR>")))))
    
12. (setq ss (ssdel en ss))
    
13. (sslength ss);这一步是验证
    
14. (setq en nil)
    
15. )
    
16. )

;选择插入点在多段线顶点上的图元<br /> (defun c:lsp()<br /> (setq en (car (entsel "\nSelect:")))<br /> (while en<br /> (setq data (entget en) pl nil)<br /> (foreach xx data (if (= 10 (car xx)) (setq pl (cons (cdr xx) pl))))<br /> (setq filter01 (mapcar '(lambda(xx) (cons 10 xx)) pl))<br /> (setq filter02 (mapcar '(lambda(xx) (cons 11 xx)) pl))<br /> (setq filter (append filter01 filter02))<br /> (setq ss (ssget "x" (append (list '(-4 . "<OR")) filter (list '(-4 . "OR>")))))<br /> (setq ss (ssdel en ss))<br /> (sslength ss);这一步是验证<br /> (setq en nil)<br /> )<br /> )

Andyhon

建议楼主附上校核样图(*.Dwg)

fhcd88

已附上校核样图，谢谢

fhcd88

不好意思，不加上，再发一次

cable2004

命令：ttt 最终成组了。你可以自己修改！

xyp1964

zyhandw

高手们都出现了

xiabin68

我还是冒个泡

fhcd88

那是当然的，以后还有很多机会要请教高手们的，谢谢你的回复