阵列和层

akram85ing · 发表于 2022-7-6 14:44:11

我使用Autocad 2004
使用lisp routin或vba宏
我们如何在一个层上创建一个数组（例如5个raw和5个列），而不是成对的列（第2列和第4列）
并破坏另一层上的列（列1、3和5）
然后，我们以距离d向下或向上移动成对列的内容
非常感谢。

Lee Mac · 发表于 2022-7-6 16:39:10

您可以使用以下方法从阵列中收集实体：

（归功于ASMI）：

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Ent_List_to_End[b][color=RED]([/color][/b]ent / a[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]reverse[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] a[b][color=RED]([/color][/b][b][color=BLUE]entnext[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
      [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] ent[b][color=RED]([/color][/b]Ent_List_to_End a[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[编程交流] 阵列和层

发表回复

精选推荐