基于位置选择对象

Stermaj · 发表于 2022-7-6 15:16:16

对于UCS，我计划让其他命令引用它们，所以我想我也可以将其作为一个单独的函数，但我想我可以将它们切换回来。至于重复，我想给它一个帧速率，这样你就可以在它们旋转时观察到边，而不是瞬间移动。不过，我确实在第一个函数中纠正了初始化ss，谢谢您的帮助。在您的原始代码中，我想知道，第一个if语句中的代码部分做了什么：

（如果（setq ss（ssget“X”（列表（cons 0“插入”）
（if（getvar“CTAB”）（cons 410（getvar“CTAB”））
（cons 67（-1（getvar“TILEMODE”аа）ааааааа）а）

我知道ssget“x”选择了所有内容，但我不知道其余的是什么。再次感谢你的帮助，我真的很感激。有没有办法把dwg文件发给你？

Lee Mac · 发表于 2022-7-6 15:20:13

你可以压缩文件，或发送到我的电子邮件地址，我将PM给你

至于另一位代码：

copy


[b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#ff00ff]"X"[/color][/b]  [i][color=#990099]; Scan the whole Database[/color][/i]
                   [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]  [i][color=#990099]; Make a Filter List[/color][/i]
                     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"INSERT"[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Get Blocks (and Xrefs)[/color][/i]
                         [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CTAB"[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; If there is a variable CTAB[/color][/i]
                           [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]410[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CTAB"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099]; Use it[/color][/i]
                           [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]67[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=#009900]1[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TILEMODE"[/color][/b][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][b][color=RED])[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099]; Otherwise use TILEMODE[/color][/i]

AutoCAD R14没有CTAB，因此要设置空间，必须使用TILEMODE，因此我考虑了所有版本。