[LISP程序]：ssget函数的使用方法求助

下里巴云

求ssget在使用选择方式"Fence"的使用方法！
想知道在"Fence"时要求要有【点表]的参数表，那个点表是什么格式的，要是我现在在图上通过选择一条直线的，然后得到这条直线的点表，用这个点表所代表的直线，去获取与该直线相交的所有实体，怎么办啊?怎么才能获得该直线的点表啊？！跪求哦！

gysjy

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (setq sn (car (entsel "\n选取直线:" ))
   
6.       name (cdr (assoc 0 (entget sn)))
   
7.       p1 (cdr (assoc 10 (entget sn)))
   
8.       p2 (cdr (assoc 11 (entget sn)))
   
9. )
   
10. (if (= "LINE" name)
    
11.   (setq lst '()
    
12.         lst (cons p1 lst)
    
13.         lst (cons p2 lst)
    
14.         s1 (ssget "f" lst)
    
15.   )
    
16. )
    
17. 
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> (setq sn (car (entsel "\n选取直线:" )) <br />       name (cdr (assoc 0 (entget sn)))<br />       p1 (cdr (assoc 10 (entget sn))) <br />       p2 (cdr (assoc 11 (entget sn)))<br /> )<br /> (if (= "LINE" name)<br />   (setq lst '() <br />         lst (cons p1 lst) <br />         lst (cons p2 lst)<br />         s1 (ssget "f" lst)<br />   )<br /> )<br /> <br />   [/FONT]<br />

zml84

ssget函数详解
下面地址第二楼：http://www.acad.net.cn/viewthread.php?tid=200&extra=page%3D2

下里巴云

我说的那个直线为多线!然后我想知道(ssget "F" pt_list)中的参数pt_list的格式是什么啊,帮帮忙拉
我试过好多样都没有弄正确的

zml84

试一试:

1. 
   
2. (ssget "f"  '((0 0)  (100 50))
   

复制代码

gysjy

最初由 下里巴云 发布
[B]我说的那个直线为多线! [/B]

你应该事先说明清楚，别人哪知道你说的那个直线是多线呢？

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn(/ sn name)
   
5. (setq sn (car (entsel "\n选取直线:" )) name (cdr (assoc 0 (entget sn))))
   
6. (if (= "LWPOLYLINE" name)
   
7.   (progn
   
8.     (plpoint)
   
9.     (setq  s1 (ssget "f" lst))
   
10.   )
    
11. )
    
12. )
    
13. (defun plpoint(/ en n ei );;求得PLINE线的各个顶点；
    
14.     (setq en (entget sn)
    
15.             n 0 lst '()
    
16.     )
    
17.     (while (/= (setq ei (nth n en)) nil)
    
18.             (if        (= (car ei) 10)
    
19.                 (setq lst (cons (cdr ei) lst))
    
20.             )
    
21.             (setq n (1+ n))
    
22.     )
    
23.     (setq lst (reverse lst))
    
24.     (princ)
    
25. )
    
26. 
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:nn(/ sn name)<br /> (setq sn (car (entsel "\n选取直线:" )) name (cdr (assoc 0 (entget sn))))<br /> (if (= "LWPOLYLINE" name)<br />   (progn<br />     (plpoint)<br />     (setq  s1 (ssget "f" lst))<br />   )<br /> )<br /> )<br /> (defun plpoint(/ en n ei );;求得PLINE线的各个顶点；<br />     (setq en (entget sn)<br />             n 0 lst '() <br />     )<br />     (while (/= (setq ei (nth n en)) nil)<br />             (if        (= (car ei) 10)<br />                 (setq lst (cons (cdr ei) lst))<br />             )<br />             (setq n (1+ n))<br />     )<br />     (setq lst (reverse lst))<br />     (princ)<br /> )<br /> <br />   [/FONT]<br />

下里巴云

谢谢楼上的哥们们了，我受益匪浅！