[求助]：通过交点建立选择集？

nuance

有几条LINE交于一点，怎样建立通过此点的几条LINE的选择集，一定要历遍数据库中的所用LINE吗？
一条LINE用BREAK单点打断后怎样得到两物体？

aeo

(ssget "c" pt (palor pt 0.8 1) '((0 . "LINE")))


line线打断了,一个还是原来的,还有一个(entlast)

nuance

我见过有人用（ssget "c" pt pt),line时没问题，PL时有时出错，不能选中所有经过交点的所有PL，不知何故？

LUCAS

2. 
   
3. ;;2.一條LINE(非閉合)用BREAK單點打斷後怎樣得到兩物體？
   
4. (defun TT (/ ENT SS E)
   
5.   (setvar "OSMODE" 0)
   
6.   (setq ENT (entsel "\n選線: "))
   
7.   (setq E (entlast))
   
8.   (setq SS (ssadd (car ENT)))
   
9.   (command "_.break"
   
10.            (car ENT)
    
11.            (setq PT (osnap (cadr ENT) "nea"))
    
12.            PT
    
13.   )
    
14.   (while (setq E (entnext E))
    
15.     (ssadd E SS)
    
16.   )
    
17.   SS
    
18. )
    

<br /> ;;2.一條LINE(非閉合)用BREAK單點打斷後怎樣得到兩物體？ <br /> (defun TT (/ ENT SS E)<br />   (setvar "OSMODE" 0)<br />   (setq ENT (entsel "\n選線: "))<br />   (setq E (entlast))<br />   (setq SS (ssadd (car ENT)))<br />   (command "_.break"<br />            (car ENT)<br />            (setq PT (osnap (cadr ENT) "nea"))<br />            PT<br />   )<br />   (while (setq E (entnext E))<br />     (ssadd E SS)<br />   )<br />   SS<br /> )<br />