Topic: Simple routine request

[ronjonp]

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

Try this:

Code: [Select]

(defun c:vps (/ n ss)
  (setq n -1)
  (if (setq ss (ssget "_X" '((0 . "VIEWPORT"))))
    (while (setq e (ssname ss (setq n (1+ n))))
      (vla-put-displaylocked (vlax-ename->vla-object e) :vlax-false)
    )
  )
  (princ)
)
On a side note ... have you done a search on the forum? There are numerous examples of dealing with selection sets and modifying viewports.

[CAB]

Here is an example:

Code: [Select]

(defun c:ToColor (/ time ss)
  (setq time (getvar "millisecs"))
  (if (setq ss (ssget "_X"))
    (progn
       (vlax-for x (setq ss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
         (vla-put-color x 251))
      (vla-delete ss)))
    (princ (strcat "\n<< FULL ActiveX took: " (rtos (/ (- (getvar "millisecs") time) 1000.) 2 4) " secs. >>"))
  (princ))

[HasanCAD]

On a side note ... have you done a search on the forum? There are numerous examples of dealing with selection sets and modifying viewports.

First of all thanks for you and CAB for helping

second
- I did but I am new in coding and some times I confused. So I want to start from the beginning so understand every thing step by step.
- Some times the conversation comes very reach and gives a lot of tricks and ideas. for example you and CAB did the same thing with 2 different ways. and CAB added a new trick (new for me) How to calculate processing time. Long time ago I want to know how to calculate the process time. finally I got it.

Finally Thanks again for all
HasanCAD

[CAB]

Glad we could help you on your journey. 

[HasanCAD]

this is final code

Code: [Select]

(defun *error* (msg)
    (and uFlag (vla-EndUndoMark doc))
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **")))
    (princ))

(defun c:vpslct (/ n ss)
  (vl-load-com)

  (setq doc (cond (doc) ((vla-get-ActiveDocument
                           (vlax-get-Acad-Object))))
        spc (if (zerop (vla-get-activespace doc))
              (if (= (vla-get-mspace doc) :vlax-true)
                (vla-get-modelspace doc)
                (vla-get-paperspace doc))
              (vla-get-modelspace doc))
        time (getvar "millisecs")
        n -1
        )

  (if (setq ss (ssget "_X" '((0 . "VIEWPORT"))))
    (while (setq e (ssname ss (setq n (1+ n))))
      (vla-put-displaylocked (vlax-ename->vla-object e) :vlax-true)
      (vla-put-ViewportOn (vlax-ename->vla-object e) :vlax-true)
      )
    )
  (princ (strcat "\n<< FULL ActiveX took: " (rtos (/ (- (getvar "millisecs") time) 1000.) 2 4) " secs. >>"))
  (princ)
  )

[gile]

(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

(ssget "X") works with a French version but some other options don't ("WP" or ":S" for instance).
So, I always 'internationalize' the selection mode string.

[Kerry]

This may be better for you :--

Code: [Select]

(defun c:vpslct (/ n ss *error*)
  (vl-load-com)
  (defun *error* (msg)
      (and uFlag (vla-EndUndoMark doc))
      (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
          (princ (strcat "\n** Error: " msg " **")))
      (princ)
  )
  ;; code mojo follows ...
(princ)
)