社区 › Auto Lisp › 基于环境创建图案填充

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

您好，我假设了下面的解决方案，但建议的解决方案似乎也正确
 
https://www.cadtutor.net/forum/attachment.php?attachmentid=63379&cid=1&stc=1

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找到相反的点：
 
(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
 
测试功能：
(
(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，如果你决定更新代码，可能会帮你。

查看完整版本: 基于环境创建图案填充