;Draws 3D view vector of a given camera (XANADU - www.xanadu.cz)

(defun C:CAMLINE ( / cam cent p1 p2)
 (setq cam (getstring "Camera name: "))
 (setq cent (tblobjname "VIEW" cam))
 (if cent
  (progn
   (setq p1 (cdr (assoc 12 (entget cent))))
   (setq p2 (cdr (assoc 11 (entget cent))))
   (setq p0 (list (+ (car p1)(car p2)) (+ (cadr p1)(cadr p2)) (+ (caddr p1)(caddr p2)) ))
   (command "_LINE" p0 p1 "")
  )
  (princ "No such Camera")
 )
 (princ)
)