home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / 3D / MPLP.LSP < prev    next >
Encoding:
Text File  |  1991-08-17  |  923 b   |  31 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" "v4" "y")
  17. (command "ucs" "w")
  18.   (setq p0 (getpoint "Base point:"))
  19.   (if p0 (progn 
  20.     (setq p0x (car p0) p0y (cadr p0) p0z (caddr p0))
  21.   ; (command "insert" "tk1/tbk2" p0 (* 100 tb) "" 0)
  22.     (command "insert" "3d/tbk2" p0 (* 100 tb) "" 0)
  23.     (command "ucs" "x" 90)
  24.     (command "insert" "tbk2"
  25.       (list p0x p0z (- (* -42000.0 tb) p0y)) (* 100 tb) "" 0)
  26.     (command "ucs" "y" 90)
  27.     (command "insert" "tbk2"
  28.       (list p0y p0z p0x) (* 100 tb) "" 0)
  29.   ))
  30.   (command "ucs" "w")
  31.