lisp可以用来强制

David Bethel · 发表于 2022-7-6 10:20:47

为了修改倍数，我会使用列表格式。

维护列表的格式非常重要

每个原子必须：
（“标记名”“old\u val”“new\u val”）


[color=#8b4513];;;Change Multiple Known ATTRIBute Value With a New Value[/color]
[b][color=BLACK]([/color][/b]defun c:chgmkat [b][color=FUCHSIA]([/color][/b]/ al i ss en ch an ad[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq al '[b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b][color=#2f4f4f]"CODE_4"[/color] [color=#2f4f4f]"See Jane Run"[/color] [color=#2f4f4f]"See Spot Run"[/color][b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b][color=#2f4f4f]"CODE_4"[/color] [color=#2f4f4f]"See Dick Run"[/color] [color=#2f4f4f]"See Spot Run"[/color][b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b][color=#2f4f4f]"CODE_5"[/color] [color=#2f4f4f]"See Spot Run"[/color] [color=#2f4f4f]"See Spot Drop"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq i -1 ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]66 . 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss [b][color=BLUE]([/color][/b]setq i [b][color=RED]([/color][/b]1+ i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ch nil
                   an [b][color=GREEN]([/color][/b]entnext en[b][color=GREEN])[/color][/b]
                   ad [b][color=GREEN]([/color][/b]entget an[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]while [b][color=GREEN]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 0 ad[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]foreach a al
                      [b][color=BLUE]([/color][/b]and [b][color=RED]([/color][/b]= [b][color=PURPLE]([/color][/b]strcase [b][color=TEAL]([/color][/b]cdr [b][color=OLIVE]([/color][/b]assoc 2 ad[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                              [b][color=PURPLE]([/color][/b]strcase [b][color=TEAL]([/color][/b]nth 0 a[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                           [b][color=RED]([/color][/b]= [b][color=PURPLE]([/color][/b]strcase [b][color=TEAL]([/color][/b]cdr [b][color=OLIVE]([/color][/b]assoc 1 ad[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                              [b][color=PURPLE]([/color][/b]strcase [b][color=TEAL]([/color][/b]nth 1 a[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                           [b][color=RED]([/color][/b]setq ad [b][color=PURPLE]([/color][/b]subst [b][color=TEAL]([/color][/b]cons 1 [b][color=OLIVE]([/color][/b]nth 2 a[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b]
                                           [b][color=TEAL]([/color][/b]assoc 1 ad[b][color=TEAL])[/color][/b] ad[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                           [b][color=RED]([/color][/b]entmod ad[b][color=RED])[/color][/b]
                           [b][color=RED]([/color][/b]setq ch T[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]setq an [b][color=BLUE]([/color][/b]entnext an[b][color=BLUE])[/color][/b]
                          ad [b][color=BLUE]([/color][/b]entget an[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]if ch [b][color=GREEN]([/color][/b]entupd en[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]

这给了你多种可能性。

未测试-大卫

David Bethel · 发表于 2022-7-6 10:22:58

copy


 [b][color=BLACK]([/color][/b]setq al '[b][color=FUCHSIA]([/color][/b][b][color=NAVY]([/color][/b][color=#2f4f4f]"CODE_4"[/color] [color=#2f4f4f]"See Jane Run"[/color] [color=#2f4f4f]"See Spot Die"[/color][b][color=NAVY])[/color][/b]
            [b][color=NAVY]([/color][/b][color=#2f4f4f]"CODE_4"[/color] [color=#2f4f4f]"See Dick Run"[/color] [color=#2f4f4f]"See Jane Run"[/color][b][color=NAVY])[/color][/b]
            [b][color=NAVY]([/color][/b][color=#2f4f4f]"CODE_4"[/color] [color=#2f4f4f]"See Jane Run"[/color] [color=#2f4f4f]"See Dick Die"[/color][b][color=NAVY])[/color][/b]
            [b][color=NAVY]([/color][/b][color=#2f4f4f]"CODE_5"[/color] [color=#2f4f4f]"See Spot Run"[/color] [color=#2f4f4f]"See Spot Drop"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]