home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / TXTHGT.LSP < prev    next >
Text File  |  1989-09-10  |  4KB  |  80 lines
  1. ; TXTHGT.LSP
  2. ; 4/15/87
  3. ; Tony Tanzillo, A/E Automation Systems
  4. ;
  5. ; The information contained herein is being donated to the public domain
  6. ; soley for the benefit of licensed AutoCAD END USERS everywhere.  You are
  7. ; free to modify, or reproduce and distribute only in the un-altered
  8. ; original form, the information contained herein for ANY NON-COMMERCIAL
  9. ; use, provided such reproduction/disribution is NOT FOR PROFIT, and
  10. ; provided that with any such distribution, this NOTICE (or any portion
  11. ; thereof) is NOT REMOVED OR ALTERED from it's original content in ANY
  12. ; manner, shape, or form.
  13. ;
  14. ; You ARE NOT free to reproduce and/or distribute the information
  15. ; contained herein (regardless of medium or form of reproduction) for
  16. ; profit, or to include it or any portion thereof, as a part of any
  17. ; commercially marketed goods regardless of thier intended nature, scope,
  18. ; or form, without the expressed written permission of the author.
  19. ;
  20. ; If you seek such permission, it will be granted provided you furnish the
  21. ; author with ONE (1) fully-functional, licenseable sample of the finished
  22. ; product(s) in final marketed form.  In return for which you may solict
  23. ; and will recieve the objective opinions, advice and insight regarding
  24. ; any and all aspects of said product(s), free of charge, with appropriate
  25. ; and complete written assurance of non-disclosure.
  26. ;
  27. ; Additional information can be obtained
  28. ; by writing to:
  29. ;                 Anthony F. Tanzillo,
  30. ;                 32 Gould Ave.
  31. ;                 Paterson, N. J. 07503
  32. ;
  33. ; Or, via electronic medium thru;
  34. ;
  35. ;                 Compuserve ID: 70307,2556
  36. ;
  37. ; This is a user defined command that will scan the entire drawing
  38. ; database and change all text with the specified style to the
  39. ; specified height resulting in uniform height for all text entities
  40. ;
  41. ; REQUIRES THE FOLLOWING FUNCTIONS FROM TEXTED.LSP;
  42. ;
  43. ;   PFETCH
  44. ;   GLOBAL
  45. ;
  46. ; Tony Tanzillo, 70307,2556
  47.  
  48.  
  49.  
  50. (defun C:TEXTHGT( / ent sty hgt)
  51.   (cond
  52.     ((and
  53.        (not
  54.          (eq "" (setq sty (strcase (getstring "\nText style to change: ")))))
  55.        (setq hgt (getdist (strcat "\nNew height for style " sty ": "))))
  56.  
  57.      (global t 'ent
  58.        '(cond ((equal (pfetch ent '(0 7)) (list "TEXT" STY))
  59.            (entput ent 40 hgt))))))
  60.   (prin1))
  61.  
  62. (defun global (count smb expr / i)
  63.   (set smb (entnext))
  64.   (setq i (cond (count 0)))
  65.   (prompt "\nProcessing drawing database... \n")
  66.   (while
  67.     (progn
  68.       (if i (prompt (strcat "\rEntity " (itoa (setq i (1+ i))))))
  69.       (eval expr)
  70.       (set smb (entnext (eval smb))))))
  71.  
  72. (defun pfetch(e p / pr)
  73.   (setq pr (entget (cond ((atom e) e) ((car e)))))
  74.   (cond ((atom p) (cdr (assoc p pr)))
  75.         ((mapcar '(lambda(x) (cdr (assoc x pr)))p))))
  76.  
  77.  
  78. \╣╬ï~4SHUTTL  ARC bb'mNB│SIGHT   LSP jº&∙R]SIGNIT  ZIP k│·RΣSIZE    LSP nä&√Rí
  79. SKETCH  ARC /a'äNSKIP    ZIP ôk│²R╧SL      ZIP æJ'çNÇLSLASH   SHX ▌b'æNÇ
  80. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk