Topic: Simple routine request

[HasanCAD]

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 for your help
Hasan

[kpblc]

You can use something like (setq selset (ssget "_X" '((0 . "VIEWPORT")))) and work with selection set.

[HasanCAD]

thanks kpblc

this was my start

Code: [Select]

(defun c:vps ()
     (setq vprtslct (ssget "X" '((0 . "VIEWPORT"))))
     (foreach x vprtslct
      )but I lost in foreach and How to select viewport in all layouts.
 

PS: Whats deference between "X" and "_X"

Hasan

[kpblc]

The difference is:
(ssget "X" <...>) -> will work only on english AutoCAD
(ssget "_X" <...>) -> will work on any localised version of AutoCAD (include English)
P.S. To convert selection set to list try to use code like this:

Code: [Select]

(defun conv-selset-to-list (selset / tab item)
  (repeat (setq tab  nil
                item (sslength selset)
                ) ;_ end setq
    (setq tab (cons (ssname selset (setq item (1- item))) tab))
    ) ;_ end of repeat
  ) ;_ end of defunAnd then:

Code: [Select]

(setq vprtslct (ssget "_X" '((0 . "VIEWPORT"))))
(foreach (conv-selset-to-list vprtslct)
<...>
  )

[Kerry]

(ssget "X" <...>) -> will work only on english AutoCAD
(ssget "_X" <...>) -> will work on any localised version of AutoCAD (include English)

Can someone confirm that the (ssget "X" .. is affected by ' localisation ' issues

[kenkrupa]

Can someone confirm that the (ssget "X" .. is affected by ' localisation ' issues

Command: (ssget "X")
<Selection set: 3>

Command: globcheck
Enter new value for GLOBCHECK <0>: 1

Command: (ssget "X")
The ssget option string must be preceded by an underscore.
Localization unfriendly ssget option "x" rejected!

[kpblc]

I can't find full description of system variable 'globcheck'. Could you help me please?

[LE3]

I can't find full description of system variable 'globcheck'. Could you help me please?

Here:
http://www.manusoft.com/resources/acadexposed/sysvars.html

[kpblc]

Thank you very much!

[HasanCAD]

(defun c:vps(/ dimsel)
(setq dimsel(ssget "x" '((0 . "VIEWPORT"))))
   (command "_PSELECT" "_p" "")
(PRINC)
)
selected all viewports in all layouts

but entmod not working with viewports
is there any solution?

[Hangman]

AutoLISP Reference Guide > AutoLISP Functions > E Functions >

entmod

Modifies the definition data of an object (entity)
 <...>

Restrictions on Using entmod

There are restrictions on the changes the entmod function can make:
<...>
*** You cannot use the entmod function to modify a viewport entity. ***

Sorry, no-can-do with Entmod.

[Hangman]

Here's an excerpt taken from CAB's 'VPLockAll',

Code: [Select]

(if (= (vla-get-objectname ent) "AcDbViewport")
          (progn
            (vla-put-displaylocked ent lck)
            (vla-put-color ent clr)
            (if (setq obj (assoc 340  (entget (vlax-vla-object->ename ent))))
              (vla-put-color (vlax-ename->vla-object (cdr obj)) clr2)
            )
          ); end progn
        )

I know the viewport is accessed and it is locked or unlocked, and the color is changed depending on the scenario, but this is the only manner I have seen so far in modifying viewports.

[HasanCAD]

what about this

Code: [Select]

(defun c:vps(/ VPsel)

  (foreach x (setq VPsel(ssget "_X" '((0 . "VIEWPORT"))))
    (vla-put-displaylocked VPsel :vlax-false)
            )
  (PRINC)
  )

[ronjonp]

what about this

Code: [Select]

(defun c:vps(/ VPsel)

  (foreach x (setq VPsel(ssget "_X" '((0 . "VIEWPORT"))))
    (vla-put-displaylocked VPsel :vlax-false)
            )
  (PRINC)
  )

You'll have to turn your selection set into a list to perform foreach on it.

[HasanCAD]

You'll have to turn your selection set into a list to perform foreach on it.

Is this correct way

Code: [Select]

(defun c:vps(/ VPsel)

  (foreach x (setq VPsel (list (ssget "_X" '((0 . "VIEWPORT")))))
    (vla-put-displaylocked VPsel :vlax-false)
            )
  (PRINC)
  )seems not
because not working for me