home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / FA / MPLP.LSP < prev    next >
Encoding:
Text File  |  1991-04-10  |  828 b   |  28 lines
  1. ;****** FA\MPLP.LSP ******    9104 BJ
  2.   (setvar "flatland" 0)
  3. ;------
  4.   (setvar "cvport" 1)
  5.   (command "vports" "si")
  6. (command "vports" "4")
  7.   (setvar "cvport" 6)
  8.   (command "vpoint" "0,-1,0")
  9.   (setvar "cvport" 3)
  10.   (command "vpoint" "1,0,0")
  11.   (setvar "cvport" 1)
  12.   (command "vpoint" "1,-3,1.5")
  13.   (setvar "cvport" 9)
  14.   (command "vpoint" "0,0,1")
  15. ;(command "vports" "save" "plp")
  16. (command "vports" "save" "plp" "y")
  17. (command "ucs" "w")
  18.   (setq p0 (getpoint "Base point:"))
  19.   (setq p0x (car p0) p0y (cadr p0) p0z (caddr p0))
  20.   (command "insert" "tk1/tk2" p0 (* 100 tb) "" 0)
  21.   (command "ucs" "x" 90)
  22.   (command "insert" "tk2"
  23.     (list p0x p0z (- (* -42000.0 tb) p0y)) (* 100 tb) "" 0)
  24.   (command "ucs" "y" 90)
  25.   (command "insert" "tk2"
  26.     (list p0y p0z p0x) (* 100 tb) "" 0)
  27.   (command "ucs" "w")
  28.