Re: This is driving me MAD
Quote:
Originally Posted by
aaronic_abacus
works fine in 2000, not a coding error
vl huh?
still no luck.
if I can't write to the files how will programs load automatically, i'm just trying to AUTOLOAD a string
Just to be clear there has never been a time when it was OK to modify the acad<release>.lsp file. Acad.lsp, acaddoc.lsp, and acad.rx have been the user created files set up for this purpose by AutoCAD you should have been using in 2000 as well. Now that AutoCAD and most organizations IT policies have blocked you completely it's time to do this the way you should have been doing it all these years. If
Code:
(findfile "acaddoc.lsp")
returns nil create one in the
Code:
(getenv "userprofile")
folder where permissions shouldn't be a problem. Appending your code after the last line will display whatever your code sends last as well as any errors it may generate.
Re: This is driving me MAD
so there's no automatically loading file I can write to?
Re: This is driving me MAD
<Comment removed, NSFW... Link an image that conveys same>
https://static1.fjcdn.com/thumbnails...ba1086c403.jpg
Re: This is driving me MAD
Quote:
Originally Posted by
aaronic_abacus
so there's no automatically loading file I can write to?
Is there an issue with using the acaddoc.lsp file designed to be created and modified by us just for this purpose?
Are we missing something?
1 Attachment(s)
Re: This is driving me MAD
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