Topic: Viewport

[JohnK]

Picky picky 

*lol* Yeah, your right. That is far less obscure then a simple `cond' statement.

Heres another variant:

Code: [Select]

( (lambda ( / let )
    (defun let (bindings body)
      (eval
        (cons (append (list 'lambda (mapcar 'car bindings)) body)
              (mapcar 'cadr bindings))) )

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

EDIT:
I noticed your code changed. ...Let me evaluate, before i make my next funny.

[JohnK]

ronjonp,
Your latest wont work either. `or' is boolean and returns T or nil not the evaluation of process; so if the selection set is created, the variable will be filled with T not the VP.

Keep at er!

;P

[ronjonp]

I'm just messin with ya

This is how I would approach it (seems straight forward).

Code: [Select]

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

[JohnK]

I'm just messin with ya

This is how I would approach it (seems straight forward).

yeah i know. and im just returning the salvo. ;p

Me too.

[Krushert]

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

Hey that is motto over here as well.