Hello!
I am facing an advanced AutoLISP problem that I am hoping my friends here at The Swamp may be able to help me work through.
The firm that I work at has both civil engineers and landscape architects who both use Civil 3D and for all intents and purposes operate the same. The only difference is the Civil Engineers have a pipe network that needs to be copied to their local machine and a network that needs to be mapped.
Currently, I have independent LISP files for these tasks, but have found that it is sometimes too much to ask for people to follow 3-5 steps when they have to navigate to a folder, run a .CMD file and then execute a LISP. So, for this reason, I am wondering how to consolidate a handful of shell commands into my LISP for support file search path configuration. Each line of .SHELL would ideally have its own command name (i.e. UPDATECV, UPDATELA, etc.) so that depending on the user discipline they can type 1 command that will perform the robocopy update as well as ensure support file paths are mapped correctly.
Like I mentioned, I already have the code independent of one another, I struggle with understanding how this could be combined. Here is a snipit of malformed attempt to assign each function as its own variable:
(defun c:updateCAD
( updatela updatecv spconfig cvpipenetwork
) ;;DEPENDING ON COMMAND CALLED, EXECUTE DISCIPLINE UPDATE PLUS SPCONFIG. IF CIVIL PLUS CVPIPENETWORK
;;Program Parameters;;
updatela ;;RUNS LD_LANDSCAPE.CMD ROBOCOPY IN BACKGROUND TO UPDATE LANDSCAPE FILES
(command "_.shell" "\"Z:\\LD_CONFIG\\LD_FileSync\\LD_LANDSCAPE.cmd\"") )
updatecv ;;RUNS LD_CIVIL.CMD ROBOCOPY IN BACKGROUND TO UPDATE CIVIL FILES
(command "_.shell" "\"Z:\\LD_CONFIG\\LD_FileSync\\LD_CIVIL.cmd\"") )
cvpipenetwork ;;CONFIGURES CIVIL PIPE NETWORK CATALOG LOCATION
(defun c:cvpipenetwork
() ;;INSERT LISP CODE FOR SUPPORT FILE SEARCH PATH HERE )
spconfig ;;CONFIGURES SUPPORT FILE PATH SETUPS
(defun c:SPCONFIG
() ;;INSERT LISP CODE FOR SUPPORT FILE SEARCH PATH HERE )
)
