[求助]：如何获得LWPOLYLINE的一个顶点

XDSoft

最初由 newer 发布
[B]如何允许用户选择一个POLYLINE的顶点？我试着用nentselp函数，但是不能，有其他方法吗？ [/B]

由于LWPOLYLINE的顶点不在是单独的实体（AcDbVertex），因此nentselp函数不能工作了，LWPOLYLINE的顶点信息存在LWPOLYLINE实体内部，LWPOLYLINE支持GS标记，所以可以用SSGET和SSNAMEX组合得到选取的顶点，你试试下面的代码。

2. 
   
3. [FONT=courier new]
   
4. (setq s (ssget))
   
5. (setq marker (caddr (car (setq e (ssnamex s 0)))))
   
6. (setq e (entget (cadr (car e))))
   
7. (setq l 0)
   
8. (foreach i e
   
9.    (if (= 10 (car i))
   
10.       (progn
    
11.          (if (= l marker)
    
12.             (progn
    
13.                (princ (cdr i))
    
14.                (terpri)
    
15.             )
    
16.          )
    
17.          (setq l (1+ l))
    
18.       )
    
19.    )
    
20. )
    
21. [/FONT]

<br /> [FONT=courier new]<br /> (setq s (ssget))<br /> (setq marker (caddr (car (setq e (ssnamex s 0)))))<br /> (setq e (entget (cadr (car e))))<br /> (setq l 0)<br /> (foreach i e<br />    (if (= 10 (car i))<br />       (progn<br />          (if (= l marker)<br />             (progn<br />                (princ (cdr i))<br />                (terpri)<br />             )<br />          )<br />          (setq l (1+ l))<br />       )<br />    )<br /> )<br /> [/FONT]

newer

谢谢晓东，我去试试。