home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 9.img / RMAN_DCL.LSP < prev    next >
Encoding:
Text File  |  1992-12-07  |  2.9 KB  |  75 lines
  1. ;*****************************************************************************
  2. ;*
  3. ;*  rman_dcl.lsp
  4. ;*  ¬⌐┼v (C) 1991-1992  Autodesk ñ╜Ñq
  5. ;*
  6. ;*  Ñ╗│n┼ΘºK╢O¿╤▒z╢iªµÑ⌠ª≤Ñ╬│~╗▌¿D¬║½■¿⌐íB¡╫º∩ñ╬╡oªµ, ª²¼O░╚╜╨┐φ┤`ñU¡z
  7. ;*  ¡∞½h :
  8. ;*
  9. ;*  1)  ñWªC¬║¬⌐┼v│qºi░╚╗▌ÑX▓{ªb¿Cñ@Ñ≈½■¿⌐∙╪íC
  10. ;*  2)  ¼█├÷¬║╗í⌐·ñσÑ≤ñ]Ñ▓╢╖⌐·╕ⁿ¬⌐┼v│qºiñ╬Ñ╗╢╡│\Ñi│qºiíC
  11. ;*
  12. ;*  Ñ╗│n┼Θ╢╚┤ú¿╤º@¼░└│Ñ╬ñW¬║░╤ª╥, ª╙Ñ╝┴n⌐·⌐╬┴⌠ºtÑ⌠ª≤½O├╥; ╣∩⌐≤Ñ⌠ª≤»S«φ
  13. ;*  Ñ╬│~ñº╛A║┘⌐╩, ÑHñ╬░╙╖~╛P░Γ⌐╥┴⌠ºtÑX¿π¬║½O├╥, ªbª╣ñ@╖ºñ⌐ÑHº_╗{íC
  14. ;*
  15. ;*
  16. ;*****************************************************************************
  17. ;*****************************************************************************
  18. ;*  New PROTEUS UDD code for the RenderMan Icon menu.
  19. ;*  Larry Knott,  12-2-91
  20. ;*****************************************************************************
  21. ;------------------------------------------------------------------------------
  22. (setq rm_dcl (load_dialog "rmmenu.dcl"))
  23. ;------------------------------------------------------------------------------
  24. (defun C:RMMENU ()
  25.  
  26. (if (minusp rm_dcl)
  27.    (setq rm_dcl (load_dialog "rmmenu.dcl")))
  28. (cond
  29.    ((minusp rm_dcl)
  30.       (princ (strcat
  31.             "\nªb│]⌐w¬║íu╖j┤M╕⌠«|Ñ╪┐²ívñUºΣñú¿∞íurmmenu.dclív└╔«╫;"
  32.             "\n╜╨└╦¼d íusupportív└╔«╫¬║½÷╕╦¬¼¬pñº½ßªA└|╕╒íC")))
  33.    ((and (null #GTSPO)
  34.          (null (findfile "rman.lsp")))
  35.       (unload_dialog rm_dcl)
  36.       (setq rm_dcl -1)
  37.       (princ (strcat
  38.     "\nÑ╪½eíu╖j┤MÑ╪┐²ívñ║ºΣñú¿∞íuRman.lspív╡{ªí└╔íC"
  39.     "\n╢╖ª│íuAutodesk RenderManívñºíuAutoShade V2ívñΦñ~ñ╣Ñ╬íuRenderManívíC"
  40.     "\n╜╨░╤ª╥íuAutoShade V2ívñº╛▐º@ñΓÑUññª│├÷íu╡{ªí½÷╕╦ív¬║½ⁿÑ▄íC")))
  41.    ((and (null #GTSPO)
  42.          (not (load "rman.lsp" nil)))
  43.       (princ "\n╕ⁿñJíurman.lspív┐∙╗~íC")
  44.       (setq #GTSPO nil))
  45.    (T (menucmd "S=X")
  46.       (menucmd "S=RMAN")
  47.       (while (> (DRIVE_RMAN_DCL) 1) T)))
  48. (princ))
  49. ;------------------------------------------------------------------------------
  50. (defun DRIVE_RMAN_DCL (/ slides width height item1 key rslt)
  51.  
  52. (new_dialog "rmmenu" rm_dcl)
  53. (setq slides (list   (cons "SETUP" "" )   (cons "PROP"  "")
  54.                      (cons "ATTAC" "H")   (cons "EDIT"  "")
  55.                      (cons "COPY"  "" )   (cons "LIST"  ""))
  56.       width    (1- (dimx_tile "SETUP"))
  57.       height   (1- (dimy_tile "SETUP")))
  58. (foreach item1 slides
  59.    (start_image (setq key (car item1)))
  60.    (slide_image 0 0 width height (strcat "rmmenu(irm" key ")"))
  61.    (end_image)
  62.    (action_tile key "(setq key $key)(done_dialog 2)"))
  63. (action_tile "RMSCAN" "(done_dialog 3)")
  64. (action_tile "DEFAULTS" "(done_dialog 4)")
  65. (setq rslt (start_dialog))
  66. (cond
  67.    ((= rslt 2) (setq key (strcat "RM" key (cdr (assoc key slides))))
  68.                (prompt key)
  69.                (eval (list (read (strcat "C:" key)))))
  70.    ((= rslt 3) (C:RMSCAN))
  71.    ((= rslt 4) (C:DEFAULTS))
  72.    (T          (prin1)))
  73. rslt)
  74. ;------------------------------------------------------------------------------
  75.