lizhiqiang9801 发表于 2015-1-13 09:21:30

个梅花形布点

本帖最后由 Gu_xl 于 2015-1-13 09:54 编辑

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

阿然 发表于 2015-1-13 11:51:59

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

lizhiqiang9801 发表于 2015-1-21 13:58:21

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

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

vectra 发表于 2015-1-21 14:49:15

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

lizhiqiang9801 发表于 2015-1-21 21:12:44

本帖最后由 lizhiqiang9801 于 2015-1-22 00:06 编辑

vectra 发表于 2015-1-21 14:49 static/image/common/back.gif
对题目表不还不太理解，能否配个图？

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

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

(defun ace-getreal (msg default / ret)
(setq ret (getreal (strcat msg " <" (rtos default) ">:")))
(if (null ret)
    default
    ret
)
)


(defun ace-addpoint (p)
(vla-addpoint
    (vla-get-modelspace
      (vla-get-activedocument (vlax-get-acad-object))
    )
    (vlax-3d-point p)
)
)


(setq *dot-span-dist* 1500.0)


(defun c:tt (/ sx sy p0 p1)

(if (and
        (setq p0 (getpoint "指定左下角点:"))
        (setq p1 (getcorner p0 "指定右上角点:"))
      )
    (progn
      (setq *dot-span-dist*
             (ace-getreal "输入布点间距" *dot-span-dist*)
          sx 0
          sy 0
      )

      (while (<= (+ (car p0) sx) (car p1))
        (while (<= (+ (cadr p0) sy) (cadr p1))
          (ace-addpoint (trans (list (+ (car p0) sx) (+ (cadr p0) sy)) 1 0))
          (setq sy (+ sy *dot-span-dist*))
        )

        (setq sx (+ sx (/ *dot-span-dist* 2.0)))
        (if (= 0 (rem (/ sx (/ *dot-span-dist* 2.0)) 2))
          (setq sy 0)
          (setq sy (/ *dot-span-dist* 2.0))
        )
      )
    )
)
(princ)
)

lizhiqiang9801 发表于 2015-1-22 13:30:55

vectra 发表于 2015-1-22 12:41 static/image/common/back.gif


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

spp_wall 发表于 2020-10-27 22:03:12

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

han12315 发表于 2023-7-17 16:14:15

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


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

ssyfeng 发表于 2023-7-18 11:30:43

布桩


页: [1] 2
查看完整版本: 个梅花形布点