帮助开始日常工作

CadFrank · 发表于 2022-7-6 07:26:51

大家好，

好的，这就是我要做的。我在一家混凝土模板公司工作，我正试图通过一些Lisp程序的例行公事使事情进展得更快。

当我为我的计划做一些细节的时候，我想要一些帮助来做一个lisp例程来加速事情。我附上了一张我想代表的图片

我的代码是这样开始的：

copy

(setq dist1 (getdist "\n Point the distance needed. "))

我可能需要在其中的某个地方插入一个块，如果需要的话甚至创建一个。

但现在我只需要划分距离，然后需要在提到的间隔处插入它们

因此，il将需要以下代码：

copy

(setq spac1 (getreal "\n Give the spacing reguired. ")

基本上就是这样。

提前感谢您的帮助，请不要犹豫提问，因为我不确定自己是否完全清楚。

干杯和啤酒！

pBe · 发表于 2022-7-6 07:38:43

允许4x4块插入为中心
（/dist1 spac1）=间隔？

当然还有更多。我想有一些因素需要考虑，一个人的最大/最小距离。它不会总是4x4的，是吗？

David Bethel · 发表于 2022-7-6 07:44:05

2x4s的中心线到中心线的距离是多少？

所有成员之间的空间是否相等？甚至是两端2x4s的空间？

您是否使用3.5作为4x4和2x4的成品尺寸？

选择的间距是否为最大允许间距？

-大卫

CadFrank · 发表于 2022-7-6 07:49:58

嗯，我需要在正确的位置插入4“x 4”，我不知道怎么做。

为了回答你的问题，我想说，有一种可能性，不仅是一个4“x 4”将去那里。我们还有一些明矾光束。

CadFrank · 发表于 2022-7-6 07:54:28

回答你的问题。

第一个是：不，这将是顶部/中心。

其次，最终间距应相等，允许的最大值为变量“spac1”给出的值

实际上，我使用3.5，但它是公制的，所以它是90

marko_ribar · 发表于 2022-7-6 08:03:06

也许，mcr。我最近制作的lsp（移动、复制、旋转）可以帮助你-它可以选择按一定距离连续复制。。。我知道这并不是你想要的，因为主距离没有划分为间隔，但你没有路径来使用2012 arraypath命令，如果你能获得间隔，这会有帮助。。。

http://www.theswamp.org/index.php?topic=40547.msg480316#msg480316

M、 R。

David Bethel · 发表于 2022-7-6 08:12:52

也许吧：

copy


[b][color=BLACK]([/color][/b]defun c:posts [b][color=FUCHSIA]([/color][/b]/ pn ps p1 p2 d1 d2 pq px i[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"BLOCK"[/color] [color=#2f4f4f]"POST"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"BLOCK"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]2 . [color=#2f4f4f]"*U"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]10 0 0 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]70 . 1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]8 . [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]10 -0.5 -1 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]11 -0.5 0 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]8 . [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]10 0.5 0 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]11 -0.5 -1 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]8 . [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]10 -0.5 0 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]11 0.5 0 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]8 . [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]10 0.5 -1 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]11 -0.5 0 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]8 . [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]10 0.5 0 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]11 0.5 -1 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]entmake '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]8 . [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]10 -0.5 -1 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]11 0.5 -1 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq pn [b][color=MAROON]([/color][/b]entmake '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"ENDBLK"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]8 . [color=#2f4f4f]"0"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ps [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nPost Size <4>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]or ps [b][color=NAVY]([/color][/b]setq ps 4[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq p1 [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\nStart Point:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq p2 [b][color=NAVY]([/color][/b]getpoint p1 [color=#2f4f4f]"\nEnd Point:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq d1 [b][color=NAVY]([/color][/b]distance [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]car p1[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr p1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                    [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]car p2[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr p2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]grdraw p1 p2 2 3[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not d2[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]> d2 d1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]initget 7[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq d2 [b][color=MAROON]([/color][/b]getdist [color=#2f4f4f]"\nMaximum Spacing Distance:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq pq [b][color=NAVY]([/color][/b]fix [b][color=MAROON]([/color][/b]/ d1 d2[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       px [b][color=NAVY]([/color][/b]/ d1 pq[b][color=NAVY])[/color][/b]
        i 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]repeat [b][color=NAVY]([/color][/b]1- pq[b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 2 pn[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]polar p1 [b][color=RED]([/color][/b]angle p1 p2[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* px i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 41 ps[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 42 ps[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 43 ps[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]1+ i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]