home *** CD-ROM | disk | FTP | other *** search
/ AutoCAD Resource Guide / AutoCAD Resource Guide - ESX Interactive.ISO / argdemos / cadshell / cshellxt.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1994-10-18  |  6.1 KB  |  228 lines
  1. ;;;
  2. ;;;+-------------------------------------------------------------------------+
  3. ;;;| CSHELLxt.LSP  (Update to Release 13 10/15/1994)                         |
  4. ;;;|                                                                         |
  5. ;;;|                                                                         |
  6. ;;;|-------------------------------------------------------------------------|
  7. ;;;|     IN ORDER TO RUN CADshell 3.0 INSIDE AutoCAD r12 or r13              |
  8. ;;;|     Add the following line to your Files POP#1 section of ACAD.MNU      |
  9. ;;;|                                                                         |
  10. ;;;|       [CADshell 3.0]c^c^c(LOAD "C:/CSHELL/CSHELLXT");CshellXT;          |
  11. ;;;|                                                                         |
  12. ;;;|-------------------------------------------------------------------------|
  13. ;;;|                                                                         |
  14. ;;;| This program will run the CSHELL.DCL dialog for CADshell 3.0 inside of  |
  15. ;;;| AutoCAD Release 12 or Release 13.                                       |
  16. ;;;+-------------------------------------------------------------------------+
  17. ;;;
  18. ;;;
  19. (DEFUN CHECKOUTDWG ()
  20.   (setq select "CHECKOUTDWG")
  21.   (UNLOAD_DIALOG DCL_ID)
  22.   (TERM_DIALOG)
  23. )
  24.  
  25. (DEFUN NEWDWG ()
  26.   (new_dialog "NEWDWG" dcl_id)
  27.   (setq select "NEWDWG")
  28.   (ACTION_TILE "accept" "(DONE_DIALOG)")
  29.   (START_DIALOG)
  30.   (setq file#1 (get_tile "fedit"))
  31.   (UNLOAD_DIALOG DCL_ID)
  32.   (TERM_DIALOG)
  33. )
  34.  
  35. (DEFUN CHECKINDWG ()
  36.   (setq select "CHECKINDWG")
  37.   (UNLOAD_DIALOG DCL_ID)
  38.   (TERM_DIALOG)
  39. )
  40.  
  41. (DEFUN BACKUPDWG ()
  42.   (setq select "BACKUPDWG")
  43.   (UNLOAD_DIALOG DCL_ID)
  44.   (TERM_DIALOG)
  45. )
  46.  
  47. (DEFUN DELETEFILE ()
  48.   (setq select "DELETEFILE")
  49.   (UNLOAD_DIALOG DCL_ID)
  50.   (TERM_DIALOG)
  51. )
  52.  
  53. (DEFUN DELETEPLT ()
  54.   (setq select "DELETEPLT")
  55.   (UNLOAD_DIALOG DCL_ID)
  56.   (TERM_DIALOG)
  57. )
  58.  
  59. (DEFUN DELETEBAK ()
  60.   (setq select "DELETEBAK")
  61.   (UNLOAD_DIALOG DCL_ID)
  62.   (TERM_DIALOG)
  63. )
  64.  
  65. (DEFUN UNLOCK ()
  66.   (setq select "UNLOCK")
  67.   (UNLOAD_DIALOG DCL_ID)
  68.   (TERM_DIALOG)
  69. )
  70.  
  71. (DEFUN REFDWG ()
  72.   (setq select "REFDWG")
  73.   (UNLOAD_DIALOG DCL_ID)
  74.   (TERM_DIALOG)
  75. )
  76.  
  77. (DEFUN CSHELLCFG ()
  78.   (setq select "CSHELLCFG")
  79.   (UNLOAD_DIALOG DCL_ID)
  80.   (TERM_DIALOG)
  81. )
  82.  
  83. (DEFUN CSHELLdb ()
  84.   (setq select "CSHELLDB")
  85.   (UNLOAD_DIALOG DCL_ID)
  86.   (TERM_DIALOG)
  87. )
  88.  
  89. (DEFUN FILECARD ()
  90.   (setq file#1 (getfiled "Filecard for a Drawing" "S:/TBC/" "DWG" 0))
  91.   (setq select "FILECARD")
  92.   (UNLOAD_DIALOG DCL_ID)
  93.   (TERM_DIALOG)
  94. )
  95.  
  96. (DEFUN COPY ()
  97.   (setq select "COPY")
  98.   (UNLOAD_DIALOG DCL_ID)
  99.   (TERM_DIALOG)
  100. )
  101.  
  102. (DEFUN MOVEFILE ()
  103.   (setq select "MOVEFILE")
  104.   (UNLOAD_DIALOG DCL_ID)
  105.   (TERM_DIALOG)
  106. )
  107.  
  108. (DEFUN PRINTLST ()
  109.   (setq select "PRINTLST")
  110.   (UNLOAD_DIALOG DCL_ID)
  111.   (TERM_DIALOG)
  112. )
  113.  
  114. (DEFUN COMPARE ()
  115.   (setq select "COMPARE")
  116.   (UNLOAD_DIALOG DCL_ID)
  117.   (TERM_DIALOG)
  118. )
  119.  
  120.  
  121. (DEFUN MAILPLOT ()
  122.   (setq select "MAILPLOT")
  123.   (UNLOAD_DIALOG DCL_ID)
  124.   (TERM_DIALOG)
  125. )
  126.  
  127. (DEFUN TEXTEDIT ()
  128.   (setq select "TEXTEDIT")
  129.   (UNLOAD_DIALOG DCL_ID)
  130.   (TERM_DIALOG)
  131. )
  132.  
  133. (DEFUN CSHELLVW ()
  134.   (setq select "CSHELLVW")
  135.   (UNLOAD_DIALOG DCL_ID)
  136.   (TERM_DIALOG)
  137. )
  138.  
  139.  
  140. (DEFUN CSHELL ()
  141.   (IF (NOT (NEW_DIALOG "cshellxt" DCL_ID))    ;;;INITIALIZE THE DIALOGUE
  142.    (EXIT))
  143.  
  144.   (SETQ SELECT "")
  145.  
  146.   (setq select "ACCEPT")
  147.   (setq txtlist (open "c:/cshell/docs/cshellxt.txt" "r"))
  148.   (setq txt "0")
  149.   (WHILE (/= txt nil)
  150.   (setq txt (read-line txtlist))
  151.   (setq txtlin (list txt))
  152.   (start_list "TLIST" 2)
  153.   (if (/= txt nil)
  154.   (mapcar 'add_list txtlin)
  155.   )
  156.   (end_list)
  157.   )
  158.   (close txtlist)
  159.  
  160.   (START_DIALOG)
  161.   (UNLOAD_DIALOG DCL_ID)
  162.   (UNLOAD_DIALOG DCL_ID)
  163.   (TERM_DIALOG)
  164. )
  165.  
  166.  
  167. (DEFUN C:CSHELLXT ( / DCL_ID)
  168.   (SETQ DCL_ID (LOAD_DIALOG "C:/CSHELL/CSHELL.DCL"))    ;;;LOAD THE DCL FILE
  169.   (IF (NOT (NEW_DIALOG "CSHELLUT" DCL_ID))    ;;;INITIALIZE THE DIALOGUE
  170.    (EXIT))
  171.  
  172.   (setq select "")
  173.      
  174.   (ACTION_TILE "accept" "(DONE_DIALOG)")
  175.   (ACTION_TILE "new"  "(NEWDWG)")
  176.   (ACTION_TILE "checkin"  "(CHECKINDWG)")
  177.   (ACTION_TILE "checkout"  "(CHECKOUTDWG)")
  178.   (ACTION_TILE "backup"  "(BACKUPDWG)")
  179.   (ACTION_TILE "delete"  "(DELETEFILE)")
  180.   (ACTION_TILE "deletebak"  "(DELETEBAK)")
  181.   (ACTION_TILE "deleteplt"  "(DELETEPLT)")
  182.   (ACTION_TILE "unlock"  "(UNLOCK)")
  183.   (ACTION_TILE "cshellvw" "(CSHELLVW)");
  184.   (ACTION_TILE "reference"  "(REFDWG)");
  185.   (ACTION_TILE "cshellcfg" "(CSHELLCFG)");
  186.   (ACTION_TILE "filecard"   "(FILECARD)");
  187.   (ACTION_TILE "copy"       "(COPY)");
  188.   (ACTION_TILE "movefile"   "(MOVEFILE)");
  189.   (ACTION_TILE "printlst"   "(PRINTLST)");
  190.   (ACTION_TILE "compare"    "(COMPARE)");
  191.   (ACTION_TILE "mailplot"   "(MAILPLOT)");
  192.   (ACTION_TILE "text"       "(TEXTEDIT)");
  193.   (ACTION_TILE "cshell"     "(CSHELL)");
  194.   (ACTION_TILE "cshelldb"   "(CSHELLDB)");
  195.  
  196.   (START_DIALOG)
  197.  
  198.   (UNLOAD_DIALOG DCL_ID)
  199.   ;;;  GOOD HOUSKEEPING PROCEDURE CLEAR ALL DCL FILES HERE!!!
  200.   (TERM_DIALOG)
  201.   (while (>= DCL_ID 1)
  202.      (UNLOAD_DIALOG DCL_ID)
  203.      (SETQ DCL_ID (- DCL_ID 1))
  204.   )
  205.   ;;;  NOW PARSE OUT FINAL COMMANDS
  206.   (cond    ((= select "TEXTEDIT") (command "ed"))
  207.            ((= select "CHECKOUTDWG") (command "cshell1"))
  208.            ((= select "CHECKINDWG") (command "cshell2"))
  209.            ((= select "REFDWG") (command "cshell3"))
  210.            ((= select "UNLOCK") (command "cshell4"))
  211.            ((= select "COPY") (command "cshell5"))
  212.            ((= select "COMPARE") (command "cshell6"))
  213.            ((= select "MOVEFILE") (command "cshell8"))
  214.            ((= select "BACKUPDWG") (command "cshell9"))
  215.            ((= select "DELETEFILE") (command "cshell10"))
  216.            ((= select "MAILPLOT") (command "cshell11"))
  217.            ((= select "DELETEBAK") (command "cshell12"))
  218.            ((= select "DELETEPLT") (command "cshell13"))
  219.            ((= select "PRINTLST") (command "cshellprt"))
  220.            ((= select "CSHELLVW") (command "cshellvw"))
  221.            ((= select "CSHELLCFG") (command "cshellcfg"))
  222.            ((= select "CSHELLDB") (command "cshelldb"))
  223.            ((= select "OPENDWG") (command "open" file#1 "y" ""))
  224.            ((= select "NEWDWG") (princ  file#1))
  225.            (t nil)
  226.   )
  227. )
  228.