(princ "\n** Script is working normally ** ")
Loading AEC Base...
Loading AEC Base Extended...
Loading AEC Base UI...
Loading AEC Project Base...
Loading AEC Base GUI...
Loading AEC Schedule Data...
Loading AEC Project UI...
Loading AEC Utilities...
Customization file loaded successfully. Customization Group: BA_CUSTOM
Customization file loaded successfully. Customization Group: CIVIL
Customization file loaded successfully. Customization Group: ACAD
Customization file loaded successfully. Customization Group: TOOLBASEDRIBBON
Customization file loaded successfully. Customization Group: TASKBASEDRIBBON
Customization file loaded successfully. Customization Group: EXPRESS
Loading AECC Base...
Initializing....
There are no valid MS Jet providers installed......Done.
Loading AECC Land...
Loading AECC Subentity Selection...
Loading Modeler DLLs.
Loading AECC Pipe Part...
Loading AECC QTO......
Loading AECC Pipe Network...
Loading AECC Roadway...
Loading AECC Survey...
Loading AEC Schedule...
Loading AECC Plan Production...
Loading AECC Building Site...
Loading AECC Point Cloud...
Regenerating model.
*Cancel*
Loading AECC Hydrology...
Loading AECC Base UI...
Loading AECC Event Viewer...
Loading AECC Land UI...
Loading AECC QTO UI...
Loading AECC Pipe Network UI...
Loading AECC Roadway UI...
Loading AECC Survey UI...
Loading AECC Plan Production UI...
Loading AECC Publish UI...
Loading AECC AeccUiHydrology...
Loading AECC Mapcheck...
Loading AECC Mapcheck UI...
Loading AECC Building Site UI...
Loading AECC Point Cloud UI...
Loading AECC Management UI...
Loading AECC Model UI...
Customization file loaded successfully. Customization Group: BA_CUSTOM
Customization file loaded successfully. Customization Group: CIVIL
Customization file loaded successfully. Customization Group: ACAD
Customization file loaded successfully. Customization Group: TOOLBASEDRIBBON
Customization file loaded successfully. Customization Group: TASKBASEDRIBBON
Customization file loaded successfully. Customization Group: EXPRESS
Loading AECC Land Manager Items...
Loading AECC Pipe Network Manager Items...
Loading AECC Roadway Manager Items...
Loading AECC Survey Manager Items...
Loading AECC Plan Production Manager Items...
Loading AECC Building Site Manager Items...
Loading AECC Point Cloud Manager Items...
_.filedia
1
_.pickfirst
1
_.proxynotice
0
_.proxyshow
1
_.backgroundplot
0
_.attdia
1
_.attreq
1
AutoCAD menu utilities loaded.
AutoCAD menu utilities loaded.._purge
r
*
_n
-scalelistedit
_r
_y
_e
._AeccConvertVBARulesToDotNet
_y
_.script
C:\Users\dwahl\AppData\Roaming\Autodesk\C3D 2011\enu\SUPPORT\TESTSCRIPT.scr
AutoCAD menu utilities loaded.*Cancel*
Command: _RIBBON
Command: COMMANDLINE
Command: TOOLPALETTES
Command: Toolspace
Command:
Regenerating model.
AutoCAD menu utilities loaded.
AutoCAD menu utilities loaded.._purge r * _n -scalelistedit _r _y _e
._AeccConvertVBARulesToDotNet _y _.script
C:\Users\dwahl\AppData\Roaming\Autodesk\C3D 2011\enu\SUPPORT\TESTSCRIPT.scr
(autoload "LaunchGrading.lsp" '("LaunchGrading")) ;;load lisp for toolpalette
(autoload "LaunchUtility.lsp" '("LaunchUtility")) ;;load lisp for toolpalette
(autoload "LaunchDS.lsp" '("LaunchDS")) ;;load lisp for toolpalette
(load "disablenavcube.lsp" "disablenavcube FAILED to load") ;;loads lisp to disable viewcube in 2D display styles
(setvar "layereval" 0) ;;turns off evaluation for unreconciled layers
(setvar "proxygraphics" 1) ;;saves proxy image with drawing
(defun-q BAstartupLD ( / scrloc scrloc1 err)
(vl-load-com)
(setq err (vl-catch-all-apply
'(lambda ()
(command "._purge" "r" "*" "_n") ;;purge regapps
(command "-scalelistedit" "_r" "_y" "_e");;reset scale list
(command "._AeccConvertVBARulesToDotNet" "_y") ;;converts VBA pipe networks and structures to .NET
(c:disablenavcube) ;;runs lisp to disable viewcube in 2D display styles
(setq scrloc (strcat (getvar "ROAMABLEROOTPREFIX") "SUPPORT\\")) ;;defines scrloc variable for use in next line
(if (setq scrloc1 (findfile (strcat scrloc "TESTSCRIPT.scr")))(command "_.script" (strcat scrloc "TESTSCRIPT.scr"))) ;;if found, will run user startup script
)))
(if (vl-catch-all-error-p err) ; yes, error
(princ (strcat "\n" (vl-catch-all-error-message err)))
)
(princ)
)
(setq S::STARTUP (append S::STARTUP BAstartupLD))
I did open VLIDe and opened my acaddoc while opening a new file in AutoCAD, and I was presented with the following Question:
assignment to protected symbol: C:AI_MOLC Enter break loop?
(defun S::STARTUP ()
(command "._circle" "_non" "0,0,0" "10")
(princ)
)
Regenerating model.
AutoCAD menu utilities loaded.._circle _non 0,0,0 10
circle
0,0,0
10
Regenerating model.
AutoCAD menu utilities loaded.._purge r * _n
Regapps Purged
-scalelistedit _r _y _e
Scale List Reset
._AeccConvertVBARulesToDotNet _y
Converted applicable VBA piep networks and structures to .NET
Disabled viewcube in 2D display styles
._script C:\Users\dwahl\AppData\Roaming\Autodesk\C3D
2011\enu\Support\Startup.scr
Startup script finished