Topic: How to get layout which viewort on?

[HasanCAD]

How to get layout which viewort on?
This is my try but not working

Code - Auto/Visual Lisp: [Select]

1. (setq   sset (ssget "x" '((0 . "VIEWPORT")))
2.         len  (sslength sset)
3.         c    0)
4. (while (< c len)
5.   (setq entVL (ssname sset c))
6.   (setq entVLLYt (vla-get-layout (vlax-ename->vla-object entVL)))
7.   (setq c (1+ c))
8.   )

[roy_043]

You can check group code 410 in the entity list.

[HasanCAD]

Thanks roy_043
Woking perfect

[ronjonp]

I thought I saw this answered somewhere but here you go again

Code - Auto/Visual Lisp: [Select]

1. (if (setq s (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))
2.   (mapcar 'print (mapcar '(lambda (x) (cdr (assoc 410 (entget x)))) (mapcar 'cadr (ssnamex s))))
3. )

[HasanCAD]

I thought I saw this answered somewhere but here you go again

Code - Auto/Visual Lisp: [Select]

1. (if (setq s (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))
2.   (mapcar 'print (mapcar '(lambda (x) (cdr (assoc 410 (entget x)))) (mapcar 'cadr (ssnamex s))))
3. )

Thanks ronjonp

[HasanCAD]

There was an answer in this thread and my reply on it but both deleted.
Why is this?

[kdub_nz]

?? Other than this one ?

I thought I saw this answered somewhere but here you go again

Code - Auto/Visual Lisp: [Select]

1. (if (setq s (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))
2.   (mapcar 'print (mapcar '(lambda (x) (cdr (assoc 410 (entget x)))) (mapcar 'cadr (ssnamex s))))
3. )

[HasanCAD]

?? Other than this one ?

I thought I saw this answered somewhere but here you go again

Code - Auto/Visual Lisp: [Select]

1. (if (setq s (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))
2.   (mapcar 'print (mapcar '(lambda (x) (cdr (assoc 410 (entget x)))) (mapcar 'cadr (ssnamex s))))
3. )

I checked the email from the swamp I find out that there are 2 threads posted with the same subject
Sorry for conflict
Is there a way to combine the 2 threads?

[kdub_nz]

>>>>
I checked the email from the swamp I find out that there are 2 threads posted with the same subject
Sorry for conflict
Is there a way to combine the 2 threads?

Done.

[HasanCAD]

>>>>
I checked the email from the swamp I find out that there are 2 threads posted with the same subject
Sorry for conflict
Is there a way to combine the 2 threads?

Done.

Thanks kdub