Topic: Search for viewport ...

[alanjt]

Note that the Paperspace Viewport won't be visible, but is inherent to each layout - you can check this by iterating through the collection of objects in the Layout Block Object.

Code: [Select]

(defun c:Test (/)
  (foreach x (layoutlist)
    (print (cons x (sslength (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x))))))
  )
  (princ)
)

[Hangman]

Note that the Paperspace Viewport won't be visible, but is inherent to each layout - you can check this by iterating through the collection of objects in the Layout Block Object.

Code: [Select]

(defun c:Test (/)
  (foreach x (layoutlist)
    (print (cons x (sslength (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x))))))
  )
  (princ)
)

Ahhh, ... Understood.  I see what I wasn't seeing.  Interesting.

[alanjt]

Note that the Paperspace Viewport won't be visible, but is inherent to each layout - you can check this by iterating through the collection of objects in the Layout Block Object.

Code: [Select]

(defun c:Test (/)
  (foreach x (layoutlist)
    (print (cons x (sslength (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x))))))
  )
  (princ)
)

Interesting.

AKA: Pain in the a$$.

[ronjonp]

Try this as well (mostly CAB's code):

Code: [Select]

(defun getvports (/ a b c lst ss to)
  (if (setq ss (ssget "x" '((0 . "VIEWPORT"))))
    (progn (foreach e (mapcar 'cadr (ssnamex ss))
     (setq a  (cdr (assoc 330 (entget e)))
   b  (cdr (assoc 340 (entget a)))
   c  (cdr (assoc 331 (entget b)))
   to (cdr (assoc 71 (entget b)))
     )
     (or (equal c e) (setq lst (cons (list e to) lst)))
   )
    )
  )
  ;;Sort the list by taborder L 2 R
  (mapcar 'car (vl-sort lst (function (lambda (x y) (< (cadr x) (cadr y))))))
)

(mapcar '(lambda (x) (print (list (cdr (assoc 410 (entget x))) x))) (getvports))

[alanjt]

Try this as well (mostly CAB's code):

Code: [Select]

(defun getvports (/ a b c lst ss to)
  (if (setq ss (ssget "x" '((0 . "VIEWPORT"))))
    (progn (foreach e (mapcar 'cadr (ssnamex ss))
     (setq a  (cdr (assoc 330 (entget e)))
   b  (cdr (assoc 340 (entget a)))
   c  (cdr (assoc 331 (entget b)))
   to (cdr (assoc 71 (entget b)))
     )
     (or (equal c e) (setq lst (cons (list e to) lst)))
   )
    )
  )
  ;;Sort the list by taborder L 2 R
  (mapcar 'car (vl-sort lst (function (lambda (x y) (< (cadr x) (cadr y))))))
)

(mapcar '(lambda (x) (print (list (cdr (assoc 410 (entget x))) x))) (getvports))

nice.  :kewl:

[ronjonp]

Try this as well (mostly CAB's code):

Code: [Select]

(defun getvports (/ a b c lst ss to)
  (if (setq ss (ssget "x" '((0 . "VIEWPORT"))))
    (progn (foreach e (mapcar 'cadr (ssnamex ss))
     (setq a  (cdr (assoc 330 (entget e)))
   b  (cdr (assoc 340 (entget a)))
   c  (cdr (assoc 331 (entget b)))
   to (cdr (assoc 71 (entget b)))
     )
     (or (equal c e) (setq lst (cons (list e to) lst)))
   )
    )
  )
  ;;Sort the list by taborder L 2 R
  (mapcar 'car (vl-sort lst (function (lambda (x y) (< (cadr x) (cadr y))))))
)

(mapcar '(lambda (x) (print (list (cdr (assoc 410 (entget x))) x))) (getvports))

nice.  :kewl:

Thanks Alan.

[Lee Mac]

Note that the Paperspace Viewport won't be visible, but is inherent to each layout - you can check this by iterating through the collection of objects in the Layout Block Object.

Code: [Select]

(defun c:Test (/)
  (foreach x (layoutlist)
    (print (cons x (sslength (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x))))))
  )
  (princ)
)

Interesting.

AKA: Pain in the a$$.

 

[Hangman]

Well, I can see now I definitely went the wrong way with the code I was using.  But I also learned something ... Interesting.   
Thank you guys.