Acad.lsp/acaddoc.lsp fail to load when using command new/open

newer

问题：
Why don't acad.lsp and acaddoc.lsp not load in AutoCAD 2000 when a new document
is started using (command "NEW" ..) and (command "OPEN" ...)?

This is a known problem in AutoCAD 2000 and occurs when these conditions exist:

ACADLSPASDOC is set to 1
LISPINIT is set to 1
SDI is set to 1

To replicate how AutoCAD R14 behaves when SDI is set to 1 (the Single Document
Interface is set to be active) in AutoCAD 2000, the following variables need to
be set as shown:

ACADLSPASDOC is set to 0
DBMOD is set to a value greater than 0

If the present drawing has never been modified (for example, when DBMOD is set
to 0), AutoCAD 2000 will not load and initialize user LSP files. The solution in
this case is to temporarily set LISPINIT to 0. That leaves the current
ACADDOC.LSP and MNL code to load in a New or Opened drawing.

Because ACADLSPASDOC is set to 0, you'll need use only the Acaddoc.lsp for your
autoloaded user files, and not the acad.lsp file, in order to implement this


解答：
The following code shows a combination of the following VBA code (saved into
file "MyNewOpen.dvb"):

1. Public Sub My_Ac_New()
   
2. 
   
3. Dim objacad As AcadApplication
   
4. Set objacad = ThisDrawing.Application
   
5. Dim theSDIVar As Integer
   
6. theSDIVar = objacad.ActiveDocument.GetVariable("SDI")
   
7. 
   
8. If theSDIVar = 0 Then
   
9. ' If SDI = 0
   
10.   objacad.Documents.Add ("acad")
    
11. Else
    
12. ' If SDI = 1
    
13.   objacad.ActiveDocument.New ("acad")
    
14. End If
    
15. 
    
16. End Sub
    
17. 
    
18. Public Sub My_Ac_Open()
    
19. 
    
20. Dim objacad As AcadApplication
    
21. Set objacad = ThisDrawing.Application
    
22. Dim theSDIVar As Integer
    
23. theSDIVar = objacad.ActiveDocument.GetVariable("SDI")
    
24. Dim dwgNameVar As String
    
25. dwgNameVar = objacad.ActiveDocument.GetVariable("USERS1")
    
26. 
    
27. If theSDIVar = 0 Then
    
28. ' If SDI = 0
    
29.   objacad.Documents.Open dwgNameVar, False
    
30. Else
    
31. ' If SDI = 1
    
32.   objacad.ActiveDocument.Open dwgNameVar
    
33. End If
    
34. 
    
35. End Sub
    

Public Sub My_Ac_New()<br /> <br /> Dim objacad As AcadApplication<br /> Set objacad = ThisDrawing.Application<br /> Dim theSDIVar As Integer<br /> theSDIVar = objacad.ActiveDocument.GetVariable("SDI")<br /> <br /> If theSDIVar = 0 Then<br /> ' If SDI = 0<br />   objacad.Documents.Add ("acad")<br /> Else<br /> ' If SDI = 1<br />   objacad.ActiveDocument.New ("acad")<br /> End If<br /> <br /> End Sub<br /> <br /> Public Sub My_Ac_Open()<br /> <br /> Dim objacad As AcadApplication<br /> Set objacad = ThisDrawing.Application<br /> Dim theSDIVar As Integer<br /> theSDIVar = objacad.ActiveDocument.GetVariable("SDI")<br /> Dim dwgNameVar As String<br /> dwgNameVar = objacad.ActiveDocument.GetVariable("USERS1")<br /> <br /> If theSDIVar = 0 Then<br /> ' If SDI = 0<br />   objacad.Documents.Open dwgNameVar, False<br /> Else<br /> ' If SDI = 1<br />   objacad.ActiveDocument.Open dwgNameVar<br /> End If<br /> <br /> End Sub<br />

and the following lisp code:

1. (defun RunNewOpen ()
   
2.   (vl-load-com)
   
3. ;;; Set LISPINIT OFF when in an Unmodified New drawing and LISPINIT = 1
   
4. (if (= (getvar "DBMOD") 0) (setvar "LISPINIT" 0) (setvar "LISPINIT" 1) )
   
5. (initget 1 "New Open")
   
6. (setq option (getkword "\nStart a New Drawing or Open an Existing one <N/O>: ?
   
7. "))
   
8. (if (equal option "New")
   
9.       (NewOpenWorkarround option)
   
10.       (progn
    
11.              (setq aDWGfile (getfiled "Open a Drawing File" "" "DWG" 0))
    
12.              (if aDWGfile
    
13.                   (progn
    
14.                         (setvar "USERS1" aDWGfile)
    
15.                         (NewOpenWorkarround option)
    
16.                   )
    
17.              )
    
18.       )
    
19. )
    
20. )
    
21. 
    
22. (defun NewOpenWorkarround (tog)
    
23. (if (findfile "MyNewOpen.dvb")
    
24.       (progn
    
25.             (vl-vbaload "MyNewOpen.dvb")
    
26.             (if (equal tog "New")
    
27.                  (vl-vbarun "My_Ac_New")
    
28.                  (if (equal tog "Open")
    
29.                           (vl-vbarun "My_Ac_Open")
    
30.                           (princ "\nNeither NEW or OPEN was specified.")
    
31.                  )
    
32.             )
    
33.       )
    
34. )
    
35. (princ)
    
36. )
    

(defun RunNewOpen ()<br />   (vl-load-com)<br /> ;;; Set LISPINIT OFF when in an Unmodified New drawing and LISPINIT = 1<br /> (if (= (getvar "DBMOD") 0) (setvar "LISPINIT" 0) (setvar "LISPINIT" 1) )<br /> (initget 1 "New Open")<br /> (setq option (getkword "\nStart a New Drawing or Open an Existing one <N/O>: ?<br /> "))<br /> (if (equal option "New")<br />       (NewOpenWorkarround option)<br />       (progn<br />              (setq aDWGfile (getfiled "Open a Drawing File" "" "DWG" 0))<br />              (if aDWGfile<br />                   (progn<br />                         (setvar "USERS1" aDWGfile)<br />                         (NewOpenWorkarround option)<br />                   )<br />              )<br />       )<br /> )<br /> )<br /> <br /> (defun NewOpenWorkarround (tog)<br /> (if (findfile "MyNewOpen.dvb")<br />       (progn<br />             (vl-vbaload "MyNewOpen.dvb")<br />             (if (equal tog "New")<br />                  (vl-vbarun "My_Ac_New")<br />                  (if (equal tog "Open")<br />                           (vl-vbarun "My_Ac_Open")<br />                           (princ "\nNeither NEW or OPEN was specified.")<br />                  )<br />             )<br />       )<br /> )<br /> (princ)<br /> )<br />

Whenever the function (RunNewOpen) is run from your current document, the user
acaddoc.LSP amd MNL files should either load into the document as it previously
did, or still be available because LISPINT was set temporarily to 0.

For another approach to this problem using script files, see DevNote #45180.