[日积月累]：有用的lisp小工具（4）--带均分功能的array命令

841594

这个array命令带有上期offset命令所讲的均分功能。用法请参看。

2. 
   
3. (defun c:lary( / dis kw ls nc nr disc disr ss fnc fnr)
   
4.   (setvar "cmdecho" 0)
   
5.   (if (setq ss (ssget)) (progn
   
6.     (initget "R P")
   
7.     (if (setq ls (getkword "\n 输入阵列类型 [矩形(R)/环形(P)] <R>: "))
   
8.         (setq kw ls)
   
9.         (setq kw "R")
   
10.     )
    
11.     (cond
    
12.       ((= kw "R")
    
13.         (if (setq ls (getint "\n行数(---)<1>: ")) (setq nr (abs ls) fnr (/ ls nr)) (setq nr 1 fnr 1))
    
14.         (if (setq ls (getint "\n列数(|||)<1>: ")) (setq nc (abs ls) fnc (/ ls nc)) (setq nc 1 fnc 1))
    
15. 
    
16.         (initget "Divide")
    
17.         (if (/= 1 nr) (progn
    
18.           (setq disr (getreal "\n行间距(---/计算均分D): "))
    
19.           (if (= disr "Divide")
    
20.             (setq dis (getdist "\n总的距离: ")
    
21.                   disr (/ dis (1- nr) fnr)
    
22.             )
    
23.             (setq disr (* fnr disr))
    
24.           ) ;if
    
25.         )) ;if
    
26. 
    
27.         (initget "Divide")
    
28.         (if (/= 1 nc) (progn
    
29.           (setq disc (getreal "\n列间距(|||/计算均分D): "))
    
30.           (if (= disc "Divide")
    
31.             (setq dis (getdist "\n总的距离: ")
    
32.                   disc (/ dis (1- nc) fnc)
    
33.             )
    
34.             (setq disc (* fnc disc))
    
35.           ) ;if
    
36.         )) ;if
    
37. 
    
38.         (if (and (= 1 nc) (= 1 nr))
    
39.           (princ "\n单元素阵列，没有可执行的操作. ")
    
40.           (progn
    
41.             (command "array" ss "" "r" nr nc)
    
42.             (if disr (command disr))
    
43.             (if disc (command disc))
    
44.           ) ;progn
    
45.         ) ;if
    
46.       ) ;
    
47.       ((= kw "P")
    
48.        (princ "\n弧形阵列请使用cad命令.")
    
49.       ) ;
    
50.       (T)
    
51.     ) ;cond
    
52.   )) ;if
    
53.   (princ)
    
54. )

<br /> (defun c:lary( / dis kw ls nc nr disc disr ss fnc fnr)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget)) (progn<br />     (initget "R P")<br />     (if (setq ls (getkword "\n 输入阵列类型 [矩形(R)/环形(P)] <R>: "))<br />         (setq kw ls)<br />         (setq kw "R")<br />     )<br />     (cond<br />       ((= kw "R")<br />         (if (setq ls (getint "\n行数(---)<1>: ")) (setq nr (abs ls) fnr (/ ls nr)) (setq nr 1 fnr 1))<br />         (if (setq ls (getint "\n列数(|||)<1>: ")) (setq nc (abs ls) fnc (/ ls nc)) (setq nc 1 fnc 1))<br /> <br />         (initget "Divide")<br />         (if (/= 1 nr) (progn<br />           (setq disr (getreal "\n行间距(---/计算均分D): "))<br />           (if (= disr "Divide")<br />             (setq dis (getdist "\n总的距离: ")<br />                   disr (/ dis (1- nr) fnr)<br />             )<br />             (setq disr (* fnr disr))<br />           ) ;if<br />         )) ;if<br /> <br />         (initget "Divide")<br />         (if (/= 1 nc) (progn<br />           (setq disc (getreal "\n列间距(|||/计算均分D): "))<br />           (if (= disc "Divide")<br />             (setq dis (getdist "\n总的距离: ")<br />                   disc (/ dis (1- nc) fnc)<br />             )<br />             (setq disc (* fnc disc))<br />           ) ;if<br />         )) ;if<br /> <br />         (if (and (= 1 nc) (= 1 nr))<br />           (princ "\n单元素阵列，没有可执行的操作. ")<br />           (progn<br />             (command "array" ss "" "r" nr nc)<br />             (if disr (command disr))<br />             (if disc (command disc))<br />           ) ;progn<br />         ) ;if<br />       ) ;<br />       ((= kw "P")<br />        (princ "\n弧形阵列请使用cad命令.")<br />       ) ;<br />       (T)<br />     ) ;cond<br />   )) ;if<br />   (princ)<br /> )