[编程交流] sset dilema

 [b][color=BLACK]([/color][/b]setq pl '[b][color=FUCHSIA]([/color][/b][b][color=NAVY]([/color][/b]1 0[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]3 -12[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]9 -2[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]7 -1[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]1 0[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]setq ll [b][color=FUCHSIA]([/color][/b]list [b][color=NAVY]([/color][/b]apply 'min [b][color=MAROON]([/color][/b]mapcar 'car pl[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
                [b][color=NAVY]([/color][/b]apply 'min [b][color=MAROON]([/color][/b]mapcar 'cadr pl[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
       ur [b][color=FUCHSIA]([/color][/b]list [b][color=NAVY]([/color][/b]apply 'max [b][color=MAROON]([/color][/b]mapcar 'car pl[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
                [b][color=NAVY]([/color][/b]apply 'max [b][color=MAROON]([/color][/b]mapcar 'cadr pl[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Save"[/color] [color=#2f4f4f]"TEMP"[/color]
          [color=#2f4f4f]"_.ZOOM"[/color] [color=#2f4f4f]"_W"[/color] ll ur
          [color=#2f4f4f]"_.REGEN"[/color][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]setq ss [b][color=FUCHSIA]([/color][/b]ssget [color=#2f4f4f]"_CP"[/color] pl[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]command [color=#2f4f4f]"_.VIEW"[/color] [color=#2f4f4f]"_Restore"[/color] [color=#2f4f4f]"TEMP"[/color][b][color=BLACK])[/color][/b]