home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 13.img / ASE1.LIB / ASE.LSP < prev    next >
Encoding:
Text File  |  1993-02-09  |  3.0 KB  |  127 lines
  1. ;;;----------------------------------------------------------------------------;
  2. ;;;
  3. ;;;   ASE.LSP
  4. ;;;
  5. ;;;   (C) ¬⌐┼v 1991-1992  Autodesk ñ╜Ñq
  6. ;;;
  7. ;;;   Ñ╗╡{ªíñwÑ╤ Autodesk ñ╜Ñq╡∙ÑU¬⌐┼v, ╢╚⌐≤ñU¡z▒í¬pñUÑi▒┬╗P▒zíu│\ÑiívíC
  8. ;;;   ╗╒ñUñú▒oÑHÑ⌠ª≤º╬ªí╡oªµ⌐╬ÑX¬⌐ª╣╡{ªí¬║íu¡∞⌐l╜Xív; ª²ñ╣│\▒zªb»S⌐w¡lÑ═
  9. ;;;   ¬║ñuº@ñW╡▓ªXª╣╡{ªí¬║íuÑ╪¬║╜Xív¿╧Ñ╬íCª│├÷│o├■¡lÑ═ñuº@¬║▒°Ñ≤ªpñU:
  10. ;;;
  11. ;;;   ( i)  │]¡pñW╗Pñuº@ñW¼╥»┬║Θ░w╣∩ Autodesk ñ╜Ñq¬║▓ú½~íC
  12. ;;;   (ii)  ╕ⁿª│íu¬⌐┼v  (C) 1988-1992  Autodesk ñ╜Ñqív¬║¬⌐┼v│qºiíC
  13. ;;;
  14. ;;;
  15. ;;;
  16. ;;;   AUTODESKñ╜Ñq┤ú¿╤ª╣╡{ªí╢╚¿╤º@íu├■ªⁿív¬║░╤ª╥, ª╙ÑBñú▒╞░úª│Ñ⌠ª≤┐∙╗~¬║
  17. ;;;   Ñi»αíCAUTODESKñ╜Ñq»Sª╣º_╗{Ñ⌠ª≤»S⌐wÑ╬│~ñº╛A║┘⌐╩, ÑHñ╬░╙╖~╛P░Γ⌐╥┴⌠ºt
  18. ;;;   ÑX¿π¬║½O├╥íCAUTODESKñ╜ÑqªP«╔ÑτñúÑX¿πª╣╡{ªí░⌡ªµ«╔ñ@⌐wñú╖|íuññ┬_ív⌐╬
  19. ;;;   íuº╣Ñ■╡L╗~ív¬║½O├╥íC
  20. ;;;----------------------------------------------------------------------------;
  21.  
  22. (defun c:aseqview (/ ent)
  23.   (setq saveerr *error*)
  24.   (setq *error* *aseerr*)
  25.   (if (/= nil c:aseinit)
  26.     (progn
  27.       (if (/= nil ase_errno)
  28.         (progn
  29.           (while (= nil (setq ent (car (entsel)))))
  30.           (c:asesetrow ent)
  31.           (if (= 0 ase_errno)
  32.             (c:aseviewrow)
  33.           )
  34.         )
  35.         (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu▒╥⌐lívASE")
  36.       )
  37.     )
  38.     (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu╕ⁿñJívASE")
  39.   )
  40.   (setq *error* saveerr)
  41.   (setq saveerr nil)
  42.   (princ)
  43. )
  44.  
  45. (defun c:aseqedit (/ ent)
  46.   (setq saveerr *error*)
  47.   (setq *error* *aseerr*)
  48.   (if (/= nil c:aseinit)
  49.     (progn
  50.       (if (/= nil ase_errno)
  51.         (progn
  52.           (while (= nil (setq ent (car (entsel)))))
  53.           (c:asesetrow ent)
  54.           (if (= 0 ase_errno)
  55.             (c:aseeditrow)
  56.           )
  57.         )
  58.         (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu▒╥⌐lívASE")
  59.       )
  60.     )
  61.     (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu╕ⁿñJívASE")
  62.   )
  63.   (setq *error* saveerr)
  64.   (setq saveerr nil)
  65.   (princ)
  66. )
  67.  
  68. (defun c:aseqlink ()
  69.   (setq saveerr *error*)
  70.   (setq *error* *aseerr*)
  71.   (if (/= nil c:aseinit)
  72.     (progn
  73.       (if (/= nil ase_errno)
  74.         (progn
  75.           (c:asesetrow)
  76.           (if (= 0 ase_errno)
  77.             (c:asemakelink)
  78.           )
  79.         )
  80.         (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu▒╥⌐lívASE")
  81.       )
  82.     )
  83.     (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu╕ⁿñJívASE")
  84.   )
  85.   (setq *error* saveerr)
  86.   (setq saveerr nil)
  87.   (princ)
  88. )
  89.  
  90. (defun c:aseqmakeda (/ ent)
  91.   (setq saveerr *error*)
  92.   (setq *error* *aseerr*)
  93.   (if (/= nil c:aseinit)
  94.     (progn
  95.       (if (/= nil ase_errno)
  96.         (progn
  97.           (while (= nil (setq ent (car (entsel)))))
  98.           (c:asesetrow ent)
  99.           (if (= 0 ase_errno)
  100.             (c:asemakeda)
  101.           )
  102.         )
  103.         (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu▒╥⌐lívASE")
  104.       )
  105.     )
  106.     (alert "¿╧Ñ╬ª╣½ⁿÑO╢╖íu╕ⁿñJívASE")
  107.   )
  108.   (setq *error* saveerr)
  109.   (setq saveerr nil)
  110.   (princ)
  111. )
  112.  
  113. (defun *aseerr* (msg)
  114.   (if (/= msg "Function cancelled")
  115.     (if (= msg "quit / exit abort")
  116.       (princ)
  117.       (princ (strcat "\n┐∙╗~: " msg))
  118.     )
  119.     (princ)
  120.   )
  121.   (setq *error* saveerr)
  122.   (setq saveerr nil)
  123.   (princ)
  124. )
  125.  
  126. (princ)
  127.