home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p039 / h91 / 1.ddi / LISP.PAK / HH267.LSP < prev    next >
Encoding:
Text File  |  1980-01-03  |  736 b   |  21 lines
  1.    (setq pt01 (getpoint "\n╟δ╩Σ╚δ╕╔╣▄╔╧╡┌╥╗╣²├┼╡π :"))
  2.    (setq pt02 (getpoint "\n╟δ╩Σ╚δ╕╔╣▄╔╧╡┌╢■╣²├┼╡π :"))
  3.    (setq gwid (getdist "\n╟δ╩Σ╚δ╣²├┼╡╪╣╡╡─┐φ╢╚ :"))
  4. ;
  5.      (setq ll (* 1.414 (* 0.5 gwid)))
  6.      (setq ang1 (- (angle pt01 pt02) (* 0.25 pi)))
  7.      (setq ang2 (+ ang1 (* pi 0.5)))
  8.      (setq ang3 (+ ang1 pi))
  9.      (setq ang4 (+ ang2 pi))
  10. ;   
  11.       (setq pt11 (polar pt02 ang1 ll))
  12.       (setq pt12 (polar pt02 ang2 ll))
  13.       (setq pt13 (polar pt01 ang3 ll))
  14.       (setq pt14 (polar pt01 ang4 ll))
  15. ;
  16.         (command "insert" "slg" pt01 1 1 0)
  17.         (command "insert" "slg" pt02 1 1 0)
  18.         (command "layer" "s" "cadh87" "")
  19.         (command "line" pt11 pt12 pt13 pt14 "c")
  20.         (command "layer" "s" "hvac" "")
  21.