home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / JSYQ.LSP < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.8 KB  |  45 lines
  1. ;******************************************************
  2. ;*  The function to dimension the technical request.  *
  3. ;******************************************************
  4. (defun JSYQ ()
  5. (SETVAR "CMDECHO" 0)
  6.    (point1)
  7.    (if (null pt1) (err))
  8.    (scale1)
  9.    (MENUCMD "S=IN1")
  10.    (setq n (getint "\n▒Ω╫ó╧ε╡─╩²─┐: "))
  11.    (command "layer" "s" 6 "" "insert" (strcat "\\housem\\gbz\\" "jsyq") pt1 sca "" "")
  12.    (setq m 1)
  13.    (setq pt2 (list (- (car pt1) (* sca 24)) (- (cadr pt1) (* sca 17))))
  14.    (while (<= m n)
  15.   (MENUCMD "S=JS1")
  16.  (setq q (getint "\n╟δ╩Σ╚δ╝╝╩⌡╥¬╟≤╤í╘±: "))
  17.       (if (and (>= q 1) (<= q 7)) (setq str (getstring "\n╓╡:<RETURN ▒φ╩╛╬▐╓╡>: ")
  18.           pt3 (list (+ (car pt2) (* sca 22)) (cadr pt2))))
  19.       (if (null str) (setq str ""))
  20.       (if (= m n) (setq str3 ".") (setq str3 ";"))
  21.       (setq str1 (nth q '(nil "wzyj" "wzdj" "tzcl" "bmch" "stch" "zhcl" "ccdd" "zjyq" "sxcl" "rjdd"))
  22.             str2 (nth q (list nil (strcat "R=" str str3)
  23.                               (strcat str "x45%%d" str3)
  24.                               (strcat "HB=" str str3)
  25.                               (strcat "HRC=" str str3)
  26.                               (strcat "HRC=" str str3)
  27.                               (strcat "HB=" str str3)
  28.                          )
  29.                   )
  30.       )
  31.       (if (null str1) (err))
  32.       (command "text" pt2 (* sca 4.5) 0 (strcat (itoa m) "."))
  33.       (command "insert" (strcat "\\housem\\gbz\\" str1) pt2 sca "" "")
  34.       (if (and (>= q 1) (<= q 6))
  35.         (command "text" pt3 (* sca 4.5) "" str2))
  36.       (if (= q 7) (progn
  37.         (setq pt3 (list (+ (car pt2) (* sca 19.5)) (+ (cadr pt2) (* sca 3.6))))
  38.         (command "text" "c" pt3 (* sca 2.2) 0 str)))
  39.       (setq pt2 (list (car pt2) (- (cadr pt2) (* sca 8.5))) m (1+ m))
  40.    )
  41.    (redraw)
  42.   (MENUCMD "S=SCREEN")
  43. )
  44. (JSYQ)
  45.