;;;Isolate current Vport annotation (freeze other layers *vi0#* using VPLAYER)
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-28-96
;;;>		   EDITED: 12-04-1999
;;;
(defun c:isovp ()
(if gvpno nil (load"gvpno"))
(gvpno)
(if viewno
  (setq vp_no viewno)
  (setq vp_no (uint 0 "" "Vport number to isolate" (if vp_no (1+ vp_no)1)))
)
(if (< vp_no 10)
  (progn
    (princ (strcat "\nVplayer freezing all \"*VI##*\" layers except \"*VI0" (itoa vp_no)"*\""))
    (command "_.vplayer" "freeze" "*vi##*" "" "thaw" (strcat "*vi0" (itoa vp_no)"*") "" "")
  )
  (progn
    (princ (strcat "\nVplayer freezing all \"*VI##*\" layers except \"*VI" (itoa vp_no)"*\""))
    (command "_.vplayer" "freeze" "*vi##*" "" "thaw" (strcat "*vi" (itoa vp_no)"*") "" "")
  )
)
(command "'resume")
(princ)
)
(defun c:isoprof ( / cisop cisop)
  (setq prof_no (uint 1 "" "Profile number to isolate" (if prof_no (1+ prof_no))))
  (if (<= prof_no 9)
    (setq no_str (strcat "0"(itoa prof_no)))
    (if (> prof_no 99)
      (setq cisop T)
      (setq no_str (itoa prof_no))
    )
  )
  (if cisop
    (princ "\nProfile must be less than 100. ")
    (command "_.vplayer"
             "thaw" "*" ""
             "freeze" "*|*,*ttlb*" ""
             "thaw" (strcat "c??prx" no_str "*") ""
             "freeze" "*pvgrid,*pbase,*dca_info,*pegct,*prof_info" "" ""
    )
  )
(princ)
)
(defun c:isottlb ()
  (command "._vplayer" "freeze" "newleg*,*_pe*,cgsprx*,cstmpx*" "" "")
  (princ)
)
(DEFUN C:ISOV# ()
  (SETQ vtoiso (UINT 1 "" "View number to isolate view-specific text in. " nil))
  (COMMAND ".LAYER" "OFF" "*" "ON" (strcat "*VI0" (itoa vtoiso) "*") "" "")
)