home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / CCD.LSP < prev    next >
Encoding:
Text File  |  1990-08-27  |  1.3 KB  |  40 lines
  1. ;**********************************************************
  2. ;*  The function for dimensioning the surface roughness.  *
  3. ;**********************************************************
  4. (defun CCD()
  5. (SETVAR "CMDECHO" 0)
  6.   (COMMAND "OSNAP" "NEA")
  7.   (MENUCMD "S=CC1")
  8.   (setq f (getstring "\n┤╓▓┌╢╚└α╨═:╚Ñ│²▓─┴╧Q/▓╗╚Ñ│²▓─┴╧B/╚╬╥ΓR: <Q>: "))
  9.   (setq c "ccd")
  10.   (if (or (= f "B") (= f "b")) (setq c "ccd1"))
  11.   (if (or (= f "R") (= f "r")) (setq c "ccd2"))
  12.   (MENUCMD "S=JZ1")
  13.   (setq d (getint "\n╖╜╧≥: (0-4) <1>:"))
  14.   (setq a 0)
  15.   (if (= d 2) (setq a (/ pi 2)))
  16.   (if (= d 3) (setq a pi))
  17.   (if (= d 4) (setq a (* pi 1.5)))
  18.   (point1)
  19.   (setq pt2 (osnap pt1 "end"))
  20.   (scale1)
  21.   (MENUCMD "S=IN1")
  22.   (setq st (getstring "\n╓╡:<RETURN▒φ╩╛├╗╙╨╓╡>: "))
  23.   (if (null pt1) (err))
  24.   (command "osnap" "none")
  25.   (if (= d 0) (setq a (angle pt1 pt2)))
  26.   (if (= a 0) (setq a1 0) (setq a1 (angtos a 0 0)))
  27.   (command "layer" "n" 6 "s" 6 "" "insert" (strcat "gbz\\" c) pt1 sca "" a1)
  28.   (if (and (> a -1) (< a 2))
  29.       (setq cc (polar pt1 (+ a (/ pi 2)) (* 5.4 sca)))
  30.       (progn (setq cc (polar pt1 (+ a (/ pi 2)) (* 7.8 sca)))
  31.              (setq a1 (angtos (+ a pi) 0 0))
  32.       )
  33.   )
  34.   (command "text" "c" cc (* 2.4 sca) a1 st)
  35.   (redraw)
  36.   (COMMAND "OSNAP" "OFF")
  37.   (MENUCMD "S=SCREEN")
  38. )
  39. (CCD)
  40.