Why does this work some of the time and not others?
;;;
;;; TITLE:@file.lsp
;;;
;;; Copyright (C) 2006 by Andy Hudson
;;;
;;; Permission to use, copy, modify, and distribute this
;;; software and its documentation for any purpose and without
;;; fee is hereby granted
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR
;;; IMPLIED WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY
;;; PARTICULAR PURPOSE AND OF MERCHANTABILITY ARE HEREBY
;;; DISCLAIMED.
;;;
;;; Andy Hudson
;;; May 2006
;;;
;;;-------------------------------------------------------------
;;; Description:
;;;
;;; Plot routine to set up and plot to file
;;;
;;;-------------------------------------------------------------
;;; COMMAND - Various
;;;-------------------------------------------------------------
(defun c:@file ()
(setq @tmode (getvar "tilemode"))
(setq @cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
;;filename
(setq @fname1 (getvar "dwgname")
@fname2 (vl-string-right-trim ".dwg" @fname1)
@fname2 (vl-string-right-trim ".DWG" @fname1)
@fname3 (getvar "dwgprefix")
@fname (strcat @fname3 @fname2))
;;GET TITLE BLOCK NAME
(setq @ss (entget (ssname (ssget "x" (list (cons 0 "insert") (cons 2 "*sheet"))) 0)))
(setq @ss2 (CDR (assoc 2 @ss)))
;;; IF A1 TITLE SHEET FOUND
(if (or (= @ss2 "A1_Sheet") (= @ss2 "A1_SHEET"))
(setq @paper "ISO A1 - 594 x 841 mm. (landscape)"
@PLOTTER "\\\\GLASGOW\\HP_PLOTTER"))
;;; IF A0 TITLE SHEET FOUND
(if (or (= @ss2 "A0") (= @ss2 "A0"))
(setq @paper "ISO A0 - 841 x 1189 mm."
@PLOTTER "\\\\GLASGOW\\HP_PLOTTER"))
;;; PAGESETUP PART
(PROGN
(SETVAR "TILEMODE" 0)
(command "-plot"
"Y"
""
@PLOTTER
@paper
"m"
"LANDSCAPE"
"NO"
"EXTENTS"
"1:1"
"CENTER"
"YES"
"rybka battle - STANDARD.ctb"
"YES"
"NO"
"NO"
"NO"
"YES"
@FNAME
"NO"
"YES"
))
;;reset variables
(setvar "cmdecho" @cmd)
(princ)
)
When it fails it always fails at the same point,
Command: @file
Unknown command "M". Press F1 for help.
Unknown command "LANDSCAPE". Press F1 for help.
Unknown command "NO". Press F1 for help.
Unknown command "EXTENTS". Press F1 for help.
Unknown command "1:1". Press F1 for help.
Unknown command "CENTER". Press F1 for help.
Unknown command "YES". Press F1 for help.
Unknown command "RYBKA BATTLE - STANDARD.CTB". Press F1 for help.
Unknown command "YES". Press F1 for help.
Unknown command "NO". Press F1 for help.
Unknown command "NO". Press F1 for help.
Unknown command "NO". Press F1 for help.
Unknown command "YES". Press F1 for help.
Unknown command "R:\DWG\04\GLASGOW\504-011-00 NORTH LANARKSHIRE SCHOOLS\B21
CAMBUSNETHAN\ELEC\CURRENT\MODS\B21-PD-L-60-0-001-B". Press F1 for help.
Unknown command "NO". Press F1 for help.
Unknown command "YES". Press F1 for help.
Anyone have any idea?