如何把这段程序改成多选

lshpool

这个程序是et扩展工具中的源程序，功能是接触选择，举例：选择一条线段或多义线，可以把和这条多义线有接触的图元选中，但是每次只能选一条直线或多义线，能不能修改一下程序，让它可以实现选择多个线上的相接触的图元？

xyp1964

1. ;; tt(接触选择)
   
2. (defun c:tt ()
   
3.   (setq i   -1
   
4.         lst '()
   
5.   )
   
6.   (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
7.     (progn
   
8.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.         (setq a (xyp-EnameIntersList s1)
   
10.               lst (append a lst)
    
11.         )
    
12.       )
    
13.       (setq lst (xyp-DelSame lst)
    
14.             ss        (xyp-LIst2ss lst)
    
15.       )
    
16.       (sssetfirst nil ss)
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

;; tt(接触选择)<br /> (defun c:tt ()<br />   (setq i   -1<br />         lst '()<br />   )<br />   (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />     (progn<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq a (xyp-EnameIntersList s1)<br />               lst (append a lst)<br />         )<br />       )<br />       (setq lst (xyp-DelSame lst)<br />             ss        (xyp-LIst2ss lst)<br />       )<br />       (sssetfirst nil ss)<br />     )<br />   )<br />   (princ)<br /> )

lshpool

错误: no function definition: XYP-ENAMEINTERSLIST
这是怎么了

Andyhon

院长的自定义函数
多翻翻院长的帖子即知

253996799

lshpool 发表于 2019-3-18 14:07
错误: no function definition: XYP-ENAMEINTERSLIST
这是怎么了

要下院长的工具箱