;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-30-93
;;;>		   EDITED: 10-22-2001
;;;
(defun pltsiz (pltare pltscl /)
  (setq dimsc (getvar "dimscale"))
  (if (eq dimsc 0)
    (setq dimsc 1)
  ) ;_ end of if
  (if (eq pltare "Limits")
    (progn
      (setq min_x (car (getvar "limmin")))
      (setq max_x (car (getvar "limmax")))
      (setq min_y (cadr (getvar "limmin")))
      (setq max_y (cadr (getvar "limmax")))
    ) ;_ end of progn
    (progn
      (setq min_x (car (getvar "extmin")))
      (setq max_x (car (getvar "extmax")))
      (setq min_y (cadr (getvar "extmin")))
      (setq max_y (cadr (getvar "extmax")))
    ) ;_ end of progn
  ) ;_ end of if
  (if (eq pltscl "Halfscale")
    (progn
      (setq horsiz
	     (/	(- max_x min_x)
		(* dimsc 2)
	     ) ;_ end of /
      ) ;_ end of setq
      (setq versiz
	     (/	(- max_y min_y)
		(* dimsc 2)
	     ) ;_ end of /
      ) ;_ end of setq
    ) ;_ end of progn
    (progn
      (setq horsiz
	     (/	(- max_x min_x)
		dimsc
	     ) ;_ end of /
      ) ;_ end of setq
      (setq versiz
	     (/	(- max_y min_y)
		dimsc
	     ) ;_ end of /
      ) ;_ end of setq
    ) ;_ end of progn
  ) ;_ end of if
  (cond
    ((eq (getvar "plotid") "Default System Printer")
     (if (> horsiz 11.00)
       (setq horsiz "11.00")
       (setq horsiz (rtos horsiz 2 2))
     ) ;_ end of if
     (if (> versiz 8.50)
       (setq versiz "8.50")
       (setq versiz (rtos versiz 2 2))
     ) ;_ end of if
    )
    ((wcmatch (getvar "plotid") "*HP*5Si*")
     (if (> horsiz 17.00)
       (setq horsiz "17.00")
       (setq horsiz (rtos horsiz 2 2))
     ) ;_ end of if
     (if (> versiz 11.00)
       (setq versiz "11.00")
       (setq versiz (rtos versiz 2 2))
     ) ;_ end of if
    )
    ((or (WCMATCH (getvar "plotid") "*650C*")(WCMATCH (getvar "plotid") "*8825*"))
     (if (> horsiz 48.00)
       (setq horsiz "48.00")
       (setq horsiz (rtos horsiz 2 2))
     ) ;_ end of if
     (if (> versiz 35.00)
       (setq versiz "35.00")
       (setq versiz (rtos versiz 2 2))
     ) ;_ end of if
    )
    ((wcmatch (getvar "plotid") "*JDL*")
     (if (> horsiz 48.00)
       (setq horsiz "48.00")
       (setq horsiz (rtos horsiz 2 2))
     ) ;_ end of if
     (if (> versiz 24.5)
       (setq versiz "24.5")
       (setq versiz (rtos versiz 2 2))
     ) ;_ end of if
    )
    (T
       (setq horsiz (rtos horsiz 2 2))
       (setq versiz (rtos versiz 2 2))
    )
  ) ;_ end of cond
  (if (and (> versiz horsiz) (/= versiz "8.50"))
    (setq rotang "90")
    (setq rotang "0")
  ) ;_ end of if
  (setq	month_lst '("" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12")
  ) ;_ end of setq
  (setq	curdate	 (itoa (fix (getvar "cdate")))
	curyear	 (substr curdate 3 2)
	curmonth (nth (atoi (substr curdate 5 2)) month_lst)
	curday	 (itoa (atoi (substr curdate 7 2)))
  ) ;_ end of setq
  (setq pth_str (substr (cadr (dos_splitpath (getvar "dwgprefix"))) 2))
  (setq	clie# nil
	proj# nil
  ) ;_ end of setq
  (while (and (not (wcmatch pth_str "\\*"))
	      (not (wcmatch pth_str "?:\\"))
	      (not (wcmatch pth_str ""))
	 ) ;_ end of and
    (if	clie#
      (setq clie# (strcat clie# (substr pth_str 1 1)))
      (setq clie# (substr pth_str 1 1))
    ) ;_ end of if
    (setq pth_str (substr pth_str 2))
  ) ;_ end of while
  (if (not (wcmatch pth_str "?:\\"))
    (setq pth_str (substr pth_str 2))
  ) ;_ end of if
  (while (and (not (wcmatch pth_str "\\*"))
	      (not (wcmatch pth_str "?:\\"))
	      (not (wcmatch pth_str ""))
	 ) ;_ end of and
    (if	proj#
      (setq proj# (strcat proj# (substr pth_str 1 1)))
      (setq proj# (substr pth_str 1 1))
    ) ;_ end of if
    (setq pth_str (substr pth_str 2))
  ) ;_ end of while
  (if clie#
    nil
    (setq clie# "")
  ) ;_ end of if
  (if proj#
    nil
    (setq proj# "")
  ) ;_ end of if
  (if subtsk#
    nil
    (setq subtsk# "")
  ) ;_ end of if
  (if (wcmatch (getvar "plotid") "*650*")
    (progn
      (setq pltlog (open "L:/charplot.log" "a"))
      (write-line
	(strcat	(getvar"loginname")
		"\t"
		clie#
		"\t"
		proj#
		"\t"
		subtsk#
		"\t"
		(getvar "dwgname")
		"\t"
		(getvar "plotid")
		"\t"
		horsiz
		"\t"
		versiz
		"\t\t"
		curmonth
		"/"
		curday
		"/"
		curyear
	) ;_ end of strcat
	pltlog
      ) ;_ end of write-line
      (close pltlog)
    ) ;_ end of progn
  ) ;_ end of if
  (setq shtsiz (strcat horsiz "," versiz))
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
 ***Don't add text below the comment!***|;