如何框选取得交点，并对交点分类。

cdma2546

如图，如何框选提取交点并将交点分类（1.2.3为2个直线相交，4为3个直线相交）？


非常感谢各位大佬的关注和指点，可能是我的算法本身表达有问题，其实想得到的是与文本关联（文本角度与线一致），识别出来交点，主要是想在俩个对象交点处生成与文本关联的90度弯头，三个对象交点处生成三通，（例如1、2、4、5处标记为90度弯头，1-DN100的90度弯头，2处-DN150的90度弯头和DN150变DN100的大小头。3处识别为三通型号DN150变DN100）
）

llsheng_73

既然4为3个直线相交，意思就是没有虚交点，相交点都是实交并且都是线的首尾点
那么只需要在框选后，把所有线的起点和止点提取出来，边提取边统计这个坐标出现的次数即可，没有分类的问题，所谓的分类只是那些坐标重复出现的次数，只出现一次的都不是交点，所以去掉了

1. (defun c:tt(/ l)
   
2.   (and(ssget'((0 . "line,arc,*polyline")))
   
3.       (vlax-for o(vlax-get-property(vlax-get-property(vlax-get-acad-object)'activedocument)'activeselectionset)
   
4.   (vl-every(function(lambda(x / p)(setq p(apply x(List o)))
   
5.           (or(vl-some(function(lambda(a)
   
6.               (if(equal p(car a)1e-3)
   
7.                 (setq l(cons(list p(1+(cadr a)))(vl-remove a l))))))l)
   
8.              (setq l(cons(List p 1)l)))))
   
9.      '(vlax-curve-getstartpoint vlax-curve-getendpoint))))
   
10.   ;;;统计完成后，再根据实际需要行处理，比如返回所有交点坐标及线段的条数，或者直接在图上写出它们的数量
    
11.   ;;;(vl-remove-if(function(lambda(a)(=(cadr a)1)))l)
    
12.   (vl-every(function(lambda(a)
    
13.           (or(=(cadr a)1)
    
14.        (entmakex(mapcar(function cons)
    
15.            '(0 1 10 40)
    
16.            (List"text"(itoa(cadr a))(car a)400))))))l)
    
17.   )

(defun c:tt(/ l)<br />   (and(ssget'((0 . "line,arc,*polyline")))<br />       (vlax-for o(vlax-get-property(vlax-get-property(vlax-get-acad-object)'activedocument)'activeselectionset)<br />   (vl-every(function(lambda(x / p)(setq p(apply x(List o)))<br />           (or(vl-some(function(lambda(a)<br />               (if(equal p(car a)1e-3)<br />                 (setq l(cons(list p(1+(cadr a)))(vl-remove a l))))))l)<br />              (setq l(cons(List p 1)l)))))<br />      '(vlax-curve-getstartpoint vlax-curve-getendpoint))))<br />   ;;;统计完成后，再根据实际需要行处理，比如返回所有交点坐标及线段的条数，或者直接在图上写出它们的数量<br />   ;;;(vl-remove-if(function(lambda(a)(=(cadr a)1)))l)<br />   (vl-every(function(lambda(a)<br />           (or(=(cadr a)1)<br />        (entmakex(mapcar(function cons)<br />            '(0 1 10 40)<br />            (List"text"(itoa(cadr a))(car a)400))))))l)<br />   )

lijiao

1.选择直线为选择集ss
2.对选择集ss中的任意两直线求实交点,得出交点集pts
3.用(ssget "c" pt pt '((0 . "line"))),在每个交点处得到选择集
4,在每个交点处画一个小圆,半径自己确定
5.求出每个交点的圆与该处的选择集中的每条直线的交点,这个交点的数量就是你想要的结果
6.删除临时生成的圆

guosheyang

获取所有直线端点  然后（ssget “C”  pt pt）  就可以分出来  端点的 选择集一个  两线相交的2个  三线相交的  三个  。。。。。  

kozmosovia

取所有交点，然后去重，并计算每一个交点的出现次数

你有种再说一遍

不知道你水平去到哪里?
如果是量少,就两个for嵌套,i和i++进行求交.
如果是量大,就还挺麻烦的,
写一个四叉树(ssget)或者SAP(Sweep and prune),
总之就是通过包围盒去选择邻近图元,以此降低时间复杂度.

自贡黄明儒

你有种再说一遍 发表于 2025-8-14 16:45
不知道你水平去到哪里?
如果是量少,就两个for嵌套,i和i++进行求交.
如果是量大,就还挺麻烦的,

能不能把靶框搞大，用osnap直接获得系统给的交点

cdma2546

你有种再说一遍 发表于 2025-8-14 16:45
不知道你水平去到哪里?
如果是量少,就两个for嵌套,i和i++进行求交.
如果是量大,就还挺麻烦的,

多谢指点，其他语言不会，就会板块的语言。感谢指点！

你有种再说一遍

cdma2546 发表于 2025-8-14 17:12
多谢指点，其他语言不会，就会板块的语言。感谢指点！

那你就两个for,内for的四叉树你做不了,ssget不也行.
取决于你量大量少.

你有种再说一遍

自贡黄明儒 发表于 2025-8-14 17:03
能不能把靶框搞大，用osnap直接获得系统给的交点

那本质上不也是ssget.

kozmosovia

要是没有中间相交的线，可以只取所有线的首末点，然后设计一个阈值（比如所有点中最近两点距离的10%）进行ssget c。select的数量就是线条数。数量为1的是悬挂点。不需要的话可以剃掉不要。