请求，哪位师傅帮忙改下这个布点程序，源码是我从网上找的。

zhangyan_0320

这是个45度方向的正方形形式布点程序，哪位师傅，帮忙改成正三角形形式，或者正方向正方形形式。如果可以选择3种方式布点更好，如图所示。或者设置成自己给定的直径布圆。

1. (defun ace-getreal (msg default / ret)
   
2. &#160;&#160;(setq ret (getreal (strcat msg " <" (rtos default) ">:")))
   
3. &#160;&#160;(if (null ret)
   
4. &#160; &#160; default
   
5. &#160; &#160; ret
   
6. &#160;&#160;)
   
7. )
   
8. 
   
9. (defun ace-addpoint (p)
   
10. &#160;&#160;(vla-addpoint
    
11. &#160; &#160; (vla-get-modelspace
    
12. &#160; &#160;&#160; &#160;(vla-get-activedocument (vlax-get-acad-object))
    
13. &#160; &#160; )
    
14. &#160; &#160; (vlax-3d-point p)
    
15. &#160;&#160;)
    
16. )
    
17. 
    
18. (setq *dot-span-dist* 1500.0)
    
19. 
    
20. (defun c:tt (/ sx sy p0 p1)
    
21. 
    
22. &#160;&#160;(if (and
    
23. &#160; &#160; &#160; &#160; (setq p0 (getpoint "指定左下角点:"))
    
24. &#160; &#160; &#160; &#160; (setq p1 (getcorner p0 "指定右上角点:"))
    
25. &#160; &#160;&#160; &#160;)
    
26. &#160; &#160; (progn
    
27. &#160; &#160;&#160; &#160;(setq *dot-span-dist*
    
28. &#160; &#160; &#160; &#160;&#160; &#160;&#160; &#160;(ace-getreal "输入布点间距" *dot-span-dist*)
    
29. &#160; &#160; &#160; &#160;&#160; &#160;&#160;&#160;sx 0
    
30. &#160; &#160; &#160; &#160;&#160; &#160;&#160;&#160;sy 0
    
31. &#160; &#160;&#160; &#160;)
    
32. 
    
33. &#160; &#160;&#160; &#160;(while (<= (+ (car p0) sx) (car p1))
    
34. &#160; &#160; &#160; &#160; (while (<= (+ (cadr p0) sy) (cadr p1))
    
35. &#160; &#160; &#160; &#160;&#160; &#160;(ace-addpoint (trans (list (+ (car p0) sx) (+ (cadr p0) sy)) 1 0))
    
36. &#160; &#160; &#160; &#160;&#160; &#160;(setq sy (+ sy *dot-span-dist*))
    
37. &#160; &#160; &#160; &#160; )
    
38. 
    
39. &#160; &#160; &#160; &#160; (setq sx (+ sx (/ *dot-span-dist* 2.0)))
    
40. &#160; &#160; &#160; &#160; (if (= 0 (rem (/ sx (/ *dot-span-dist* 2.0)) 2))
    
41. &#160; &#160; &#160; &#160;&#160; &#160;(setq sy 0)
    
42. &#160; &#160; &#160; &#160;&#160; &#160;(setq sy (/ *dot-span-dist* 2.0))
    
43. &#160; &#160; &#160; &#160; )
    
44. &#160; &#160;&#160; &#160;)
    
45. &#160; &#160; )
    
46. &#160;&#160;)
    
47. &#160;&#160;(princ)
    
48. )

(defun ace-getreal (msg default / ret)<br /> &#160;&#160;(setq ret (getreal (strcat msg " <" (rtos default) ">:")))<br /> &#160;&#160;(if (null ret)<br /> &#160; &#160; default<br /> &#160; &#160; ret<br /> &#160;&#160;)<br /> )<br /> <br /> (defun ace-addpoint (p)<br /> &#160;&#160;(vla-addpoint<br /> &#160; &#160; (vla-get-modelspace<br /> &#160; &#160;&#160; &#160;(vla-get-activedocument (vlax-get-acad-object))<br /> &#160; &#160; )<br /> &#160; &#160; (vlax-3d-point p)<br /> &#160;&#160;)<br /> )<br /> <br /> (setq *dot-span-dist* 1500.0)<br /> <br /> (defun c:tt (/ sx sy p0 p1)<br /> <br /> &#160;&#160;(if (and<br /> &#160; &#160; &#160; &#160; (setq p0 (getpoint "指定左下角点:"))<br /> &#160; &#160; &#160; &#160; (setq p1 (getcorner p0 "指定右上角点:"))<br /> &#160; &#160;&#160; &#160;)<br /> &#160; &#160; (progn<br /> &#160; &#160;&#160; &#160;(setq *dot-span-dist*<br /> &#160; &#160; &#160; &#160;&#160; &#160;&#160; &#160;(ace-getreal "输入布点间距" *dot-span-dist*)<br /> &#160; &#160; &#160; &#160;&#160; &#160;&#160;&#160;sx 0<br /> &#160; &#160; &#160; &#160;&#160; &#160;&#160;&#160;sy 0<br /> &#160; &#160;&#160; &#160;)<br /> <br /> &#160; &#160;&#160; &#160;(while (<= (+ (car p0) sx) (car p1))<br /> &#160; &#160; &#160; &#160; (while (<= (+ (cadr p0) sy) (cadr p1))<br /> &#160; &#160; &#160; &#160;&#160; &#160;(ace-addpoint (trans (list (+ (car p0) sx) (+ (cadr p0) sy)) 1 0))<br /> &#160; &#160; &#160; &#160;&#160; &#160;(setq sy (+ sy *dot-span-dist*))<br /> &#160; &#160; &#160; &#160; )<br /> <br /> &#160; &#160; &#160; &#160; (setq sx (+ sx (/ *dot-span-dist* 2.0)))<br /> &#160; &#160; &#160; &#160; (if (= 0 (rem (/ sx (/ *dot-span-dist* 2.0)) 2))<br /> &#160; &#160; &#160; &#160;&#160; &#160;(setq sy 0)<br /> &#160; &#160; &#160; &#160;&#160; &#160;(setq sy (/ *dot-span-dist* 2.0))<br /> &#160; &#160; &#160; &#160; )<br /> &#160; &#160;&#160; &#160;)<br /> &#160; &#160; )<br /> &#160;&#160;)<br /> &#160;&#160;(princ)<br /> )