Simple routine request

Hi all

I want to select an object in all layouts then change entity for?

Example

select all viewports in all layouts

save old value of DXF code 90

add 147456 to old value

thanks

Hasan

This was my start

(defun c:vps ()
    (setq vprtslct (ssget "X" '((0 . "VIEWPORT"))))
    (foreach x vprtslct 
     )

but I lost in foreach and how to select viewports in all layouts

You cannot (entmod) a viewport.

You will need to step thru the selection set. -David

Thanks david

any else solution to do what I want?

 [b][color=BLACK]([/color][/b]and [b][color=FUCHSIA]([/color][/b]setq i -1
           ss [b][color=NAVY]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]0 . [color=#2f4f4f]"VIEWPORT"[/color][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]while [b][color=NAVY]([/color][/b]setq en [b][color=MAROON]([/color][/b]ssname ss [b][color=GREEN]([/color][/b]setq i [b][color=BLUE]([/color][/b]1+ i[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]setq ed [b][color=MAROON]([/color][/b]entget en[b][color=MAROON])[/color][/b]
                   id [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 69 ed[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]

I don't know how you set the group 90 status from the command line. -David