home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 3.ddi / PIM / ZTCS.LSP < prev   
Encoding:
Text File  |  1991-08-31  |  788 b   |  27 lines
  1. (DEFUN C:ZTCS()
  2.     (SETQ F (OPEN "/BJCAD/JD.DAT" "r"))
  3.     (SETQ QA (READ-LINE F))
  4.     (SETQ QTB (READ-LINE F))
  5.     (SETQ QWTH (READ-LINE F))
  6.     (CLOSE F)
  7.     (INITGET)
  8.     (SETQ A (GETPOINT (STRCAT "Input point < " (RTOS (CAR (READ QA)) 2 0) "," (RTOS (CADR (READ QA)) 2 0) " >: ")))
  9.     (IF (= A nil) (SETQ A (READ QA)))
  10.     (TERPRI)
  11.     (SETQ QTB (READ QTB))
  12.     (SETQ QTB (* QTB 100))
  13.     (SETQ QTB (RTOS QTB 2 0))
  14.     (INITGET 6)
  15.     (SETQ TB (GETINT (STRCAT "(1:50 1:100 1:200...) Input scale (50 100 200) < " QTB " >: ")))
  16.     (IF (= TB NIL) (SETQ TB (READ QTB)))
  17.     (SETQ TB (/ TB 100.0))
  18.     (INITGET 6)
  19.     (SETQ WTH (GETINT (STRCAT "Input wall thick < " QWTH ">: ")))
  20.     (IF (= WTH nil) (SETQ WTH (READ QWTH)))
  21.     (SETQ F (OPEN "/BJCAD/JD.DAT" "w"))
  22.     (PRIN1 A F)
  23.     (PRINT TB F)
  24.     (PRINT WTH F)
  25.     (CLOSE F)
  26. )
  27.