Topic: Viewport

[Willie]

Why doesn't the following code return nil?  I can not get it to display the alert message when their is no viewports on the layout.

Code: [Select]

(setq SS-VP (ssget "x" (list '(0 . "VIEWPORT") (cons 410 (getvar "ctab")))))
      (if
(= SS-VP nil)
(alert "\n No VIEWPORTS in current layout")
I am trying to create a small routine a help our cad guys to stop putting viewports on the Defpoints layer.

[CAB]

Use this:
(if (null SS-VP)

Scratch that.

[mjfarrell]

Why not write a button command for it, that sets the correct (desired) layer for the Viewport when they use the button.
Or why not include a viewport on the correct layer for them on the Layout Tab in the Template, so that they can either A) copy and modify the viewport as required, or B) copy the layout tab with the viewport already on it?

[Willie]

Why not write a button command for it, that sets the correct (desired) layer for the Viewport when they use the button.

Not a bad idea.  I will give it a try.

Or why not include a viewport on the correct layer for them on the Layout Tab in the Template, so that they can either A) copy and modify the viewport as required, or B) copy the layout tab with the viewport already on it?

Most of the user don't care about using the correct templates or procedures.  With certain projects, they will copy drawings that was done 5 years ago and make a couple of changes and then issue the drawing to the client/contractor.

Part of our problem is that we do not have people that enforces standards or audit the drawings electronicly.  The motto in the office is: If it looks good on paper, it was created in the right way".

[CAB]

OK try this:

Code: [Select]

(setq SS-VP (ssget "x" (list '(0 . "VIEWPORT") '(-4 . "/=") '(68 . 1)(cons 410 (getvar "ctab")))))

[Willie]

OK try this:

Code: [Select]

(setq SS-VP (ssget "x" (list '(0 . "VIEWPORT") '(-4 . "/=") '(68 . 1)(cons 410 (getvar "ctab")))))

Thanks. It works perfectly.

This realy is the best place on the internet for assistance with code.

Thank you.

[CAB]

Glad we could help.

[mjfarrell]

Most of the user don't care about using the correct templates or procedures.  With certain projects, they will copy drawings that was done 5 years ago and make a couple of changes and then issue the drawing to the client/contractor.

Part of our problem is that we do not have people that enforces standards or audit the drawings electronicly.  The motto in the office is: If it looks good on paper, it was created in the right way".

Can we send you some better users to go with that code?

[JohnK]

I find the ``flow'' of your three lines interesting.

Create varialble
Test varialbe
Report findings if necessary

Code: [Select]

(setq SS-VP (ssget "x" (list '(0 . "VIEWPORT") '(-4 . "/=") '(68 . 1) (cons 410 (getvar "ctab")))))
(if
  (= SS-VP nil)
  (alert "\n No VIEWPORTS in current layout")
  )
Using an alternate method(s) would be my choice. I think along the lines of something like:

create variable with value of which ever process evaluates to true

Code: [Select]

;; obscure-ish
(setq ss-vp
       (cond
((ssget "x"
(list '(0 . "VIEWPORT")
       '(-4 . "/=")
       '(68 . 1)
       (cons 410 (getvar "ctab")))) )
((alert "\n No VIEWPORTS in current layout"))
         )
   )

do process which evals to true (create the var if necessary--in a sense) ;; <-- that statement is a loaded gun (not really true)!

Code: [Select]

;; straight forward-ish
(cond
  ((setq ss-vp
         (ssget "x"
                (list '(0 . "VIEWPORT")
                      '(-4 . "/=")
                      '(68 . 1)
                      (cons 410 (getvar "ctab"))))) )
  ((alert "\n No VIEWPORTS in current layout"))
 )
...I think its kinda fun to try and glean how people process problems from small bits of code

[ronjonp]

Another way

Code: [Select]

(or (ssget "x"
   (list '(0 . "VIEWPORT")
'(-4 . "/=")
'(68 . 1)
(cons 410 (getvar 'ctab))
   )
    )
    (alert "\n No VIEWPORTS in current layout")
)

[JohnK]

Another way

And the variable? ;p

[ronjonp]

What variable?

[JohnK]

Did you think the sole purpose of the application was to create a selection set of a view port in paper space or do you think it more likely some other process' might take place on the selection set?

;P


*lmao*

[ronjonp]

Picky picky 

Code: [Select]

(or (setq vp-ss (ssget "x"
       (list '(0 . "VIEWPORT")
     '(-4 . "/=")
     '(68 . 1)
     (cons 410 (getvar 'ctab))
       )
)
    )
    (alert "\n No VIEWPORTS in current layout")
)

[jbuzbee]

command reactor . . ..