home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / JZDH.LSP < prev    next >
Encoding:
Text File  |  1990-09-04  |  1.2 KB  |  35 lines
  1. ;******************************************************
  2. ;*  This function to dimension the code of reference  *
  3. ;*              about position tolerance!             *
  4. ;******************************************************
  5. (defun JZDH ()
  6. (SETVAR "CMDECHO" 0)
  7.   (point1)
  8.   (setq pt2 (osnap pt1 "nea"))
  9.   (setq pt3 (osnap pt2 "end"))
  10.   (MENUCMD "S=JZ1")
  11.   (initget (+ 1 2 4))
  12.   (setq d (getint "\n╖╜╧≥: <1-4>"))
  13.   (setq a 0)
  14.   (if (= d 2) (setq a (/ pi 2)))
  15.   (if (= d 3) (setq a pi))
  16.   (if (= d 4) (setq a (* pi 1.5)))
  17. ;  (if (= d 0) (setq a (angle pt2 pt3)))
  18.   (scale1)
  19.   (MENUCMD "S=IN1")
  20.   (setq ds (getdist pt2 "\n╥²│÷╧▀│ñ╢╚: "))
  21.   (MENUCMD "S=XW3")
  22.   (setq sy (getstring "\n╗∙╫╝┤·║┼: "))
  23.   (setq pt4 (polar pt2 (+ a (* pi 0.5)) (* 2 sca)))
  24.   (setq pt5 (polar pt4 a (* 4 sca)))
  25.   (setq pt6 (polar pt4 (+ a pi) (* 4 sca)))
  26.   (setq pt7 (polar pt4 (+ a (* pi 0.5)) ds))
  27.   (setq pt8 (polar pt7 (+ a (* pi 0.5)) (* 5 sca)))
  28.   (setq pt9 (polar pt8 (* pi 1.5) (* 3 sca)))
  29.   (command "layer" "s" 6 "" "pline" pt5 "w" 0.4 "" pt6 "" "line" pt4 pt7 "")
  30.   (command "circle" pt8 (* 5 sca) "text" "c" pt9 (* 5.2 sca) 0 sy)
  31.   (redraw)
  32.   (MENUCMD "S=SCREEN")
  33. )
  34. (JZDH)
  35.