;;;Save named views
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-4-96
;;;>		   EDITED: 04-08-1997
;;;
(defun nxdata (/)
(if(and(/=(GETVAR"DWGNAME")"UNNAMED")(/=(GETVAR"DWGNAME")"EPSTRT12")(/=(GETVAR"DWGNAME")"NONE"))
(progn
  (setq rapnm "SAVED_VIEW_LOG")
  (regapp rapnm)
  (setq nxdl (list rapnm))
  (setq nxdl append nxdl '(1002 . "{"))
  (foreach n sview_list
    (setq nxdl (append nxdl (cons 1000 n )))
  );foreach
  (setq nxdl (append nxdl(list '(1002 . "}"))))
  (setq nxdl (list -3 nxdl))
(princ)
);progn
);if
)
;---------------------------------------------------------------------------
(defun vw_log ( / luprc rapnm edss ename xelst nedlst xedlst elst)
(if(and(/=(GETVAR"DWGNAME")"UNNAMED")(/=(GETVAR"DWGNAME")"EPSTRT12")(/=(GETVAR"DWGNAME")"NONE"))
(progn
  (nxdata)
  (if
    (setq edss (ssget "x" (list '(-3 ("SAVED_VIEW_LOG")) (cons 2 "SAVED-VIEW-LOG")(cons 10 (list 0.0 0.0 0.0)))))
    (progn
;      (princ"\nedss is found. ")
      (setq ename (ssname edss 0))
      (setq xelst (entget ename (list rapnm)))
      (setq nedlst (list(cons 1000 (strcat actstr(substr(rtos(getvar"cdate"))3)lname curdwg))))
      (setq xedlst (cdr(reverse(cddr(assoc rapnm(cdr(assoc -3 xelst)))))))
      (setq xedlst (append xedlst nedlst))
      (setq xedlst (cons(cons 1002 "}") xedlst))
      (setq xedlst (cons(cons 1002 "{")(reverse xedlst)))
      (setq xedlst (cons "HUA" xedlst))
      (setq elst
 	(subst (cons -3 (list xedlst))
               (assoc -3 xelst)
	       xelst
	)
      )
      (entmod elst)
    );progn
    (progn
;      (princ "\nedss IS NOT found. ")
      (newent "SAVED-VIEW-LOG")
      (setq ename (entlast))
      (setq xelst (entget ename))
      (setq xelst (append xelst (list nxdl)))
      (entmod xelst)
      (setq xelst (entget ename (list rapnm)))
    );progn
  );if
);progn
);if
(princ)
)
;---------------------------------------------------------------------------
(defun newent (nblkn /)
(if(and(/=(GETVAR"DWGNAME")"UNNAMED")(/=(GETVAR"DWGNAME")"EPSTRT12")(/=(GETVAR"DWGNAME")"NONE"))
(progn
  (entmake
    (list
      (cons 0 "BLOCK")
      (cons 8 "0")
      (cons 2 nblkn)
      (cons 6 "BYBLOCK")
      (cons 10 '(0.00 0.00 0.00))
      (cons 62 0)
      (cons 70 2)
    )
  )
;  (princ"\nEntmake BLOCK ")
;  (entmake
;    (list
;      (cons 0 "TEXT")
;      (cons 8 "0")
;      (cons 1 "DO NOT ERASE")
;      (cons 10 '(0.00 0.00 0.00))
;      (cons 40 0.05)
;    )
;  )
;  (princ"\nEntmake TEXT ")
  (entmake
    (list
      (cons 0 "ENDBLK")
    ) 
  )
;  (princ"\nEntmake ENDBLK ")
   (entmake
    (list
      (cons 0 "INSERT")
      (cons 8 "0")
      (cons 2 nblkn)
      (cons 6 "BYBLOCK")
      (cons 10 '(0.00 0.00 0.00))
      (cons 66 1)
    )
  )
;  (princ"\nEntmake INSERT ")
;   (entmake
;    (list
;      (cons 0 "ATTRIB")
;      (cons 8 "0")
;      (cons 1 "DO NOT ERASE")
;      (cons 2 "")
;      (cons 6 "BYBLOCK")
;      (cons 10 '(0.00 0.00 0.00))
;      (cons 40 0.005)
;      (cons 70 1)
;    )
;  )
;  (princ"\nEntmake ATTRIB ")
  (entmake
    (list
      (cons 0 "SEQEND")
      (cons -2 nblkn)
    ) 
  )
;  (princ"\nEntmake SEQEND ")
);progn
);if
;(princ)
);defun