get a warning when in an unlocked viewport

[Wish List System]

Summary: get a warning when in an unlocked view port

Description: How many times have you jumped into a view port, made a minor change just to find out that the view port was not locked and now you are lost in space inside a view port? Well, it drives me crazy. What if AutoCad detected that you were now inside an unlocked view port and popped up with a warning that states that the view port is unlocked and if you want to continue? Sounds simple..sounds like it would be great!! Perhaps a switch or prompt that would you allow to jump out of the view port easily and back into paper space.

Product and Feature: AutoCAD Civil 3D - Other

Submitted By: mmorison751262 on 11/03/2017

[mmorison751262]

Summary: get a warning when in an unlocked view port

Description: How many times have you jumped into a view port, made a minor change just to find out that the view port was not locked and now you are lost in space inside a view port? Well, it drives me crazy. What if AutoCad detected that you were now inside an unlocked view port and popped up with a warning that states that the view port is unlocked and if you want to continue? Sounds simple..sounds like it would be great!! Perhaps a switch or prompt that would you allow to jump out of the view port easily and back into paper space.

Product and Feature: AutoCAD Civil 3D - Other

Submitted By: mmorison751262 on 11/03/2017

Better yet..how about having the view port automatically lock when exiting it every time. A prompt can ask you if you wish to unlock it. or you can check a box to never show you this prompt again. I vote for locked view ports unless we want it unlocked.!!

[BlackBox]

You add some things there at the end that I don't particularly care for, but this should get you started for the 'pop up warning' bit:

(vl-load-com)

(defun c:ViewportWarning ()
  (princ "\rVIEWPORTWARNING = ")

  (if *Reactor_ViewportWarning*
    (progn                                                              ; Turn off
      (vlr-remove *Reactor_ViewportWarning*)
      (setq *Reactor_ViewportWarning* nil)
      (setq ViewportWarning:SysVarChanged nil)
      (princ "OFF ")
    )

    (progn                                                              ; Turn on
      (or *Reactor_ViewportWarning*
          (setq *Reactor_ViewportWarning*
                 (vlr-sysvar-reactor
                   "ViewportWarning"
                   '(
                     (:vlr-sysvarchanged . ViewportWarning:SysVarChanged)
                    )
                 )
          )
      )

      (defun ViewportWarning:SysVarChanged (rea var / ctab)
        (if
          (and
            (= T (cadr var))
            (= "CVPORT" (strcase (car var)))
            (/= "Model" (setq ctab (getvar 'ctab)))
            (/= 1 (getvar 'cvport))
          )
          (alert
            (strcat "The active viewport on " ctab " is unlocked. ")
          )
        )
      )

      (princ "ON ")
    )
  )

  (princ)
)

;; Uncomment next line to make it start automagically when loaded:
;;(c:ViewportWarning)

Cheers