基于环境创建图案填充

ronjonp · 发表于 2022-7-5 16:00:33

我明天可以在Bricscad考试。

jan_ek · 发表于 2022-7-5 16:06:21

好的，谢谢。非常感谢
还有一个问题。
函数看起来很棒，但在我的例子中，polline存在内部块。
有没有可能提取出这个提纲

BIGAL · 发表于 2022-7-5 16:07:26

有趣的是，Ronjonp做得很好，这是一个解决方案，但看看图片，答案是从设置回转线的实际角点开始的，再次是area1=area2？这需要一次迭代来旋转，直到区域在公差ie相等的范围内。

我相信jan_ek你需要更清楚地确认一下关于你想要什么的规则。另外，图像是从右向左的，当我测试时，Ronjonp代码是另一种方式吗？

jan_ek · 发表于 2022-7-5 16:10:13

您好，我假设了下面的解决方案，但建议的解决方案似乎也正确

登录/注册后可看大图

ronjonp · 发表于 2022-7-5 16:16:01

我的代码不这么做。。很抱歉至少你有一个开始。

*我更新了代码，使其按原样在Bricscad中工作。

ronjonp · 发表于 2022-7-5 16:16:53

我有它的另一种方式，直到张贴#5：“搜索最大左/下角。”

ronjonp · 发表于 2022-7-5 16:21:57

不管好坏一开始这样的帖子会有所帮助。你能提供的信息越多，你就越有可能得到你需要的答案。

Grrr · 发表于 2022-7-5 16:25:25

FWIW找到相反的点：

copy

(defun OppositePtOnCurve ( curve p / dis )
 (vlax-curve-getPointAtDist curve
   (rem
     (+
       (vlax-curve-getDistAtPoint curve p)
       (* 0.5 (setq dis (vlax-curve-getDistAtParam curve (vlax-curve-getEndParam curve))))
     )
     dis
   )
 )
); defun OppositePtOnCurve

测试功能：

copy

(
 (lambda (x / args p2)
   (and x 
     (setq args (cons (car x) (list (apply 'vlax-curve-getClosestPointTo (append x '(t))))))
     (setq p2 (apply 'OppositePtOnCurve args))
     (entmakex (list (cons 0 "LINE")(cons 10 (cadr args))(cons 11 p2)))
   )
 )
 (nentselp "\nPick a closed curve:")
)

ronjonp · 发表于 2022-7-5 16:25:38

不错的Grrr

Grrr · 发表于 2022-7-5 16:30:44

谢谢Ron，如果你决定更新代码，可能会帮你。

[编程交流] 基于环境创建图案填充

发表回复

精选推荐