|
|
本帖最后由 878276777 于 2012-3-1 14:25 编辑 + [7 y, ^* n+ B3 j0 u/ h0 N* F
- ;;光标旋转。1 [1 g0 c5 G! s3 Y, k; c
- ;;十进制输入任意角度。- u( ~# f# T9 |) E2 x7 m" A+ G+ Y
- ;;命令：zhuan
7 w% n) R z1 b+ @6 h+ b - (defun c:zhuan (/ fw)) C' V1 |' g2 B4 I5 d
- (setg fw (getreal "\n 请输入光标旋转十进制角度:"))- @0 f( a( t- c7 c$ S% d1 M6 N" g
- (setvar "snapang" (* fw(/ pi 180))) y+ V: O5 ?2 z2 e3 x/ v
- (prinl), J4 R3 f& a. |9 R7 @
. A! i x) u$ L3 x' ?, J8 z* A- (prompt " \n<< c:zhuan >> 设计者 XXX " )
; I9 p+ {. l' O& t - (prinl)
|
|
发表于 2012-3-1 10:15