个梅花形布点

lizhiqiang9801

请教路过的老师  谁有梅花形布点程序 （最好是能修改点间距  封闭区域梅花形智能布点）有劳路过的老师了

阿然

算法参考cad自带的花园小径，里面的砖块填充就是你要的

lizhiqiang9801

阿然 发表于 2015-1-13 11:51
算法参考cad自带的花园小径，里面的砖块填充就是你要的

谢谢阿然的回复  这个填充不是我需要的  点与点的间距不能控制

vectra

对题目表不还不太理解，能否配个图？

lizhiqiang9801

vectra 发表于 2015-1-21 14:49
对题目表不还不太理解，能否配个图？

感谢您的关注 我简单说一下 就是在封闭区域梅花形布点 能设置布点间距  （用于工程基础钎探点及锚杆布置用的）

vectra

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

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

lizhiqiang9801

vectra 发表于 2015-1-22 12:41

有劳vectra 大师了 不知道能改成选择多边形封闭区域自动生成点吗

spp_wall

同求 选择多边形封闭区域自动生成点

han12315

vectra 发表于 2015-1-22 12:41

大神，小白请教下这个命令是多少，看不懂

ssyfeng

布桩