Line rotation

In 2010 C3D, is there a way to rotate a line without first changing the minutes/seconds to a decimal, or redrawing the line ? Fictional line at 32d 45' 17" to say; 28d.

Thanks,

Diast

Pull out your calculator

Command: ROTATE
Current positive angle in UCS:  ANGDIR=counterclockwise  ANGBASE=0

Select objects: 1 found

Select objects:

Specify base point: END
of
Specify rotation angle or [Copy/Reference] <0>: -4d45'17"

Excellent. If I see you at the pub tonight I'll buy you a pint.

Diast

Always found entering bearings -4d45'17" as a pain hence drawing lines was done via a lisp where brgs are 4.4517 and translated to correct minutes and seconds.

Just a question rotate pick line pick end (brg) 4.4517 line rotates bit like a cal command ? but not a lisp that calls rotate, reactor ?

had a play this worked use 'bbb

(defun c:bbb ()(command (/ (getreal "enter num") 2.0)))

just need to add the convert brg stuff

had another go

(defun c:ang ()
(command
(setq angle (getreal "\nenter angle"))
(setq deg (fix angle))
(setq rem (* (- angle deg) 100.0))
(setq mins (fix rem))
(setq rem (* (- rem mins) 100.0))
(strcat deg "d" mins (chr 34) rem (chr 39))
)
)

when asked for angle just enter 'ang can shorten maybe '1

Rotate the UCS, Z, 28. Then use rotate with the reference option, Ortho on.