How hard is it to create a command for rotation like the fillet command?
The routine originally started from the fillet command.
( (lambda nil
(foreach rad '(0.5 1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6 6.5 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 40 50 60 70 80 90 100 200 300 400 500)
(eval
(list 'defun
(read (strcat "c:r" (vl-string-translate "." "-" (vl-princ-to-string rad))))
'( / fil )
'(setq fil (getvar 'rotaterad))
(list 'setvar ''rotaterad rad)
'(vl-cmdf "_.rotate")
'(while (< 0 (getvar 'cmdactive)) (vl-cmdf "\\"))
'(setvar 'rotaterad fil)
'(princ)
)
)
)
(princ)
)
)