求一个选取线段的代码

wgij007

求一个选取线段的代码

框选，两端有相交或相连的不选，有一端或两端都没相交的选中。一般线段

谢谢了。

xyp1964

1. (defun c:tt ()
   
2.   (setq        i   -1
   
3.         ss1 (ssadd)
   
4.   )
   
5.   (if (setq ss (ssget '((0 . "*LINE,ARC"))))
   
6.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.       (setq p1 (vlax-curve-getStartPoint s1)
   
8.             p2 (vlax-curve-getEndPoint s1)
   
9.       )
   
10.       (if (or (= (sslength (ssget "c" p1 p1)) 1)
    
11.               (= (sslength (ssget "c" p2 p2)) 1)
    
12.           )
    
13.         (ssadd s1 ss1)
    
14.       )
    
15.     )
    
16.   )
    
17.   (sssetfirst nil ss1)
    
18.   (princ)
    
19. )

(defun c:tt ()<br />   (setq        i   -1<br />         ss1 (ssadd)<br />   )<br />   (if (setq ss (ssget '((0 . "*LINE,ARC"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq p1 (vlax-curve-getStartPoint s1)<br />             p2 (vlax-curve-getEndPoint s1)<br />       )<br />       (if (or (= (sslength (ssget "c" p1 p1)) 1)<br />               (= (sslength (ssget "c" p2 p2)) 1)<br />           )<br />         (ssadd s1 ss1)<br />       )<br />     )<br />   )<br />   (sssetfirst nil ss1)<br />   (princ)<br /> )

香远益清

xyp1964很厉害！这么快就出源码！！
(if (setq ss (ssget '((0 . "*LINE,ARC"))))这一句改为(if (setq ss (ssget '((0 . "*LINE,POLYLINE,ARC"))))更好。

香远益清

楼上的，怎么赶快把赏的5币给2楼xyp1964吧

wgij007

xyp1964 发表于 2021-1-25 21:33

太感谢了，不是每天都上，想不到回复那么快，谢谢了

ninja37

选取这样的线段有什么用啊  ？

香远益清

香远益清 发表于 2021-1-26 14:49
xyp1964很厉害！这么快就出源码！！
(if (setq ss (ssget '(( ...

是的，两个概念，互不包含。polyline是多义线。

wgij007

xyp1964 发表于 2021-1-25 21:33

老大，如何选取后改变图层与颜色呀

wgij007

这个能帮忙改选中的线段，为红色吗