(defun C:tetra()
  (setq p1 (getpoint"\p1:  "))
  (setq p2 (getpoint"\np2: "))
  (setq p3 (getpoint"\np3: "))
  (setq p4 (getpoint"\np4: "))
  (setq pbox1 (list 0 0 0))
  (setq pbox2 (list 100000 100000 0))
  (setq hbox 100000)
  (command "_box" pbox1 pbox2 hbox)
  (command "_slice" "_L" "" "_3P" p1 p2 p3 p4)
  (command "_slice" "_L" "" "_3P" p2 p3 p4 p1)
  (command "_slice" "_L" "" "_3P" p3 p4 p1 p2)
  (command "_slice" "_L" "" "_3P" p4 p1 p2 p3)
)