[求助]：求助等差或者等比阵列！

heibaizi

请问怎么在cad里面实现同一个方向的等差或者等比阵列呢？
就是多条直线临近两条直线的间距在x方向等差或等比变化的！
高手请帮帮我，十万火急啊！

淡柳

用array ,在里面输入横，纵方向的数量，还有距离，就可以啦。

heibaizi

你理解错了，array是等距变化的，而不是我所要的等差等比变化啊

mikary

网上下的，应该可以满足楼主要求

2. 
   
3.   [FONT=courier new]
   
4. (defun C:CM ()
   
5. (setq A nil)
   
6. (setq OM (getvar "OSMODE"))
   
7. (setvar "OSMODE" 33)
   
8. (setq PNT1 (getpoint "\n方向起点： "))
   
9. (setq PNT2 (getpoint "\n方向终点： " PNT1))(terpri)
   
10. (initget 1 "M E N")
    
11. (prompt "\n选择复制方式： ")
    
12. (setq CTYPE
    
13. (getkword "[最大间距(M)/精确间距(E)/数量(N)]： "))
    
14. (if (= CTYPE "M")
    
15. (setq SP (getdist "\n最大对象间距： ")))
    
16. (if (= CTYPE "E")
    
17. (setq SP (getdist "\n精确对象间距： ")))
    
18. (if (= CTYPE "N")
    
19. (setq SP (getreal "\n对象数量： ")))
    
20. (setq DIST (distance PNT1 PNT2))
    
21. (setq ANG (angle PNT1 PNT2))
    
22. (setq TEMP1 (/ DIST SP))
    
23. (setq TEMP2 (fix (/ DIST SP)))
    
24. (setq INC1 SP)
    
25. (setq INC2 (/ DIST (+ 1 (fix (/ DIST SP)))))
    
26. (setq INC3 (/ DIST (- SP 1)))
    
27. (if (= TEMP1 TEMP2) (setq INC INC1) (setq INC INC2))
    
28. (if (= CTYPE "E") (setq INC INC1) (setq INC INC))
    
29. (if (= CTYPE "N") (setq INC INC3) (setq INC INC))
    
30. (setq TMS (FIX (+ 0.00001 (/ DIST INC))))
    
31. (setvar "OSMODE" 0)
    
32. (setq A (ssget))
    
33. (setq INCR 0)
    
34. (repeat TMS
    
35. (setq INCR (+ INCR INC))
    
36. (setq NEWPT (polar PNT1 ANG INCR))
    
37. (command "copy" A "" PNT1 NEWPT)
    
38. )
    
39. (setvar "OSMODE" OM)
    
40. (setq A nil)
    
41. )
    
42.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun C:CM ()<br /> (setq A nil)<br /> (setq OM (getvar "OSMODE"))<br /> (setvar "OSMODE" 33)<br /> (setq PNT1 (getpoint "\n方向起点： "))<br /> (setq PNT2 (getpoint "\n方向终点： " PNT1))(terpri)<br /> (initget 1 "M E N")<br /> (prompt "\n选择复制方式： ")<br /> (setq CTYPE<br /> (getkword "[最大间距(M)/精确间距(E)/数量(N)]： "))<br /> (if (= CTYPE "M")<br /> (setq SP (getdist "\n最大对象间距： ")))<br /> (if (= CTYPE "E")<br /> (setq SP (getdist "\n精确对象间距： ")))<br /> (if (= CTYPE "N")<br /> (setq SP (getreal "\n对象数量： ")))<br /> (setq DIST (distance PNT1 PNT2))<br /> (setq ANG (angle PNT1 PNT2))<br /> (setq TEMP1 (/ DIST SP))<br /> (setq TEMP2 (fix (/ DIST SP)))<br /> (setq INC1 SP)<br /> (setq INC2 (/ DIST (+ 1 (fix (/ DIST SP)))))<br /> (setq INC3 (/ DIST (- SP 1)))<br /> (if (= TEMP1 TEMP2) (setq INC INC1) (setq INC INC2))<br /> (if (= CTYPE "E") (setq INC INC1) (setq INC INC))<br /> (if (= CTYPE "N") (setq INC INC3) (setq INC INC))<br /> (setq TMS (FIX (+ 0.00001 (/ DIST INC))))<br /> (setvar "OSMODE" 0)<br /> (setq A (ssget))<br /> (setq INCR 0)<br /> (repeat TMS<br /> (setq INCR (+ INCR INC))<br /> (setq NEWPT (polar PNT1 ANG INCR))<br /> (command "copy" A "" PNT1 NEWPT)<br /> )<br /> (setvar "OSMODE" OM)<br /> (setq A nil)<br /> )<br />   [/FONT]<br />