home *** CD-ROM | disk | FTP | other *** search
/ Software One-Stop 3 / BOOTCDROM.iso / install / housea91 / acad / acad.a01 / ACAD / CTEXT.LSP < prev    next >
Encoding:
Text File  |  1991-08-31  |  1.7 KB  |  63 lines
  1. ;  Write Chinese
  2. (Defun *error* (s)
  3.   (princ s)
  4.   (princ)
  5. )
  6. (defun c:ctext( / pt1 pt2 str a pt hh ss ang)
  7. (setvar "CMDECHO" 0)
  8. (setvar "BLIPMODE" 1)
  9. (setq s 0 str "")
  10. (while (= s 0)
  11.   (if (= str "")
  12.   (princ "\nStart point or Align/Center/Fit/Middle/Right/Style: ")
  13.   )
  14.   (setq a (grread))
  15.   (cond ((= 3 (car a))
  16.          (setq s 1 pt (cadr a) s1 0)
  17.        )
  18.          ((= 2 (car a)) (setq s1 1)
  19.         (if (= (cadr a) 13)
  20.             (setq s 1)
  21.         (progn (princ (chr (cadr a)))
  22.              (if (= (cadr a) 8)
  23.                (setq str (substr str 1 (1- (strlen str))))
  24.                  (setq str (strcat str (chr (cadr a))))
  25.              )
  26.         )
  27.         )    
  28.        )
  29.   )
  30. )
  31. (initget 1)
  32. (cond
  33.   ((or (= str "r") (= str "R")) (setq pt (getpoint "\nEnd point:")))
  34.   ((or (= str "c") (= str "C")) (setq pt (getpoint "\nCenter point:")))
  35.   ((or (= str "m") (= str "M")) (setq pt (getpoint "\nMiddle point:")))
  36.   ((or (= str "f") (= str "F")) (setq pt1(getpoint "\nFirst text line point:"))
  37.       (princ "\nSecond text line point:")
  38.       (command "line" pt1 pause "")
  39.       (setq pt2 (cdr (assoc 11 (entget (entlast)))) pt pt1)
  40.       (entdel (entlast))
  41.    )
  42.  )
  43. (setq hh (getdist pt (strcat "\nHeight<" (rtos (getvar "textsize") 2 4) ">: ")))
  44. (if (not pt1)
  45. (setq ang (getangle pt "\ntext angle<0>:")
  46.       ang (if (not ang) 0 ang)
  47.       ang (angtos ang 0 1)))
  48. (if (null hh) (setq hh (getvar "textsize")))
  49. (command "hz")
  50. (setq f (open "hztxt" "r"))
  51. (setq ss (read (read-line f)))
  52. (close f)
  53. (if (= s1 0)
  54. (command "text" pt hh ang ss)
  55. (if (and pt1 pt2)
  56. (command "text" str pt1 pt2 hh ss)
  57. (command "text" str pt hh ang ss))
  58. )
  59. (setvar "BLIPMODE" 0)
  60. (redraw)
  61. (princ)
  62. )
  63.