This is driving me MAD

**aaronic_abacus** · 2019-06-13, 08:44 AM

Code:

(PRINC)
(PROMPT "\n*AUTOLOAD WATSON SETUP* ")

(SETQ PGPF NIL)


 (SETQ PGPLN "(LOAD \"Wat.lsp\")" )


(SETQ PGPFN (FINDFILE "ACAD2000.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2001.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2002.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2003.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2004.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2005.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2006.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2007.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2008.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2009.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2010.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2011.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2012.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2013.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2014.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2015.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2016.lsp" ))
(IF (/= PGPFN NIL)
(PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2017.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2018.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2019.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "acad2020.lsp" ))
(IF (/= PGPFN NIL)
 (PROGN
  (SETQ PGPF (OPEN PGPFN "a"))
  (WRITE-LINE " " PGPF)
  (WRITE-LINE PGPLN PGPF)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

;(IF (= PGPFN NIL) (SETQ PGPFN (GETFILED "LOCATE ACAD2000.LSP ACAD2020.LSP FILE" "" "LSP" 2)))

**Tharwat** · 2019-06-13, 10:13 AM

....................................................
ACADVER.PNG

**Tom Beauford** · 2019-06-13, 11:36 AM

About Auto-Loading and Running AutoLISP Routines: http://help.autodesk.com/view/ACD/20...4-D37729D42520
Note: Do not modify the reserved acad<release>.lsp file. Autodesk provides the acad<release>.lsp file, which contains required, release-specific AutoLISP-defined functions. This file is loaded into memory immediately before the acad.lsp file is loaded. <release> represents the release of the AutoCAD-based product; for example, acad2020.lsp would be the file loaded by AutoCAD 2020-based products.

With so many options for loading lisp described in the help link above why take a chance on messing up this one? The acad<release>.lsp file can also be replaced on an update wiping out any code you may have added.

**rkmcswain** · 2019-06-13, 11:59 AM

Originally Posted by Tom Beauford

With so many options for loading lisp described in the help link above why take a chance on messing up this one?

This ^^^^^^^^^^^^

**aaronic_abacus** · 2019-06-14, 06:48 AM

This is what I get when I run it in AutoCAD2020

Wat.lsp added to C:\program files\autodesk\autocad 2020\support\acad2020.lsp; error: bad argument type: streamp nil

Works with no errrors when I run it in AutoCAD2000

**Tom Beauford** · 2019-06-14, 12:13 PM

A lot of security has been added to both AutoCAD and most offices in the past 20 years. In our office none of our customizable content from templates to CUIX's is on the C: drive and modifying something in the "Program Files" folder might be risking your job.
Have you tried loading it from the command line? Were all the C:\Wat files added?
Try debugging it in vlide.
Without being able to look at the code there's not much anyone here can do for you.

**aaronic_abacus** · 2019-06-15, 09:18 AM

thank guys!

I think AutoCAD is protecting it self in more recent versions

**aaronic_abacus** · 2019-06-15, 12:32 PM

also tried acad.lsp and this acaddoc.lsp, still no luck

Code:

(PROMPT "\n*AUTOLOAD WATSON SETUP* ")

(SETQ PGPF 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE 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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2012.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2013.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2014.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2015.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2016.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2017.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2018.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2019.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

(SETQ PGPFN (FINDFILE "ACAD2020.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)
  (PROMPT "\nWat.lsp added to ")
  (PRINC PGPFN2)
  (CLOSE PGPF)
));END PROGN/IF PGPFN

;(IF (= PGPFN NIL) (SETQ PGPFN (GETFILED "LOCATE ACAD2000.LSP ACAD2020.LSP FILE" "" "LSP" 2)))

**Tom Beauford** · 2019-06-15, 12:52 PM

So the only thing you've tried is modifying the acad<release>.lsp file you're not supposed to modify?

**aaronic_abacus** · 2019-06-15, 01:27 PM

look again now it's the acaddoc.lsp file now

Thread: This is driving me MAD

Thread Tools

Display

This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Re: This is driving me MAD

Similar Threads

Insulation Detail Component Causes Snaps To Go Mad!

Posting Permissions