;;;--------------------------------------------------------------------;
(defun c:AcadLsp
(/ *error*)
(and oldCmdecho
(setvar 'cmdecho oldCmdecho
)) ((member msg '
("Function cancelled" "quit / exit abort"))) ; <esc> or (quit) ((princ (strcat "\n** Error: " msg
" ** "))) ; Fatal error, display it )
)
(user oldCmdecho arxList arxFiles netFiles / oFiles acadLoc)
;; Load arx utilities
(acad-push-dbmod)
)
)
)
(acad-pop-dbmod)
;; Load net utilities
)
)
)
;; Profile information
)
)
(strcat "HKEY_LOCAL_MACHINE\\" (if vlax
-user
-product
-key
; If 2013 (vlax-user-product-key) ; Use 2013 function
)
)
"ACADLOCATION"
)
)
oFiles
";"
;; <- Your custom paths
(strcat acadloc
"\\support\\color") "C:\\programdata\\autodesk\\<SomeApp>\\enu\\data\\symbols\\mvblocks"
"C:\\program files\\autodesk\\raster design 20XX oe"
"C:\\program files\\common files\\autodesk shared"
"C:\\program files\\adsk_raster_design_20XX"
"C:\\program files\\adsk_raster_design_20XX\\help"
"C:\\users\\"
user
"\\appdata\\roaming\\autodesk\\ard20XX\\r1X.X\\enu\\support"
)
)
)
)
)
)
(*error* nil)
)
'( ; arxFiles
"SomeFolder\\SomeArxName.arx"
;; <- others
)
'( ; netFiles
"SomeFolder\\SomeAssemblyName.dll"
;; <- others
)
)
)
;;;--------------------------------------------------------------------;
(c:AcadLsp)
(prompt "\n... Acad.lsp loaded. ")