[LISP函数-点集]：给两点和等分数，求点表

eachy

2. 
   
3. ;|
   
4.    给两点和等分数，求点表
   
5. |;
   
6. (defun $XDLSP_Points_DividebyIntval (p1 p2 intval / dis an intv pts)
   
7.   (setq        dis  (distance p1 p2)
   
8.         an   (angle p1 p2)
   
9.         intv (/ dis intval)
   
10.   )
    
11.   (setq pts (list p1))
    
12.   (repeat (- intval 1)
    
13.     (setq p1  (polar p1 an intv)
    
14.           pts (cons p1 pts)
    
15.     )
    
16.   )
    
17.   (setq pts (cons p2 pts))
    
18.   (reverse pts)
    
19. )

<br /> ;|<br />    给两点和等分数，求点表<br /> |;<br /> (defun $XDLSP_Points_DividebyIntval (p1 p2 intval / dis an intv pts)<br />   (setq        dis  (distance p1 p2)<br />         an   (angle p1 p2)<br />         intv (/ dis intval)<br />   )<br />   (setq pts (list p1))<br />   (repeat (- intval 1)<br />     (setq p1  (polar p1 an intv)<br />           pts (cons p1 pts)<br />     )<br />   )<br />   (setq pts (cons p2 pts))<br />   (reverse pts)<br /> )

taner

http://www.xdcad.net/forum/showthread.php?s=&threadid=643960

2. 
   
3.   [FONT=courier new]
   
4. (defun th-2pts-npts (pt1 pt2 n / m pt pts)
   
5.   (setq m n)
   
6.   (repeat (1- n)
   
7.     (setq pt (th-m/n-pt pt1 pt2 n (setq m (1- m))))
   
8.     (setq pts (cons pt pts))
   
9.   )
   
10.   (setq pts (append
    
11.               (list pt1)
    
12.               pts
    
13.               (list pt2)
    
14.             )
    
15.   )
    
16. )
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th-2pts-npts (pt1 pt2 n / m pt pts)<br />   (setq m n)<br />   (repeat (1- n)<br />     (setq pt (th-m/n-pt pt1 pt2 n (setq m (1- m))))<br />     (setq pts (cons pt pts))<br />   )<br />   (setq pts (append<br />               (list pt1)<br />               pts<br />               (list pt2)<br />             )<br />   )<br /> )<br />   [/FONT]<br />