See the top rated post in this thread. Click here

Page 1 of 3 123 LastLast
Results 1 to 10 of 25

Thread: This is driving me MAD

  1. #1
    I could stop if I wanted to aaronic_abacus's Avatar
    Join Date
    2006-04
    Posts
    398
    Login to Give a bone
    0

    Default This is driving me MAD

    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)))

    http://www.watsonlisp.com

    Artificial Intelligence for AutoCAD
    Find detail drawings by text and attribute content!
    6000 lines of code and and in development since 1997.

  2. #2
    All AUGI, all the time Tharwat's Avatar
    Join Date
    2010-06
    Posts
    897
    Login to Give a bone
    0

    Default Re: This is driving me MAD

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

  3. #3
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,163
    Login to Give a bone
    0

    Default Re: This is driving me MAD

    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.
    Tom Beauford P.S.M. - Civil 2019 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  4. #4
    Certified AUGI Addict rkmcswain's Avatar
    Join Date
    2004-09
    Location
    Earth
    Posts
    9,631
    Login to Give a bone
    0

    Default Re: This is driving me MAD

    Quote Originally Posted by Tom Beauford View Post
    With so many options for loading lisp described in the help link above why take a chance on messing up this one?
    This ^^^^^^^^^^^^
    R.K. McSwain | CAD Panacea |

  5. #5
    I could stop if I wanted to aaronic_abacus's Avatar
    Join Date
    2006-04
    Posts
    398
    Login to Give a bone
    0

    Default Re: This is driving me MAD

    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

    http://www.watsonlisp.com

    Artificial Intelligence for AutoCAD
    Find detail drawings by text and attribute content!
    6000 lines of code and and in development since 1997.

  6. #6
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,163
    Login to Give a bone
    1

    Default Re: This is driving me MAD

    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.
    Tom Beauford P.S.M. - Civil 2019 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  7. #7
    I could stop if I wanted to aaronic_abacus's Avatar
    Join Date
    2006-04
    Posts
    398
    Login to Give a bone
    0

    Default Re: This is driving me MAD

    thank guys!

    I think AutoCAD is protecting it self in more recent versions

    http://www.watsonlisp.com

    Artificial Intelligence for AutoCAD
    Find detail drawings by text and attribute content!
    6000 lines of code and and in development since 1997.

  8. #8
    I could stop if I wanted to aaronic_abacus's Avatar
    Join Date
    2006-04
    Posts
    398
    Login to Give a bone
    0

    Default Re: This is driving me MAD

    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)))

    http://www.watsonlisp.com

    Artificial Intelligence for AutoCAD
    Find detail drawings by text and attribute content!
    6000 lines of code and and in development since 1997.

  9. #9
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,163
    Login to Give a bone
    0

    Default Re: This is driving me MAD

    So the only thing you've tried is modifying the acad<release>.lsp file you're not supposed to modify?
    Tom Beauford P.S.M. - Civil 2019 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  10. #10
    I could stop if I wanted to aaronic_abacus's Avatar
    Join Date
    2006-04
    Posts
    398
    Login to Give a bone
    0

    Default Re: This is driving me MAD

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

    http://www.watsonlisp.com

    Artificial Intelligence for AutoCAD
    Find detail drawings by text and attribute content!
    6000 lines of code and and in development since 1997.

Page 1 of 3 123 LastLast

Similar Threads

  1. Insulation Detail Component Causes Snaps To Go Mad!
    By gdaniels in forum ACA General
    Replies: 3
    Last Post: 2005-11-15, 01:01 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •