; DVA.LSP
; Jim Nakazawa
; (415) 768-1234
; TO SET DVIEW TWIST ANGLE BY POINTING TO AN EXISTING LINE
; FIRST DRAW THE LINE FROM LEFT TO RIGHT THAT YOU WANT TO SET THE DVIEW
; TWIST ANGLE FROM
(defun C:DVA
(/ rgm a b pt1 pt2 ang1
) (setq a
(entsel "select a line to DVIEW TWist angle: ")) (setq ang1
(/ (* ang1
200.0) pi
)) ;this should be modified to show angle in current angular units
) ;this routine seems to work