home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / BOXIT.LSP < prev    next >
Text File  |  1988-05-12  |  1KB  |  33 lines
  1.  
  2. ;    DRAW A BOX AROUND A LETTER
  3.  
  4. (defun C:BTEXT (/ cntr ltr above below right left)
  5.     (setq cntr (getpoint "\nCLICK A POINT AT THE CENTER"))
  6.     (setq ltr (getstring "\nENTER ONE LETTER TO USE "))
  7.     (setq above (+ (cadr cntr) (* 0.75 (getvar "TEXTSIZE"))))
  8.     (setq below (- (cadr cntr) (* 0.75 (getvar "TEXTSIZE"))))
  9.     (setq right (+ (car cntr) (* 0.75 (getvar "TEXTSIZE"))))
  10.     (setq left (- (car cntr) (* 0.75 (getvar "TEXTSIZE"))))
  11.     (command "LINE" (list left below)
  12.              (list right below)
  13.              (list right above)
  14.              (list left above)
  15.              "C"
  16.     )
  17.     (command "TEXT" "M" cntr (getvar "TEXTSIZE") "0" ltr
  18.     )
  19. )
  20.  
  21. ;    DRAW A CIRCLE AROUND A LETTER
  22.  
  23. (defun C:CTEXT (/ cntr above)
  24.     (setq cntr (getpoint "\nCLICK A POINT AT THE CENTER"))
  25.     (setq ltr (getstring "\nENTER ONE LETTER TO USE "))
  26.     (setq above (+ (cadr cntr) (* 0.75 (getvar "TEXTSIZE"))))
  27.     (command "CIRCLE" cntr (list (car cntr) above)
  28.     )
  29.     (command "TEXT" "M" cntr (getvar "TEXTSIZE") "0" ltr
  30.     )
  31. )
  32. ;
  33.