home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / QYCCD.LSP < prev    next >
Encoding:
Text File  |  1990-07-19  |  794 b   |  20 lines
  1. ;***************************************************************
  2. ;*  This program to dimension  a  symbol of surface roughness  *
  3. ;*  that at is located at the rightup corner of drawing paper  *
  4. ;***************************************************************
  5. (setq st (getstring "\n ╞Σ╙α(Y) ╗≥ ╚½▓┐(B)  <Y / B>? <Y>:"))
  6. (if (or (= st "b") (= st "B")) (setq st "gbz\\bqb") (setq st "gbz\\bqy"))
  7. (point1)
  8. (scale1)
  9. (setq v (getstring "\nvaule: "))
  10. (if (= v "0") (setq v ""))
  11. (if (= v "") (setq st1 "gbz\\ccd1") (setq st1 "gbz\\ccd"))
  12. (if (null pt1) (err))
  13. (command "layer" "s" 6 "")
  14. (command "insert" st pt1 (* 0.9 sca) "" 0)
  15. (command "insert" st1 pt1 (* 1.4 sca) "" 0)
  16. (setq pt2 (polar pt1 (/ pi 2) (* sca 6.8)))
  17. (command "text" "c" pt2 (* sca 3.2) 0 v)
  18. (redraw)
  19. (cmdprompt)
  20.