有什么办法吗？

Andrew1979 · 发表于 2022-7-5 23:08:45

我想画一个屋顶的分级木板条。
每个板条将以一定的间隔（大多为900mm间隔）隔开
但是，每一个被绘制的板条将略高于前一个。
例如：
用户将选择一个起点，然后选择一个终点，代表绘制板条的距离。
第一个板条可能是35mm x 70mm，然后第二个可能是35mm x 90mm，第三个可能是35mm x 110mm。
我怎样才能做到这一点？
我通常只做一个数组，但随着每个大小的增加，我不太确定如何做。
尺寸将根据屋顶角度而变化，但始终为35mm宽。
谢谢你在这方面的帮助。

Tharwat · 发表于 2022-7-5 23:31:24

像这样的事情？

BIGAL · 发表于 2022-7-5 23:41:59

请注意，对于建筑，作为Autocad的答案，您可以使用“厚度”选项随走而增加，如果绘制一条线，您将执行以下标高2400厚70绘制线厚80绘制线，只需重复。我会使用lisp开始结束点，上升所需，间距，然后绘制可以是一个pline厚度。这是手动完成的，需要几分钟。

Andrew1979 · 发表于 2022-7-5 23:57:17

谢谢你的回复。
塔瓦，不完全是我想要的，更像是比加尔所展示的。
的确，画板条并不需要太多时间，但我只是想看看是否有一种用LISP来做的方法

BIGAL · 发表于 2022-7-6 00:21:06

是的，可以用lisp完成

你能帮我写吗。

这是一个很好的任务，开始学习lisp相当简单，我们在这里提供帮助。第一步选择2磅长的墙，添加屋檐悬挑1&2=总长度，选择第三磅长的墙，现在绘制一条代表椽子的柱脚线使用极轴命令计算出4个点使用厚度设置起始高度，计算出间距，然后每个椽子的上升增量。只需复制最后一个“L”对象并更改其特性厚度。重复直到结束。

copy


(setq pt1 (getpoint "\npick wall cnr point"))
(setq width (getdist pt1 "\npick width cnr point"))
(setq length (getdist pt1 "\npick end cnr point"))
; your turn now add overhangs (setq width (+ width oh1))

[编程交流] 有什么办法吗？

发表回复

精选推荐