按指定的顺序排列块

K P Senthil Kum · 发表于 2022-7-6 10:59:33

你好，下午好
我需要这方面的帮助。
在指定区域中排列单个块，并在选择对象中等分固定点，如图所示。

例如，我想计算该区域中有多少个夹具（可能是矩形r多段线等…）。

当做
kpsk公司
图纸。图纸

David Bethel · 发表于 2022-7-6 11:08:56

有很多方法可以做到这一点。

你的已知参数是什么？

固定装置之间的最小/最大间距？
每平方英尺的固定装置数量？
房间大小？

-大卫

K P Senthil Kum · 发表于 2022-7-6 11:16:48

嗨，大卫，
实际上，X和Y值应该手动给定。
例如，一个固定装置将覆盖12平方米（即4 x 3=12，在此x=3&Y=4）。
这样我就可以计算出在那个房间里许多固定装置可以占用的硬件。

当做
kpsk公司

David Bethel · 发表于 2022-7-6 11:22:24

如果固定装置的覆盖范围是正方形，我会尝试这样的方式：

copy


[color=#8b4513];++++++++++++ Get RECTANGLE +++++++++++++++++++++++++[/color]
[b][color=BLACK]([/color][/b]defun getrect [b][color=FUCHSIA]([/color][/b]/ p1 p2[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]"\n1st Corner:   "[/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]getcorner p1 [color=#2f4f4f]"\n2nd Corner:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ll [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]min [b][color=GREEN]([/color][/b]car p1[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]car p2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]min [b][color=GREEN]([/color][/b]cadr p1[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr p2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]caddr p1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       ur [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]max [b][color=GREEN]([/color][/b]car p1[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]car p2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]max [b][color=GREEN]([/color][/b]cadr p1[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr p2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]caddr p1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       lr [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]car ur[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]cadr ll[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]caddr p1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       ul [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]car ll[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]cadr ur[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]caddr p1[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]
[color=#8b4513];++++++++++++ Make A Fixture Block ++++++++++++++++++[/color]
[b][color=BLACK]([/color][/b]defun checkblk [b][color=FUCHSIA]([/color][/b]/ sq[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]"FIXT"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq sq [b][color=MAROON]([/color][/b]* [b][color=GREEN]([/color][/b]sqrt la[b][color=GREEN])[/color][/b] 0.5[b][color=MAROON])[/color][/b][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]"BLOCK"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 2 [color=#2f4f4f]"FIXT"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]list 10 0 0 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 70 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]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"CIRCLE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]list 10 0 0 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 40 1[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 39 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 256[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]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 39 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 2[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 10 [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 11 [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] 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]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 39 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 2[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 10 [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 11 [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] 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]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 39 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 2[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 10 [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 11 [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] 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]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 39 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 2[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 10 [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b]list 11 [b][color=BLUE]([/color][/b]- sq[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ sq[b][color=BLUE])[/color][/b] 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]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"ENDBLK"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][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]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[color=#8b4513];++++++++++++ Main Routine ++++++++++++++++++[/color]
[b][color=BLACK]([/color][/b]defun c:fixt [b][color=FUCHSIA]([/color][/b]/ la a e q sq xq yq xs ys[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq la [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nArea of Coverage per Fixture <12>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]or la [b][color=NAVY]([/color][/b]setq la 12.[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]getrect[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]checkblk[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq a [b][color=NAVY]([/color][/b]* [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]car lr[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]car ll[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]cadr ul[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr ll[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       e [b][color=NAVY]([/color][/b]/ a la[b][color=NAVY])[/color][/b]
       q [b][color=NAVY]([/color][/b]fix [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]zerop [b][color=BLUE]([/color][/b]rem e 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] e [b][color=GREEN]([/color][/b]1+ [b][color=BLUE]([/color][/b]fix e[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      sq [b][color=NAVY]([/color][/b]* [b][color=MAROON]([/color][/b]sqrt la[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      xq [b][color=NAVY]([/color][/b]1+ [b][color=MAROON]([/color][/b]fix [b][color=GREEN]([/color][/b]/ [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]car lr[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]car ll[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] sq[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      yq [b][color=NAVY]([/color][/b]1+ [b][color=MAROON]([/color][/b]fix [b][color=GREEN]([/color][/b]/ [b][color=BLUE]([/color][/b]- [b][color=RED]([/color][/b]cadr ul[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]cadr ll[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] sq[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      xs [b][color=NAVY]([/color][/b]/ [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]car lr[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]car ll[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] xq[b][color=NAVY])[/color][/b]
      ys [b][color=NAVY]([/color][/b]/ [b][color=MAROON]([/color][/b]- [b][color=GREEN]([/color][/b]cadr ul[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]cadr ll[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] yq[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 2 [color=#2f4f4f]"FIXT"[/color][b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]list 10 [b][color=GREEN]([/color][/b]+ [b][color=BLUE]([/color][/b]car ll[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]* xs 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                          [b][color=GREEN]([/color][/b]+ [b][color=BLUE]([/color][/b]cadr ll[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]* ys 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] 0[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 45 ys[b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 44 xs[b][color=MAROON])[/color][/b]
                 [b][color=MAROON]([/color][/b]cons 71 yq[b][color=MAROON])[/color][/b][b][color=MAROON]([/color][/b]cons 70 xq[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]princ [b][color=NAVY]([/color][/b]strcat [color=#2f4f4f]"\nEfficency - Minimun Req'd="[/color] [b][color=MAROON]([/color][/b]itoa q[b][color=MAROON])[/color][/b]
                             [color=#2f4f4f]"\nQuantity Used="[/color] [b][color=MAROON]([/color][/b]itoa [b][color=GREEN]([/color][/b]* xq yq[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]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]