[编程交流] 选择多层过滤器

 
(defun c:test ()
  (setq 
        ss_set '("ss1" "ss2" "ss3")cnt -1)
(foreach
           layername (list "Layer1" "Layer2" "Layer3")
          (set (setq tempo (read (nth (setq cnt (1+ cnt)) ss_set)))
                       (ssget "_x" (list (cons 8 layername))))
         )
   )

 [b][color=BLACK]([/color][/b]setq i 1[b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]repeat 4
   [b][color=FUCHSIA]([/color][/b]set [b][color=NAVY]([/color][/b]read [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"SS"[/color] [b][color=GREEN]([/color][/b]itoa i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]ssget [color=#2f4f4f]"X"[/color] [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 8 [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"LAYER"[/color] [b][color=RED]([/color][/b]itoa i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][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]setq i [b][color=NAVY]([/color][/b]1+ i[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

[color=#8b4513];;;GET LAYER NUMBERS[/color]
 [b][color=BLACK]([/color][/b]while
   [b][color=FUCHSIA]([/color][/b]progn
       [b][color=NAVY]([/color][/b]and il [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\n"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]prin1 il[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]setq in [b][color=MAROON]([/color][/b]getint [color=#2f4f4f]"\nLayer Number To Select:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]and in [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]member in il[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]setq il [b][color=MAROON]([/color][/b]cons in il[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[color=#8b4513];;;GET PICK SETS[/color]
 [b][color=BLACK]([/color][/b]foreach i il
   [b][color=FUCHSIA]([/color][/b]setq dxs [b][color=NAVY]([/color][/b]strcat [color=#2f4f4f]"SS"[/color] [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]< i 10[b][color=GREEN])[/color][/b] [color=#2f4f4f]"0"[/color] [color=#2f4f4f]""[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]itoa i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]set [b][color=NAVY]([/color][/b]read dxs[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]ssget [color=#2f4f4f]"X"[/color] [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 8  [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"LAYER"[/color] [b][color=RED]([/color][/b]itoa i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

(ssget '((8 . "pizza,beer,cheese,fun")))

5