could someone test this for autocad2011 or down?
please confirm if it is writing to acaddoc.lsp
Code:
(DEFUN C:AUTOLOAD ()
(PRINC)
(PROMPT "\n*AUTOLOAD WATSON SETUP* ")
(SETQ PGPF NIL)
(SETQ PGPFF NIL)
(SETQ PGPLN "(LOAD \"Wat.lsp\")" )
(SETQ PGPFN (FINDFILE "ACAD2000.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN /IF PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2001.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "acad2002.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2003.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2004.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2005.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2006.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2007.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2008.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2009.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2010.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(SETQ PGPFN (FINDFILE "ACAD2011.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPFNL (STRLEN PGPFN))
(SETQ PGPFN2 (SUBSTR PGPFN 1 (- PGPFNL 12)))
(SETQ PGPFN2 (STRCAT PGPFN2 "acaddoc.lsp"))
(SETQ PGPF (OPEN PGPFN2 "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN2)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN2)
));END PROGN PGPF
));END PROGN/IF PGPFN
(IF (= PGPFF NIL) (SETQ PGPFN (GETFILED "FIND AN AUTOMATICALLY LOADING LISP FILE" "" "LSP" 2)))
(IF (/= PGPFN NIL)
(PROGN
(SETQ PGPF (OPEN PGPFN "a"))
(WRITE-LINE " " PGPF)
(WRITE-LINE PGPLN PGPF)
(IF (/= PGPF NIL)
(PROGN
(CLOSE PGPF)
(PROMPT "\nWat.lsp added to ")
(PROMPT PGPFN)
(SETQ PGPFF 1)
); END PROGN PGPF
(PROGN
(PROMPT "\n CANNOT WRITE TO ")
(PROMPT PGPFN)
));END PROGN PGPF
));END PROGN/IF PGPFN
(PRINC)
); END AUTOLOAD