madcadder
2007-03-14, 06:12 PM
I have the following code as my acad.lsp.
;;; Begin OpenX.dvb support in Acad.lsp
(VL-LOAD-COM)
(VLA-LOADDVB (VLAX-GET-ACAD-OBJECT)(FINDFILE "OpenX.dvb")) ;_ end of vla-LoadDVB
(DEFUN-Q openx
()
(COMMAND "._VBAStmt" "ThisDrawing.OpenX")
) ;_ end of defun-q
;;; End OpenX.dvb support in Acad.lsp
;;; Begin PlayWavs.dvb support in Acad.lsp
(VLA-LOADDVB
(VLAX-GET-ACAD-OBJECT)
(FINDFILE "PlayWavs.dvb")
) ;_ end of vla-LoadDVB
;;; End PlayWavs.dvb support in Acad.lsp
;;; Begin Snapshot.dvb support in Acad.lsp
(VLA-LOADDVB
(VLAX-GET-ACAD-OBJECT)
(FINDFILE "Snapshot.dvb")
) ;_ end of vla-LoadDVB
(DEFUN-Q i:readsnapshot
()
(COND ((= (GETVAR "DwgTitled") 0)
(COMMAND "._VBAStmt" "ThisDrawing.ReadSnapshot")
)
) ;_ end of cond
) ;_ end of defun-q
(SETQ s::startup (APPEND s::startup i:readsnapshot))
;;; End Snapshot support in Acad.lsp
It loads every time in adt07 with no errors.
I just installed an extra copy of A2k7 on the same machine. ADT was not removed.
I have managed to mirror the two except for the loading of the acad.lsp
In A2k7 it does not load; no error message, just doesn't load.
If I APPLOAD it then I get the following error:
Command: ap
APPLOAD acad.lsp successfully loaded.
Command: ; error: ActiveX Server returned an error: Parameter not optional
Command:
;;; Begin OpenX.dvb support in Acad.lsp
(VL-LOAD-COM)
(VLA-LOADDVB (VLAX-GET-ACAD-OBJECT)(FINDFILE "OpenX.dvb")) ;_ end of vla-LoadDVB
(DEFUN-Q openx
()
(COMMAND "._VBAStmt" "ThisDrawing.OpenX")
) ;_ end of defun-q
;;; End OpenX.dvb support in Acad.lsp
;;; Begin PlayWavs.dvb support in Acad.lsp
(VLA-LOADDVB
(VLAX-GET-ACAD-OBJECT)
(FINDFILE "PlayWavs.dvb")
) ;_ end of vla-LoadDVB
;;; End PlayWavs.dvb support in Acad.lsp
;;; Begin Snapshot.dvb support in Acad.lsp
(VLA-LOADDVB
(VLAX-GET-ACAD-OBJECT)
(FINDFILE "Snapshot.dvb")
) ;_ end of vla-LoadDVB
(DEFUN-Q i:readsnapshot
()
(COND ((= (GETVAR "DwgTitled") 0)
(COMMAND "._VBAStmt" "ThisDrawing.ReadSnapshot")
)
) ;_ end of cond
) ;_ end of defun-q
(SETQ s::startup (APPEND s::startup i:readsnapshot))
;;; End Snapshot support in Acad.lsp
It loads every time in adt07 with no errors.
I just installed an extra copy of A2k7 on the same machine. ADT was not removed.
I have managed to mirror the two except for the loading of the acad.lsp
In A2k7 it does not load; no error message, just doesn't load.
If I APPLOAD it then I get the following error:
Command: ap
APPLOAD acad.lsp successfully loaded.
Command: ; error: ActiveX Server returned an error: Parameter not optional
Command: