Topic: Search for viewport ...

[Hangman]

Afternoon,

I am in a bit of a pinch here and need some help.

I have a bunch of drawings created from several different sources.  The problem I am having is that some of these drawings have a model drawn in model space and text in paper space, others have the model and text in paper space and there is no viewport or everything in Model space and there is no viewport.  In this case, sometimes there is the default "layout" tab and at other times there is a name to the layout tab even though there is no viewport attached to it.

I need to find a generic way of finding out what the drawing is like.
The only thing I can think of at the moment is searching for a viewport, so I'm using Mark's code:

Code: [Select]

(vlax-for Lyout (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
    (if (eq :vlax-false (vla-get-modeltype Lyout))      ; if layout is other than Model
      (vlax-for Ent (vla-get-block Lyout)               ; for each entity in layout
        (if (= (vla-get-objectname Ent) "AcDbViewport") ; if there is a viewport
          (setq dwgVP 1)
          (setq dwgVP nil)
 < .. >

But my variable 'dwgVP' is coming up nil every time.

So can you kill two birds with one stone here?  I mean, I have done a search for "find viewport" and "search for viewport" but have come up empty.  So the question(s) here are; How do I go about searching for a viewport in the drawing?  I do have a few drawings where there are several tabs, and a drawing on each one with nothing in model space and no viewports, but a lot of tabs with different names so I can't search by a named tab.

And my second question would be; Do you have a suggestion to better determine if the drawing has a viewport and if so, how many, and on what tabs, and ...  what else can be added to this can of worms?

Thanks.

[alanjt]

?

Code: [Select]

(defun foo (/ ss)
  (foreach x (layoutlist) (setq ss (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x)))))
  (and ss (> (sslength ss) 1))
)

[Lee Mac]

Code: [Select]

(defun foo (/ ss)
  (foreach x (layoutlist) (setq ss (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x)))))
  (and ss (> (sslength ss) 1))
)

But if the last layout doesn't have a Viewport, wouldn't that return nil? But maybe that's what the OP wants - i.e. to check either all or nothing...

I thought maybe:

Code: [Select]

(defun HasVP nil (vl-load-com)
  (vl-some
    (function
      (lambda ( layout )
        (ssget "_X" (list (cons 0 "VIEWPORT") (cons 410 layout)))
      )
    )
    (layoutlist)
  )
)

[alanjt]

Code: [Select]

(defun foo (/ ss)
  (foreach x (layoutlist) (setq ss (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x)))))
  (and ss (> (sslength ss) 1))
)

But if the last layout doesn't have a Viewport, wouldn't that return nil? But maybe that's what the OP wants - i.e. to check either all or nothing...

I thought maybe:

Code: [Select]

(defun HasVP nil (vl-load-com)
  (vl-some
    (function
      (lambda ( layout )
        (ssget "_X" (list (cons 0 "VIEWPORT") (cons 410 layout)))
      )
    )
    (layoutlist)
  )
)

Crap, forgot about that, but you also have to account for the viewport block that exists in every layout...

Code: [Select]

(defun foo (/)
  (vl-some
    (function (lambda (x) (and x (> (sslength x) 1))))
    (mapcar (function (lambda (x) (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x))))) (layoutlist))
  )
)

[alanjt]

Actually, this would make more sense...

Code: [Select]

(defun foo (/)
  (vl-some
    (function
      (lambda (x / ss)
        (if (setq ss (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x))))
          (> (sslength ss) 1)
        )
      )
    )
    (layoutlist)
  )
)

[Lee Mac]

... but you also have to account for the viewport block that exists in every layout...

I don't think you do with an ssget call as I thought it will only select 'primary' objects, but will have to test to be certain.

[alanjt]

... but you also have to account for the viewport block that exists in every layout...

I don't think you do with an ssget call as I thought it will only select 'primary' objects, but will have to test to be certain.

Open a brand new drawing, if a viewport exists, erase it and try this:

Code: [Select]

(sslength (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 (getvar 'ctab)))))
It should return 1.

[Lee Mac]

; error: bad argument type: lselsetp nil

Apologies, that was in Model :ugly:

Yes, it does return 1 - I stand happily corrected

[ronjonp]

And more on viewports 

http://www.theswamp.org/index.php?topic=10992.msg139756#msg139756

[alanjt]

; error: bad argument type: lselsetp nil

Apologies, that was in Model :ugly:

Yes, it does return 1 - I stand happily corrected

It can still be deleted, but as far as I've seen, when you restart the drawing, it's recreated.

[Hangman]

; error: bad argument type: lselsetp nil

Apologies, that was in Model :ugly:

Yes, it does return 1 - I stand happily corrected

It can still be deleted, but as far as I've seen, when you restart the drawing, it's recreated.

In the Layout Elements under the Display tab in Options, you can take the check mark out of the "Create viewport in new layouts".

[Lee Mac]

; error: bad argument type: lselsetp nil

Apologies, that was in Model :ugly:

Yes, it does return 1 - I stand happily corrected

It can still be deleted, but as far as I've seen, when you restart the drawing, it's recreated.

In the Layout Elements under the Display tab in Options, you can take the check mark out of the "Create viewport in new layouts".

True, but the Paperspace Viewport will always exist 

[Hangman]

; error: bad argument type: lselsetp nil

Apologies, that was in Model :ugly:

Yes, it does return 1 - I stand happily corrected

It can still be deleted, but as far as I've seen, when you restart the drawing, it's recreated.

In the Layout Elements under the Display tab in Options, you can take the check mark out of the "Create viewport in new layouts".

True, but the Paperspace Viewport will always exist 

Perhaps I am missing something.  I deleted the tab that has a viewport, right click on the tab and pick new layout.  I now have two layouts and no viewport.

[alanjt]

; error: bad argument type: lselsetp nil

Apologies, that was in Model :ugly:

Yes, it does return 1 - I stand happily corrected

It can still be deleted, but as far as I've seen, when you restart the drawing, it's recreated.

In the Layout Elements under the Display tab in Options, you can take the check mark out of the "Create viewport in new layouts".

True, but the Paperspace Viewport will always exist  

Perhaps I am missing something.  I deleted the tab that has a viewport, right click on the tab and pick new layout.  I now have two layouts and no viewport.

What happens when you paste this into the commadline?

Code: [Select]

(sslength (ssget "_X" '((0 . "VIEWPORT"))))
This one should be correct: http://www.theswamp.org/index.php?topic=36979.msg419724#msg419724

[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.