API应用 由点获取一个闭合线

st788796

记录一下

1. (defun c:tt (/ pts loop p p1 p2 ss)
   
2.   (setq        pts  (XD::Doc:GetView4Pnt);_屏幕四角坐标
   
3.         loop t
   
4.   )
   
5.   (while (and loop
   
6.               (setq p (getpoint "\nPoint: "))
   
7.          )
   
8.     (setq p1 (polar p 0. 1.)
   
9.           p2 (inters p p1 (cadr pts) (caddr pts) nil)
   
10.     )
    
11.     (setq
    
12.       ss (ssget        "F"
    
13.                 (list p p2)
    
14.                 '((0 . "LWPOLYLINE") (8 . "0") (-4 . "&=") (70 . 0))
    
15.          ) ;_特定图层闭合线
    
16.     )
    
17.     (if        ss
    
18.       (setq loop nil)
    
19.       (princ "\n未选到曲线!")
    
20.     )
    
21.   )
    
22.   (setq e (ssname ss 0))
    
23.   (xdrx_pickset_highlight e)
    
24.   (princ)
    
25. )

(defun c:tt (/ pts loop p p1 p2 ss)<br />   (setq        pts  (XD::Doc:GetView4Pnt);_屏幕四角坐标<br />         loop t<br />   )<br />   (while (and loop<br />               (setq p (getpoint "\nPoint: "))<br />          )<br />     (setq p1 (polar p 0. 1.)<br />           p2 (inters p p1 (cadr pts) (caddr pts) nil)<br />     )<br />     (setq<br />       ss (ssget        "F"<br />                 (list p p2)<br />                 '((0 . "LWPOLYLINE") (8 . "0") (-4 . "&=") (70 . 0))<br />          ) ;_特定图层闭合线<br />     )<br />     (if        ss<br />       (setq loop nil)<br />       (princ "\n未选到曲线!")<br />     )<br />   )<br />   (setq e (ssname ss 0))<br />   (xdrx_pickset_highlight e)<br />   (princ)<br /> )

newer

很实用的一个应用