home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 3.ddi / LPM / QZBH.LSP < prev    next >
Encoding:
Text File  |  1991-09-18  |  1.4 KB  |  50 lines
  1. (DEFUN C:QZBH()
  2.     (IF (NOT (EQUAL (GETVAR "CLAYER") "CC1"))
  3.         (COMMAND "LAYER" "M" "CC1" ""))
  4.     (SETQ F (OPEN "/BJCAD/JD.DAT" "r"))
  5.     (SETQ TB (READ (READ-LINE F)))
  6.     (SETQ TB (READ (READ-LINE F)))
  7.     (CLOSE F)
  8.     (INITGET 1)
  9.     (SETQ H00 (GETPOINT "Iuput start point (0.000) :"))
  10.     (TERPRI)
  11.  (WHILE
  12.   (SETQ PT (GETPOINT "Input next point: "))
  13.     (TERPRI)
  14.   (SETQ X (CAR H00)) (SETQ Y (CADR PT))
  15.   (SETQ H0P (* (- Y (CADR H00)) 0.001))
  16. (SETQ H0P (RTOS H0P 2 3))
  17.  (SETQ XY (LIST (+ X (* 400 TB)) (+ Y (* 400 TB))))
  18.   (TEXTS XY H0P)
  19.   (COMMAND "INSERT" (STRCAT "/BJCAD/J1K/BGFH")
  20.    (LIST X Y) (* 1.0 TB) (* 1.0 TB) 0)
  21.  )
  22. )
  23. (DEFUN TEXTS (XY H0P)
  24.     (COMMAND "TEXT" XY (* 250 TB) 0 H0P)
  25. )
  26. (DEFUN C:QRBH()
  27.     (IF (NOT (EQUAL (GETVAR "CLAYER") "CC1"))
  28.         (COMMAND "LAYER" "M" "CC1" ""))
  29.     (SETQ F (OPEN "/BJCAD/JD.DAT" "r"))
  30.     (SETQ TB (READ (READ-LINE F)))
  31.     (SETQ TB (READ (READ-LINE F)))
  32.     (CLOSE F)
  33.     (INITGET 1)
  34.     (SETQ H00 (GETPOINT "Iuput start point (0.000) :"))
  35.     (TERPRI)
  36.  (WHILE
  37.   (SETQ PT (GETPOINT "Input next point: "))
  38.     (TERPRI)
  39.   (SETQ X (CAR H00)) (SETQ Y (CADR PT))
  40.   (SETQ H0P (* (- Y (CADR H00)) 0.001))
  41.  (SETQ XY (LIST (+ X (* 400 TB)) (+ Y (* 400 TB))))
  42.   (COMMAND "INSERT" (STRCAT "/BJCAD/J1K/BGFH")
  43.    (LIST X Y) (* 1.0 TB) (* 1.0 TB) 0)
  44.     (INITGET)
  45.     (SETQ H0P (GETREAL "Input text (3000 4500...):"))
  46. (SETQ H0P (RTOS H0P 2 3))
  47.   (TEXTS XY H0P)
  48.  )
  49. )
  50.