[LISP函数-点集]：给起点和角度、距离和数量，求点表

eachy

2. 
   
3. ;|
   
4.    给起点和角度、距离和数量，求点表
   
5. |;
   
6. (defun $XDLSP_Points_GetPointWithPath (p1 an dis num / dis1 pt ptl)
   
7.   (setq dis1 0)
   
8.   (repeat num
   
9.     (setq dis1 (+ dis dis1)
   
10.           pt   (polar p1 an dis1)
    
11.           ptl  (cons pt ptl)
    
12.     )
    
13.   )
    
14.   (reverse ptl)
    
15. )

<br /> ;|<br />    给起点和角度、距离和数量，求点表<br /> |;<br /> (defun $XDLSP_Points_GetPointWithPath (p1 an dis num / dis1 pt ptl)<br />   (setq dis1 0)<br />   (repeat num<br />     (setq dis1 (+ dis dis1)<br />           pt   (polar p1 an dis1)<br />           ptl  (cons pt ptl)<br />     )<br />   )<br />   (reverse ptl)<br /> )