(defun plbat ( / dwgp item item1 count lognm pltfs fp4)
  (setq dwgp (getvar"dwgprefix"))
  (setq item (getvar"dwgname"))
  (if (eq (substr item 2 1)":")
    (setq item1 item)
    (setq item1 (strcat dwgp item))
  );if
  (setq count (strlen item1))
  (while (< 1 count)
    (if (eq(substr item1 count 1)"/")
      (setq item1 (strcat(substr item1 1 (1- count))"\\"(substr item1 (1+ count)))))
    (setq count (1- count))
  );while
  (if (getenv "LGN")
    (setq lognm (getenv "LGN"))
    (setq lognm "NN")
  );if
  (setq pltfs (strcat item1 ".PLT"))
  (setq fp4 (open (strcat dwgp lognm "PLOTH.BAT") "w"))
  (write-line "@echo off" fp4)
  (write-line "c:" fp4)
  (write-line "cd\\util\\ustn\\plotting\\hpglutil" fp4)
  (write-line (substr dwgp 1 2) fp4)
  (cond
    ((eq ftscl "Halfscale")
      (write-line (strcat "c:printgl "pltfs" /FI/J$1B,$26,$6C,$31,$31,$41/A0,0/Dlpt1/M1/IWN/L10.51,16.01,0,0/S00004004/W14344212") fp4))
    ((not(eq ftscl "Halfscale"))
      (write-line (strcat "c:printgl "pltfs" /FI/J$1B,$26,$6C,$31,$31,$41/A0,0/Dlpt1/MF1/IWN/L10.5,16.0,0,0/S00004004/W14344212") fp4))
  )
  (close fp4)
  (command ".sh" (strcat dwgp lognm "ploth.bat"))
  (if dos_delete
    (dos_delete pltfs)
    (progn
      (xload"doslib12")
      (dos_delete pltfs)
    )
  )
  (dos_drive "C:")
  (dos_chdir "\\")
;  (dos_drive "Z:")
;  (dos_chdir "\\PUBLIC")
;  (dos_drive (substr dwgp 1 2))
;  (dos_chdir (substr dwgp 3))
;  (command ".sh" "C:")
;  (command ".sh" "CD\\")
;  (command ".sh" (substr dwgp 1 2))
;  (command ".sh" (strcat "CD"(substr dwgp 3)))
;  (command ".sh" "delplt")
);defun