home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 9.img / AVE_XMPL.LSP < prev    next >
Encoding:
Text File  |  1993-02-09  |  5.5 KB  |  139 lines
  1. ;*****************************************************************************
  2. ;*
  3. ;*  ave_xmpl.lsp
  4. ;*  ¬⌐┼v (C) 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. ;*  Sample AutoLISP (API) routines for R12 Render.
  19. ;*  LTK - 1/92
  20. ;*****************************************************************************
  21.  
  22. ;-----------------------------------------------------------------------------
  23. ;  Make sure we're loaded...
  24. ;-----------------------------------------------------------------------------
  25. (if (/= (type C:RENDER) 'EXSUBR) (xload "averendr"))
  26. ;-----------------------------------------------------------------------------
  27. (defun DTR (a1) (* pi (/ a1 180.0)))
  28. (defun RTD (a1) (* 180.0 (/ a1 pi)))
  29. ;-----------------------------------------------------------------------------
  30. ;  Command-Line REPLAY
  31. ;-----------------------------------------------------------------------------
  32. (defun C:CLREPLAY (/ prompt_str str1 temp_str)
  33.  
  34. (setq replay_ext  (cond (replay_ext) (T "tga"))
  35.       prompt_str  (strcat "\níu╣╧╣│ív¡½┼π¬║├■ºO "
  36.                      (cdr (assoc replay_ext (list
  37.                         (cons "tga" "TIf/Gif/Rnd/<TGa>: ")
  38.                         (cons "tif" "TGa/Gif/Rnd/<TIf>: ")
  39.                         (cons "gif" "TGa/TIf/Rnd/<Gif>: ")
  40.                         (cons "rnd" "TGa/TIf/Gif/<Rnd>: "))))))
  41. (initget "TGa TIff Gif Rnd")
  42. (if (setq str1 (getkword prompt_str))
  43.    (setq replay_ext (substr (strcase str1 T) 1 3)))
  44.  
  45. (if (not replay_name) (initget 1))
  46. (setq temp_str    (getstring (strcat "\n╣w│╞¡½┼π¬║íu╣╧╣│ívªW║┘ <"
  47.                      (cond (replay_name) (""))  ">: "))
  48.       replay_name (if (/= temp_str "") temp_str replay_name))
  49. (c:replay replay_name replay_ext))
  50.  
  51. ;-----------------------------------------------------------------------------
  52. ;  Show light names and intensities
  53. ;-----------------------------------------------------------------------------
  54. (defun C:SHOWINTN (/ str1 str2 list1)
  55.  
  56. (foreach str1 (C:LIGHT "L")
  57.    (setq list1 (C:LIGHT "L" str1))
  58.    (princ (strcat "\nÑ·╖╜: "       (substr (strcat str1 "       ") 1 8)
  59.                   "  ├■ºO: "        (car list1)
  60.                   "  ▒j½╫: "))
  61.    (princ (caddr list1)))
  62. (princ))
  63.  
  64. ;-----------------------------------------------------------------------------
  65. ;  Convert all Pointlights to have an intensity of 0.5
  66. ;-----------------------------------------------------------------------------
  67. (defun C:POINT_5 (/ str1 list1)
  68.  
  69. (foreach str1 (C:LIGHT "L")
  70.    (setq list1 (C:LIGHT "L" str1))
  71.    (if (eq (car list1) "P")
  72.       (eval (list 'C:LIGHT "M" (cadr list1) 0.5))))
  73. (princ))
  74.  
  75. ;-----------------------------------------------------------------------------
  76. ;  Convert all Spotlight to have an intensity equal to the distance between
  77. ;  its location and target point (inverse linear falloff).
  78. ;-----------------------------------------------------------------------------
  79. (defun C:SPOT_LINEAR (/ str1 list1 real1)
  80.  
  81. (foreach str1 (C:LIGHT "L")
  82.    (setq list1 (C:LIGHT "L" str1))
  83.    (if (eq (car list1) "S")
  84.       (progn
  85.          (setq pt1   (nth 3 list1)
  86.                pt2   (nth 4 list1)
  87.                real1 (distance pt1 pt2))
  88.          (grvecs (list 256 pt1 pt2))
  89.          (eval (list 'C:LIGHT "M" (cadr list1) real1))
  90.          (grvecs (list 256 pt1 pt2)))))
  91. (princ))
  92.  
  93. ;-----------------------------------------------------------------------------
  94. ;  Spin a distantlight around '(0 0 0).  A routine like this could be used
  95. ;  to animate lights in R12 Render.
  96. ;-----------------------------------------------------------------------------
  97. (defun C:CIRCULAR_DISTANT (/ str1 list1)
  98.  
  99. (setq name     "SPIN_ME"
  100.       start    '(10.0 0.0 0.0)
  101.       center   '(0 0 0)
  102.       ang1     0.0
  103.       frames   32.0
  104.       delta    (/ 360.0 frames)
  105.       delta_r  (DTR delta))
  106. (command "_.ZOOM" "_C" center 22.0)
  107. (C:LIGHT "ND" name 1.0 start center)
  108. (setq light (entlast))
  109. (repeat 32
  110.  
  111.    ;  Here's where a rendering to file would happen.
  112.    ;  (C:RENDER)
  113.  
  114.    (setq start (polar center (setq ang1 (+ ang1 delta_r)) 10.0))
  115.    (grvecs (list 256 start center))
  116.    (command "_.ROTATE" light "" '(0 0 0) delta)
  117.    (grvecs (list 256 start center))))
  118.  
  119. ;-----------------------------------------------------------------------------
  120. ;  Attach an existing finish to the ACI of a selected entity.
  121. ;-----------------------------------------------------------------------------
  122. (defun C:ENTACI (/ list1 str1 int1)
  123.  
  124. (while (not (member  (setq str1 (strcase (getstring "\n╝φ╣óªW║┘: ")))
  125.                      (C:FINISH "L")))
  126.    (princ (strcat "ºΣñú¿∞íu" str1 "ív╝φ╣óíC")))
  127. (while (null (setq list1 (nentsel "\n┐∩╛▄╣╧ñ╕: ")))
  128.    (prompt "Ñ╝┐∩¿∞¬½┼ΘíC"))
  129. (setq list1 (entget (car list1))
  130.       int1  (cond
  131.                ((cdr (assoc 62 list1)))
  132.                ((cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 list1))))))))
  133. (if (C:FINISH "A" str1 int1)
  134.    (princ (strcat "╝φ╣óíu" str1 "ív│s╡▓ª▄ ACI-" (itoa int1) "íC")))
  135. (princ))
  136.  
  137. ;-----------------------------------------------------------------------------
  138. (princ)
  139.