[LISP程序]：2维点阵列，可设增量

梦断江南

2维点阵列，可设增量

2. 
   
3. [FONT=century gothic]
   
4. (defun c:2dpt (/ pt xn yn dx dxa dy dya j i)
   
5. (setq xn  (getint "\nx方向阵列数:")
   
6.       yn (getint "\ny方向阵列数:")
   
7.       pt (getpoint "\n起点:")
   
8.       dx (getdist pt "\n x方向间距:")
   
9.       dxa (getdist pt "\n x方向间距增量<0>:")
   
10.       dy (getdist pt"\n y方向间距:")
    
11.       dya (getdist pt "\n y方向间距增量<0>:")
    
12.       j 0
    
13.       pt2 pt)
    
14. (if (not dxa)(setq dxa 0))
    
15. (if (not dya)(setq dya 0))
    
16. (repeat Yn
    
17.    (setq i 0)
    
18.    (repeat Xn
    
19.       (command ".point" (mapcar '+ (list (* i (+ DX (* (1- i) dxa))) 0 0) PT2))
    
20.       (setq i (1+ i)) )
    
21.    (setq PT (mapcar '- pt (list 0 (+ dy (* j dya)) 0) )
    
22.          pt2 pt
    
23.          j (1+ j) )
    
24. )
    
25. )[/FONT]
    

<br /> [FONT=century gothic]<br /> (defun c:2dpt (/ pt xn yn dx dxa dy dya j i)<br /> (setq xn  (getint "\nx方向阵列数:")<br />       yn (getint "\ny方向阵列数:") <br />       pt (getpoint "\n起点:")<br />       dx (getdist pt "\n x方向间距:")<br />       dxa (getdist pt "\n x方向间距增量<0>:")<br />       dy (getdist pt"\n y方向间距:")<br />       dya (getdist pt "\n y方向间距增量<0>:")<br />       j 0 <br />       pt2 pt)<br /> (if (not dxa)(setq dxa 0))<br /> (if (not dya)(setq dya 0))<br /> (repeat Yn<br />    (setq i 0)<br />    (repeat Xn<br />       (command ".point" (mapcar '+ (list (* i (+ DX (* (1- i) dxa))) 0 0) PT2))<br />       (setq i (1+ i)) )<br />    (setq PT (mapcar '- pt (list 0 (+ dy (* j dya)) 0) ) <br />          pt2 pt <br />          j (1+ j) )<br /> )<br /> )[/FONT] <br />

如果要线性增量，可改 (+ dy (* j dya)) －》(+ dy dya)
(+ DX (* (1- i) dxa)))－》(+ dx dxa)

                               
登录/注册后可看大图

http://xdsoft.myrice.com/forum/lxx/lxxlsp/2dpt.lsp

e2002

再改进一些,如何?
1.  这么多参数,加上对话框好些
2. 指定dx和dy时,考虑方向好些,这样可以生成平四边形的阵列
3.考虑不仅可以画Point,还可以插入Block,以及控制Block的插入参数(ScaleX,ScaleY,RatationAngle)